爱尚共享网

常用VBS脚本收集

爱尚共享网2020-07-25学习资料 163 0A+A-

一、修改网络配置

完整:

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 "网络修改成功" 
Else 
WScript.Echo "网络修改失败" 
End If 
Next

精简:只修改DNS

strGatewayMetric = Array(1)  
arrDNSServers = Array("10.10.10.10","10.10.9.9","123.234.31.218")  
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  
errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)  
Next


发表评论