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
'得到當前活動網卡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"
