用VBScript修改本机IP地址Dim IP,NameIpInputbox (请输入IP)strComputer .Set objWMIService Get
用VBScript修改本机IP地址
Dim IP,NameIp=Inputbox ("请输入IP")strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")strIPAddress = Array(IP)strSubnetMask = Array("255.255.255.224")For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)Next