i found it  strComputer = "." strAnswer=msgbox ("Use 192.168.1.141 / 24?" & vbcrlf & vbcrlf & "If not, you''ll be prompted to specify", vbYesNoCancel)  if strAnswer = vbYes then    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")   Set colNetAdapters = objWMIService.ExecQuery _       ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")   strIPAddress = Array("192.168.1.141")   strSubnetMask = Array("255.255.255.0")   strGateway = Array("192.168.1.100")   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  elseif strAnswer = vbNo then    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")   Set colNetAdapters = objWMIService.ExecQuery _       ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")   strIPAddress = array(inputbox("IP Address"))       '' Array("192.168.1.141")   strSubnetMask = array(inputbox("Mask"))       '' Array("255.255.255.0")   strGateway = array(inputbox("GW"))       '' Array("192.168.1.100")   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   else    msgbox ("Operation Cancelled by User")  end if it's a visual basic script!