更改DNS脚本
例如要将所有计算机的DNS更改为：192.168.1.2,192.168.1.3,192.168.2.2,192.168.1.2.3，可以通过域计算机策略开机脚本统一部署以下脚本。
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
'更改DNS
Set reg = WScript.CreateObject("WScript.Shell")
reg.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\"&AdapterID&"\NameServer","192.168.1.2,192.168.1.3,192.168.2.2,192.168.1.2.3,"REG_SZ"
