实现Windows XP下VPN连接自动配置的批处理脚本
|
@echo off & color 5a echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: echo VPN连接自动配置连接 echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: echo 配置过程中，请勿进行任何操作，以保证配置顺利完成！ echo. echo. 祝您工作愉快、顺利！ echo. echo 确认安装配置VPN请按任意键继续！ pause cls @echo off echo 正在检查VPN1.test.com是否存在，请稍等…… @echo off ping 127.0.0.1 -n 10>nul find "VPN1.test.com" "%AllUSERSPROFILE%Application Data"MicrosoftNetworkConnectionsPbkrasphone.pbk && goto :VPN2.test.com || goto :addVPN1.test.com :VPN2.test.com @echo off cls echo VPN1.test.com已经存在或创建完成! cls echo 正在检查VPN2.test.com是否存在，请稍等…… @echo off ping 127.0.0.1 -n 10>nul find "VPN2.test.com" "%AllUSERSPROFILE%Application Data"MicrosoftNetworkConnectionsPbkrasphone.pbk && goto :VPN3.test.com || goto :addVPN2.test.com :VPN3.test.com @echo off cls echo VPN2.test.com已经存在或创建完成! cls echo 正在检查VPN3.test.com是否存在，请稍等…… @echo off ping 127.0.0.1 -n 10>nul find "VPN3.test.com" "%AllUSERSPROFILE%Application Data"MicrosoftNetworkConnectionsPbkrasphone.pbk && goto :no || goto :addVPN3.test.com pause :addVPN1.test.com @echo off echo 正在创建VPN1.test.com连接，请稍等…… echo set WshShell = CreateObject("WScript.Shell") >TEST_VPN.VBS echo WshShell.Run "Rasphone -a" >> TEST_VPN.VBS echo WScript.Sleep 500 >> TEST_VPN.VBS echo WshShell.SendKeys "%%+T" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "%%+N" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "VPN1.test.com" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "%%+N" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "VPN1.test.com" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "{ENTER} >> TEST_VPN.VBS start TEST_VPN.VBS cls echo 正在完成VPN1.test.com_VPN连接配置，请稍等！ ping 127.0.0.1 -n 10>nul cls echo VPN1.test.com连接创建完成，即将为您创建VPN1.test.com桌面快捷方式，请稍等…… ping 127.0.0.1 -n 10>nul (echo set ws=createobject("wscript.shell"^) echo ws.run "cmd /c ncpa.cpl",0 echo wscript.sleep 1000 echo ws.sendkeys "{f5}" echo wscript.sleep 1000 echo ws.sendkeys "VPN1.test.com" echo wscript.sleep 500 echo ws.sendkeys "%%{f}" echo wscript.sleep 500 echo ws.sendkeys "{s}" echo wscript.sleep 300 echo ws.sendkeys "{y}" echo wscript.sleep 300 echo ws.sendkeys "%%{f4}")>%temp%TEST_VPN.vbs start /wait %temp%TEST_VPN.vbs cls echo VPN1.test.com桌面快捷方式创建完成，即将为您配置VPN2.test.com连接，请稍等…… ping 127.0.0.1 -n 10>nul goto:VPN2.test.com :addVPN2.test.com echo 正在创建VPN2.test.com连接，请稍等…… echo set WshShell = CreateObject("WScript.Shell") >TEST_VPN.VBS echo WshShell.Run "Rasphone -a" >>TEST_VPN.VBS echo WScript.Sleep 500 >> TEST_VPN.VBS echo WshShell.SendKeys "%%+T" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "%%+N" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "VPN2.test.com" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "%%+N" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "VPN2.test.com" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "{ENTER}" >> TEST_VPN.VBS start TEST_VPN.VBS cls echo 正在完成VPN2.test.com_VPN连接配置，请稍等！ ping 127.0.0.1 -n 10>nul cls echo VPN2.test.com连接创建完成，即将为您创建VPN2.test.com桌面快捷方式，请稍等…… ping 127.0.0.1 -n 10>nul (echo set ws=createobject("wscript.shell"^) echo ws.run "cmd /c ncpa.cpl",0 echo wscript.sleep 1000 echo ws.sendkeys "{f5}" echo wscript.sleep 1000 echo ws.sendkeys "VPN2.test.com" echo wscript.sleep 500 echo ws.sendkeys "%%{f}" echo wscript.sleep 500 echo ws.sendkeys "{s}" echo wscript.sleep 300 echo ws.sendkeys "{y}" echo wscript.sleep 300 echo ws.sendkeys "%%{f4}")>%temp%TEST_VPN.vbs start /wait %temp%TEST_VPN.vbs cls echo VPN2.test.com桌面快捷方式创建完成，即将为您配置VPN3.test.com连接，请稍等…… ping 127.0.0.1 -n 10>nul goto:VPN3.test.com :addVPN3.test.com echo 正在创建VPN3.test.com连接，请稍等…… echo set WshShell = CreateObject("WScript.Shell") >TEST_VPN.VBS echo WshShell.Run "Rasphone -a" >>TEST_VPN.VBS echo WScript.Sleep 500 >> TEST_VPN.VBS echo WshShell.SendKeys "%%+T" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "%%+N" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "VPN3.test.com" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "%%+N" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "VPN3.test.com" >>TEST_VPN.VBS echo WScript.Sleep 100 >> TEST_VPN.VBS echo WshShell.SendKeys "{ENTER}" >> TEST_VPN.VBS start TEST_VPN.VBS cls echo 正在完成VPN3.test.com_VPN连接配置，请稍等！ ping 127.0.0.1 -n 10>nul cls echo VPN3.test.com连接创建完成，即将为您创建VPN3.test.com桌面快捷方式，请稍等…… ping 127.0.0.1 -n 10>nul (echo set ws=createobject("wscript.shell"^) echo ws.run "cmd /c ncpa.cpl",0 echo wscript.sleep 1000 echo ws.sendkeys "{f5}" echo wscript.sleep 1000 echo ws.sendkeys "VPN3.test.com" echo wscript.sleep 500 echo ws.sendkeys "%%{f}" echo wscript.sleep 500 echo ws.sendkeys "{s}" echo wscript.sleep 300 echo ws.sendkeys "{y}" echo wscript.sleep 300 echo ws.sendkeys "%%{f4}")>%temp%TEST_VPN.vbs start /wait %temp%TEST_VPN.vbs cls echo VPN3.test.com桌面快捷方式创建完成. del TEST_VPN.VBS ping 127.0.0.1 -n 10>nul cls goto:check_vpn :check_vpn echo 即将对配置VPN进连接行校对，请稍后…… @echo off ping 127.0.0.1 -n 10>nul echo VPN1.test.com 配置校对完成! @echo off ping 127.0.0.1 -n 10>nul echo VPN2.test.com 配置校对完成! @echo off ping 127.0.0.1 -n 10>nul echo VPN3.test.com 配置校对完成! ping 127.0.0.1 -n 10>nul goto:creat_pbk :creat_pbk echo 即将为您生成TEST_VPN.PBK桌面文件 @echo off ping 127.0.0.1 -n 10>nul for /f "delims=" %%i in ("Set ws=WScript.CreateObject("wscript.shell")") do echo %%i >> TEST_VPN.vbs for /f "delims=" %%i in ("strdesktop=ws.SpecialFolders("desktop")") do echo %%i >> TEST_VPN.vbs for /f "delims=" %%i in ("Set path=ws.CreateShortcut(strdesktop & "TEST_VPN.lnk")") do echo %%i >> TEST_VPN.vbs for /f "delims=" %%i in ("path.targetpath="%AllUSERSPROFILE%Application DataMicrosoftNetworkConnectionsPbkrasphone.pbk"") do echo %%i >> TEST_VPN.vbs for /f "delims=" %%i in ("path.save") do echo %%i >> TEST_VPN.vbs cscript TEST_VPN.vbs & del TEST_VPN.vbs @echo off ping 127.0.0.1 -n 10>nul del TEST_VPN.vbs echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: echo 感谢您的耐心等待，VPN配置完成 echo 现在您可以使用配置好的任意一个做为连接点使用VPN echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: echo 感谢您的使用！ @echo off set /p reset=按Y键重新启动计算机应用注册表键值，按任意键退出稍后自行重启: if %reset%==y (goto :reboot) else (goto :noreboot) :reboot shutdown /r /t 0 :noreboot echo 感谢您的使用！ choice /t 2 /d y /n>nul exit :no cls echo off echo 系统中已存在VPN1.test.com、VPN2.test.com和VPN3.test.com连接,按任意键退出 & pause 本文出自 “笨鸟先飞” 博客，请务必保留此出处http://tingdongwang.blog.51cto.com/1056852/685729 查看本栏目更多精彩内容：http://www.bianceng.cn/OS/xp/ （编辑：佛山站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
