减小字体
增大字体- ·上一篇文章：cmd所能处理的最大数值
- ·下一篇文章：隐藏DOS窗口，并转储DOS窗口的输出信息
- ·百度中搜索更多的关于“VBS脚本切换DNS”相关内容
- ·谷歌中搜索更多的关于“VBS脚本切换DNS”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
VBS脚本切换DNS
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strDNS = Array("221.5.203.98","61.128.128.68","221.5.203.99","61.128.192.68")
strGatewaymetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)
Next
WScript.Quit
