标题:
[求助]创建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
标题:
谢谢
找这个好久了
太感谢了
欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/)
Powered by Discuz! 2.5