Dim IP Ip=Input
Box("请输入IP") str
subnetMask=Array("255.255.255.0") DefaultIPGateway=Array("192.168.2.253") DNSServer=Array("61.139.2.69") strCo
mputer = "." Set objWMIService = G
etobject("winmgmts:\\" & strCo
mputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterCon
figuration where IPEnabled=TRUE") strIPAddress=Array(Ip) For Each objNetAdapter in colNetAdapters errEnable=objNetAdapter.EnableStatic(strIPAddress,str
subnetMask,DefaultIPGateway,DNSServer) Next