VBS脚本修改设置IP地址、网关、DNS等配置信息

本文来源：http://www.pczs120.com/article/art304.htm

打开记事本，将下面的代码写入并另存为“IP.VBS”，双击运行即可，部分参数值需要自行修改，设置成功后无须重启。

'''代码开始

strIPAddress=Array("10.10.10.10") '这里设置您的IP地址

strSubnetMask=Array("255.0.0.0") '这里设置您的子网掩码

DefaultIPGateway=Array("10.10.0.1") '这里设置您的默认网关

DNSServer = Array("211.138.106.3", "211.138.106.2") '这里设置首选、备用DNS服务器

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetAdapter in colNetAdapters
　　errEnable1=objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
　　errEnable2=objNetAdapter.SetGateways(DefaultIPGateway)
　　errEnable3=objNetAdapter.SetDNSServerSearchOrder(DNSServer)

　　If errEnable1 = 0 And errEnable2 = 0 And errEnable3 = 0 Then
　　　　ChangeIP = "设置成功"
　　Else
　　　　If errEnable1 = 0 Then
　　　　　　ChangeIP = "IP地址和子网掩码设置成功, "
　　　　Else
　　　　　　ChangeIP = "IP地址或子网掩码设置失败, "
　　　　End If

　　　　If errEnable2 = 0 Then
　　　　　　ChangeIP = ChangeIP & "默认网关设置成功, "
　　　　Else
　　　　　　ChangeIP = ChangeIP & "默认网关设置失败, "
　　　　End If

　　　　If errEnable3 = 0 Then
　　　　　　ChangeIP = ChangeIP & "DNS设置成功"
　　　　Else
　　　　　　ChangeIP = ChangeIP & "DNS设置失败"
　　　　End If
　　End If

　　WScript.Echo ChangeIP '弹出确认窗口
Next

'''代码结束