用vbs实现配置静态 IP 地址

2020-06-26 18:09:36

字体：大中小

来源：转载

供稿：网友

将计算机的 IP 地址设置为 192.168.1.141，并将 IP 网关设置为 192.168.1.100。
脚本代码

复制代码代码如下:

	
	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 not be changed."  
	    End If  
	Next 