教你用脚本改ip,绝对比鼠标快

strIPAddress = Array("192.168.70.100") '修改后的ip,多个IP可以以","格开,可以写多个  
strSubnetMask = Array("255.255.255.0") '子网掩码,配置同IP  
strGateway = Array("192.168.1.1") '网关  
arrDNSServers = Array("192.168.1.1")'DNS,可以写多个  

strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where Description like '%82566MM%'")  
For Each objNetAdapter in colNetAdapters  

        strGatewayMetric = Array(1)  
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)  
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)  
        errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)   
Next  

把以上内容存入写字版,保存成.vbs文件
用的时间双击一下就改好了
如果经常在2个ip间移动,可以保存2份

注意,黑体部分是我的网卡型号,你要改成自己的
不懂请回贴问我

呵呵，看起来好复杂。。。。技术达人。。。。

哪里复杂了,打开写字版,复制进去,另存为,类似选保存所有文件,
名字叫    我爱登录.vbs  
就好了

看起来蛮复杂的，不敢尝试

迈入本网络绎不绝{:beiyule:}