Windows 7下实现VPN连接自动创建 - Windows家庭版
|
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 "%%+E" >>Test_VPN.VBS echo WScript.Sleep 500 >>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 "%%+C" >>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 "%%+W" >>Test_VPN.VBS echo WScript.Sleep 100 >>Test_VPN.VBS echo WshShell.SendKeys "%%+I" >>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 "%%+E" >>Test_VPN.VBS echo WScript.Sleep 500 >>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 "%%+C" >>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 choice /t 5 /d y /n >nul echo VPN1.Test.com 配置校对完成! @echo off choice /t 5 /d y /n>nul echo VPN2.Test.com 配置校对完成! @echo off choice /t 5 /d y /n>nul echo VPN3.Test.com 配置校对完成! ping 127.0.0.1 -n 10>nul goto:creat_pbk :creat_pbk echo 即将为您生成Test_VPN.PBK桌面文件 @echo off choice /t 5 /d y /n>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="%USERPROFILE%AppDataRoamingMicrosoftNetworkConnectionsPbkrasphone.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 choice /t 5 /d y /n>nul （编辑：应用网_镇江站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
