Question

求win7系统修改网关批处理

我这边是网吧，我现在只要求修改网关，不改IP和子网掩码，之前找的一个批处理是：netsh int ip set address name="本地连接" gateway=192.168.1.1 gwmetric=1，他在XP系统有用，在win7系统没用，修改不了，在网上找了好多试了都没用，请大侠给我编一个批处理，要求在win7可以正常使用，并且只修改网关，不改其他的批处理，谢谢了！

Answer 1

给你个VBS脚本：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
    arrGateways = Array("1.2.3.4")'请改为你自己的网关地址
    rs=objNetCard.SetGateways(arrGateways)
    MsgBox rs'如果弹出的对话框内容是0，表示设置成功
Next

追问

在吗大师，你给我的脚本的确有用，很好，但是那个弹出的对话框0怎么关闭掉呢？我怎么关不了，关了又弹出来，怎么解决？

追答

不容易，隔了十天才冒泡，网管真忙。

机子有几张网卡就会弹出几次对话框，不是说对话框关不掉。

 

把倒数第二行

msgbox rs

删掉就不会出来对话框了。

 

不过删了就不知道网管是否设置成功了，可以将这一句改成

WScript.CreateObject("WScript.Shell").Popup rs,4

这样会出来一个4秒后自动关闭的对话框，后面的4是时间，可以根据需要自己改。

追问

哦哦，谢谢了！我所有机器就一个网卡，但是确实关不掉，后来我想把最后一句删掉试试，就没有了，没想到你的回答也是删掉最后一句，呵呵，我自己测试了一下还挺好的，这些天再让上网的客户再试试会不会出现修改网关不成功的，希望能成功。的确是高手，非常感谢，以后不懂再来请教。

追答

呃，竟然有关不掉对话框这种事情，搞得我都怀疑脚本运行正不正常了 ……
这样，你先运行一遍脚本，打开任务管理器，转到“进程”页，看看有没有wscript.exe，有的话说明脚本有异常，需要强制结束，我再想想办法；没有的话万事大吉 ╭(′▽`)╯

Answer 2

win7好像不可以只修改网关，必须连同ip一起修改。