Dim wshShell
Set wshShell = CreateObject("Wscript.Shell")
Set EnvVar = wshShell.Environment("PROCESS")
Name=EnvVar.Item("COMPUTERNAME")
strGateway = Array("1.1.1.1")
strComputer="."
Set objWMIService=GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters=objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) '设置网关
Next
Set WshNetwork = Nothing
dim wsh
set wsh=WScript.CreateObject("WScript.Shell")
wsh.run "Rasdial pppoe 用户名 密码",false,1
WScript.quit
[ Last edited by huanglsh on 2007-6-14 at 11:57 PM ]