标题: [求助]创建VPN的脚本！ [打印本页]

---

作者: renzhen     时间: 2008-4-14 03:56    标题: [求助]创建VPN的脚本！

求助，请高手帮忙写一个可以自动创建VPN，并能自动拨号的的脚本！
谢谢！

---

作者: tvzml     时间: 2008-4-14 05:28
@echo off
set VPN_LAN=0
findstr /c:"VPN_LAN" "C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk" ||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 "%%+T" >>VPN_phone.VBS
echo WshShell.SendKeys "%%+N" >>VPN_phone.VBS
echo WScript.Sleep 100 >>VPN_phone.VBS
echo WshShell.SendKeys "vpn.isp99.com" >>VPN_phone.VBS
echo WScript.Sleep 100 >>VPN_phone.VBS
echo WshShell.SendKeys "%%+N" >>VPN_phone.VBS
echo WScript.Sleep 500 >>VPN_phone.VBS
echo WshShell.SendKeys "VPN_LAN" >>VPN_phone.VBS
echo WScript.Sleep 500 >>VPN_phone.VBS
echo WshShell.SendKeys "{ENTER}" >>VPN_phone.VBS
echo WScript.Sleep 50 >>VPN_phone.VBS
echo WshShell.SendKeys "{ENTER}" >>VPN_phone.VBS
:VPN_ADD
echo WScript.Sleep 500 >>VPN_phone.VBS
echo WshShell.Run "Rasphone -d VPN_LAN" >>VPN_phone.VBS
echo WScript.Sleep 100 >>VPN_phone.VBS
echo WshShell.AppActivate "连接 VPN_LAN" >>VPN_phone.VBS
echo WScript.Sleep 100 >>VPN_phone.VBS
echo WshShell.SendKeys "%%+u" >>VPN_phone.VBS
echo WScript.Sleep 100 >>VPN_phone.VBS
echo WshShell.SendKeys "ID" >>VPN_phone.VBS
echo WScript.Sleep 100 >>VPN_phone.VBS
echo WshShell.SendKeys "%%+p" >>VPN_phone.VBS
echo WScript.Sleep 500 >>VPN_phone.VBS
echo WshShell.SendKeys "PWD" >>VPN_phone.VBS
echo WScript.Sleep 100 >>VPN_phone.VBS
echo WshShell.SendKeys "%%+c" >>VPN_phone.VBS
start VPN_phone.VBS

---

作者: dyzztxb     时间: 2010-3-13 12:18    标题: 谢谢

找这个好久了
太感谢了