Code for setting static IP addresses and DNS server addresses with VBS

Copy codeThe Code is as follows: strIPAddress = Array ("192.168.0.148 ")
StrSubnetMask = Array ("255.255.255.0 ")
StrGateway = Array ("192.168.0.1 ")
StrGatewayMetric = Array (1)
ArrDNSServers = Array ("192.168.0.1", "192.168.0.2 ")
StrComputer = "."

Set ob1_miservice = GetObject ("winmgmts :"_
& "{ImpersonationLevel = impersonate }! \ "& StrComputer &" \ root \ cimv2 ")

Set colNetAdapters = obw.miservice. ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = TRUE ")

For Each objNetAdapter in colNetAdapters
ErrEnable = objNetAdapter. EnableStatic (strIPAddress, strSubnetMask)
ErrGateways = objNetAdapter. SetGateways (strGatewaymetric)
ErrDNS = objNetAdapter. SetDNSServerSearchOrder (arrDNSServers)
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

Remember to change the parameter to what you want.
Original article: http://demon.tw/programming/vbs-modify-ip-dns-setting.html