切换IP地址（即时生效）

【实例简介】

切换网关

【实例截图】

【核心代码】

Input=MsgBox("“是”切换到192.168.6.?段" & vbCrlf & "“否”切换到192.168.2.?段" & vbCrlf & "点击“取消”退出。", 3, "切换IP地址")

If Input = 2 Then
 wscript.quit
End If

If Input = 6 Then
 setIp="dhcp"   '内网IP
 SubnetMask="dhcp"  '子网掩码
 GateWay="dhcp"  '网关
 dnsip1="dhcp"   'dns服务器
 dnsip2="dhcp"   'dns服务器，为空则填127.0.0.1
End If

If Input = 7 Then
 setIp="192.168.2.103"   '外网IP
 SubnetMask="255.255.255.0"  '子网掩码
 GateWay="192.168.2.1"  '网关
 dnsip1="61.139.2.69"  'dns服务器
 dnsip2="202.98.96.68"  'dns服务器，为空则填127.0.0.1
End If

'机器名，.是本机
strComputer="." 
Set objWMIService = GetObject("winmgmts:\\"&strComputer&"\root\cimv2") 
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress=Array(setIp) 
strSubnetMask=Array(SubnetMask) 
strGateway=Array(GateWay) 
strGatewayMetric=Array(1)
strDns=Array(dnsip1,dnsip2)  
For Each objNetAdapter in colNetAdapters
errEnable=objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) 
errGateways=objNetAdapter.SetGateways(strGateway, strGatewaymetric) 
errDns=objNetAdapter.SetDNSServerSearchOrder(strDns) 
If errEnable=0 Then 
 If Input=6 Then
  WScript.Echo "切换IP地址到内网成功!"
 Else
   WScript.Echo "切换IP地址到外网成功!"
 End If 
Else 
 If Input=6 Then
  WScript.Echo "切换IP地址到内网失败!!!" 
 Else
  WScript.Echo "切换IP地址到外网失败!!!" 
 End If
End If 
Next