ipconfig.vbs

on error resume next
strComputer = InputBox("请输入计算机名或者IP地址", "输入")
'strcomputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress =array( InputBox("请输入更换成的IP地址", "输入"))
strSubnetMask =array( "255.255.255.0")
strGateway = array("192.168.1.1")
strDNSServer= Array("202.96.128.86")

For Each objNetAdapter in colNetAdapters
intSetDNSServers = objNetAdapter.SetDNSServerSearchOrder(strDNSServer)
errGateways = objNetAdapter.SetGateways(strGateway)
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
If errEnable = 0 Then
WScript.Echo "The IP configruation has been changed."
Else
WScript.Echo "The IP configruation could not be changed."
End If
Next