静态、动态IP自动切换

‘家里用的是静态IP，单位用的是动态IP，老婆不会弄哦，下面脚本可以解决了。

Const ip="192.168.7.71"
Const msk="255.255.255.0"
Const getway="192.168.7.1"
Const dns="192.168.7.1"
Const closeTime=5
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters 
IF instr(objNetAdapter.Caption,"Wireless")>0 Then  '仅仅针对无线网卡设置  
 If objNetAdapter.DHCPEnabled Then Call setip(objNetAdapter,ip,msk,getway,dns) Else Call autoip(objNetAdapter) 
 Exit For
End If
Next 


Sub setip(objNetAdapter,ip,msk,getway,dns)
Set WshSHell = WScript.CreateObject("WScript.Shell")
sip=objNetAdapter.IPAddress
strIPAddress = Array(ip) 
strSubnetMask = Array(msk)
strGateway = Array(getway) 
strGatewayMetric = Array(1)
arrDNSServers=Array(dns)


errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If errEnable = 0 Then
WshSHell.popup _
"IP 地址已被修改！"+chr(10)+chr(10)+ _
chr(10)+ "IP地址："&ip+chr(10)+ _
chr(10) +"子网掩码 "&msk+chr(10)+ _
chr(10) +"网关 "&getway +chr(10)+ _
chr(10) +"DNS:"&dns+chr(10)+ _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10) _
, CloseTime, "安装成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
End If
end Sub


Sub autoip(objNetAdapter)  '自动获取IP
Set WshSHell = WScript.CreateObject("WScript.Shell")
    errIPEnable = objNetAdapter.EnableDHCP()
    errDNSEnable = objNetAdapter.SetDNSServerSearchOrder()
If errIPEnable = 0 Then
WshSHell.popup _
"IP 已经被设置为自动获取！"+chr(10)+chr(10)+ _
chr(10) & closeTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)    " + Copyright +"     " & QQ &"     " + Email _
, CloseTime, "IP自动获取安装成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
End If
end sub