changeip.vbs

'
'	change ip address
'
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") 

 
strIPAddress 		= Array("192.168.5.8") 
strSubnetMask 		= Array("255.255.255.0") 
strGateway 			= Array("192.168.5.1") 
strGatewayMetric 	= Array(1) 
  
For Each objNetAdapter in colNetAdapters 
    errEnable 		= objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) 
    errGateways 	= objNetAdapter.SetGateways(strGateway, strGatewaymetric) 
    If errEnable 	= 0 Then 
        WScript.Echo "The IP address has been changed." 
    Else 
        WScript.Echo "The IP address could not be changed." 
    End If 
Next