vbs批量换DNS跟网关

Tony · 2009-04-06, 02:23 PM

192.168.0.1 为网关
202.96.134.133为首选DNS
202.96.128.68为备用DNS
把下面内容保存为"VBS"格式即可

PHP 代码:


			
Const STR_GATEWAY = "192.168.0.1"
Const STR_NEWDNS1 = "202.96.134.133"
Const STR_NEWDNS2 = "202.96.128.68" 
Set fs=CreateObject("Scripting.FileSystemObject")
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
Set objNICs = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2)
objNIC.SetGateways Array(STR_GATEWAY)
End If
Next

2009-04-06, 02:23 PM	#1
No1 Tony 坛主注册日期: 2003-10-22 帖子: 11,050 积分:6 精华:24 现金:14340金币资产:29325297金币	vbs批量换DNS跟网关 192.168.0.1 为网关 202.96.134.133为首选DNS 202.96.128.68为备用DNS 把下面内容保存为"VBS"格式即可 PHP 代码: `Const STR_GATEWAY = "192.168.0.1" Const STR_NEWDNS1 = "202.96.134.133" Const STR_NEWDNS2 = "202.96.128.68" Set fs=CreateObject("Scripting.FileSystemObject") strWinMgmt="winmgmts:{impersonationLevel=impersonate}" Set objNICs = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration") For Each objNIC In objNICs If objNIC.IPEnabled Then objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2) objNIC.SetGateways Array(STR_GATEWAY) End If Next`