Use vbs to configure static IP addresses

Set the IP address of the computer to 192.168.1.141 and the IP gateway to 192.168.1.100.
Script Code Copy codeThe Code is as follows: strcomputer = "."
Set ob1_miservice = GetObject ("winmgmts: \" & strcomputer & "\ Root \ cimv2 ")
Set colnetadapters = obw.miservice. 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 (strgatewaymetric)
If errenable = 0 then
Wscript. Echo "the IP address has been changed ."
Else
Wscript. Echo "the IP address cocould not be changed ."
End if
Next