如何用批处理新建Adsl拨号?请给出代码,谢谢

@echo off
set VPN_LAN=0
set adslpath="C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk"
if exist %adslpath% findstr /c:"ADSL" %adslpath% ||set VPN_LAN=1

@echo %VPN_LAN%

echo set WshShell = CreateObject("WScript.Shell") >VPN_phone.VBS

if %VPN_LAN%==0 goto VPN_ADD
echo WshShell.Run "Rasphone -a" >>VPN_phone.VBS
echo WScript.Sleep 500 >>VPN_phone.VBS
echo WshShell.SendKeys "%+R" >>VPN_phone.VBS
echo WshShell.SendKeys "%+N" >>VPN_phone.VBS
echo WScript.Sleep 100 >>VPN_phone.VBS
echo WshShell.SendKeys "{BACKSPACE 10}" >>VPN_phone.VBS
echo WshShell.SendKeys "ADSL" >>VPN_phone.VBS
echo WScript.Sleep 500 >>VPN_phone.VBS
echo WshShell.SendKeys "{ENTER}" >>VPN_