建立宽带连接VB脚本。

Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "Rasphone -a"
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 200
WshShell.SendKeys "r"    
WScript.Sleep 30
WshShell.SendKeys "{ENTER}"      
WScript.Sleep 30
WshShell.SendKeys "{ENTER}"   
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\宽带连接.lnk")
oShellLink.TargetPath = "%windir%\system32\Rasphone.exe" 
oShellLink.WindowStyle = 1               
oShellLink.Hotkey = "CTRL+SHIFT+K"         
oShellLink.IconLocation = "%windir%\system32\Rasphone.exe, 0"
oShellLink.Description = "宽带连接"                          
oShellLink.WorkingDirectory = "%windir%\system32\"
oShellLink.Save 

文件名 .vbs
假如ADSL的用户名为123，密码是abc，那连接ADSL的命令是：
start=rasdial abcd 123 abc

http://child.rksec.com/baike/network/1176.html