快捷導(dǎo)航

用vbs實(shí)現(xiàn)修改dns的網(wǎng)關(guān)腳本

更新時(shí)間：2008年05月31日 13:04:30 作者：

這篇文章主要為大家介紹了用vbs實(shí)現(xiàn)修改dns的代碼，需要的朋友可以參考下

Const T_GATEWAY = "1.1.1.1" '網(wǎng)關(guān) 
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

無(wú)須重新啟動(dòng),不管系統(tǒng)語(yǔ)言

VBS改DNS（未測(cè)試）：

復(fù)制代碼代碼如下:

 
On Error Resume Next 
temp=0 
set wshshell=wscript.createobject("wscript.shell") 
'啟動(dòng)WMI服務(wù) 
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") 

'得到當(dāng)前活動(dòng)網(wǎng)卡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服務(wù) 
Set reg = WScript.CreateObject("WScript.Shell") 
reg.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Netman\Start","4","REG_DWORD" 

msgbox "更改完成,請(qǐng)重啟網(wǎng)卡!" 