Configure static IP address _vbs with the VBS implementation

Set the computer's IP address to 192.168.1.141, and set the IP gateway to 192.168.1.100.
Scripting code

Copy Code code as follows:

StrComputer = "."
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 is not changed."
End If
Next