Dim IP
Ip=Inputbox("请输入IP")
strSubnetMask=Array("255.255.255.0")
DefaultIPGateway=Array("192.168.2.253")
DNSServer=Array("61.139.2.69")
strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
Set colNetAdapters = objWMIService.ExecQuery _  
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress=Array(Ip)
For Each objNetAdapter in colNetAdapters
    errEnable=objNetAdapter.EnableStatic(strIPAddress, strSubnetMask,DefaultIPGateway,DNSServer)
Next