用vbs实现修改dns的网关脚本
导读：收集整理的这篇文章主要介绍了用vbs实现修改dns的网关脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:Const T_GATEWAY = "1.1.1.1"...
收集整理的这篇文章主要介绍了用vbs实现修改dns的网关脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:Const T_GATEWAY = "1.1.1.1" '网关
Const T_NEWDNS1 = "2.2.2.2" 'DNS1
Const T_NEWDNS2 = "3.3.3.3" 'DNS2
strWinMgmt="winmgmts:{ imPErsonationLevel=impersonate} "
Set NICS = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterconfiguration")
For each NIC In NICS
If NIC.IPEnabled Then
NIC.SetDNSServerSeArchOrder Array(T_NEWDNS1,T_NEWDNS2)
NIC.SetGateways Array(T_GATEWAY)
End If
Next
无须重新启动,不管系统语言
vbS改DNS（未测试）：
复制代码 代码如下:
On Error Resume Next
temp=0
set wshshell=wscript.createobject("wscript.shell")
'启动WMI服务
wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,True
wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,True
wshshell.run ("%comspec% /c net start winmgmt"),0
wshshell.run ("%comspec% /c sc config NetMan start= auto"),0,True
wshshell.run ("%comspec% /c net start NetMan"),0
strComputer = "."
Set objWMIService = Getobject("winmgmts:\" & strComputer & "\root\cimv2")
'得到当前活动网卡ID
Set colITems = objWMIService.ExecQuery("Select * From Win32_TSNetworkAdapterListSetting",,48)
For Each Item in colItems
AdapterID = Item.NetworkAdapterID
Next
'禁NETBIOS
Set reg = WScript.CreateObject("WScript.Shell")
reg.RegWrite "HKEY_LOCAL_MACHINE\SysTEM\currentControlSet\Services\NetBT\Parameters\Interfaces\Tcpip_"& AdapterID& "\NetbiosOptions","2","REG_DWORD"
'更改DNS
Set reg = WScript.CreateObject("WScript.Shell")
reg.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces"& AdapterID& "\nameserver","202.96.128.68,202.96.128.143,202.96.128.166,202.96.128.86","REG_SZ"
'禁NETMAN服务
Set reg = WScript.CreateObject("WScript.Shell")
reg.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Netman\Start","4","REG_DWORD"
msgbox "更改完成,请重启网卡!"
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用vbs实现修改dns的网关脚本
本文地址： https://pptw.com/jishu/609632.html