strIP = InputBox("Enter IP Name",title,"", 3200, 3200)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.55.1")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
arrDNSServers = Array("192.168.55.201")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
' 03 winsserver
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
strPrimaryServer = "192.168.55.201"
strSecondaryServer = " "
objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer
Next
Password = "Password1"
Username = "administrator"
Set objWMIService = GetObject("Winmgmts:root\cimv2")
For Each objComputer in _
objWMIService.InstancesOf("Win32_ComputerSystem")
Next
' 13 restart
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
strComputer & "\root\cimv2")
("Select * from Win32_OperatingSystem")
objOperatingSystem.Reboot()
Next