VBScript 變更 GateWay

公司的電腦配備一個固定的區網 IP，例如: 192.168.0.XXX　
　
但是有兩個 GATEWAY 可以自由選擇， 192.168.168.1　　192.168.0.111　
　
寫成兩個 vbs 互相切換，方便使用　
　
ADSL.VBS 內容:　

Const T_GATEWAY = "192.168.0.111"　 　 strWinMgmt="winmgmts:{impersonationLevel=impersonate}" Set NICS = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration") 　 For Each NIC In NICS 　 　 If NIC.IPEnabled Then) 　　 NIC.SetGateways Array(T_GATEWAY) 　 End If Next

 XDSL.VBS 內容:　

Const T_GATEWAY = "192.168.168.1"　
　
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
Set NICS = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
　
For Each NIC In NICS
　
　 If NIC.IPEnabled Then)
　　 NIC.SetGateways Array(T_GATEWAY)
　 End If
Next　

PS:先前使用 NETSH 指令，變更GateWay的批次檔。只能用在 XP
Windows 7 若是要能用，必須還要加入 指定網卡IP的敘述指令
NETSH　變更GateWay