复制代码 代码如下:

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 “更改完成,请重启网卡!”

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。