中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

用VBS設(shè)置靜態(tài)IP和DNS服務(wù)器地址的代碼，今天別人問(wèn)我的，怕以后忘記，記錄下來(lái)。

代碼如下:

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 objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetAdapter in colNetAdapters

errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)

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

記得把參數(shù)改成自己想要的。