Windows 7下實現VPN串連自動建立

在完成了Windows XP下VPN自動建立並配置串連後，其實我們還需要對Windows 7下VPN自動設定做一個介紹，因為目前實際上很多企業也已經開始進行了大批量的Windows 7的使用，而且很多使用者目前也在逐漸向Windows 7系統邁進，那麼如何讓Windows 7使用者也能有不錯的使用者體驗呢？如何簡化這些使用者的VPN建立也成為了我們需要考慮的內容，繼續前面的內容我來分享一下，我在Windows 7下的配置。

在Windows 7的VPN批處理指令碼中還實現了在TMG-VPN中完成的SSTP_VPN模式時註冊表的匯入，當然，我們說只有您的企業中已經安裝並配置好了SSTP—VPN時可能您才需要匯入這個註冊表索引值，如果僅僅是需要完成VPN的自動建立配置，那麼也可不添加這部分的批處理指令碼內容。

好，接下來，我們就一起來看看如何在Windows 7下實現VPN串連自動建立吧。

@echo off & color 5a

echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

echo                           Windows 7_VPN串連配置

echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

echo               配置過程中，請勿進行任何操作，以保證配置順利完成！

echo.                            

echo.                                     祝您工作愉快、順利！

echo.

echo 確認安裝配置VPN請按任意鍵繼續！

pause

cls

@echo off

echo 正在檢查VPN1.Test.com是否存在，請稍等……

@echo off

choice /t 5 /d y /n>nul

find "VPN1.Test.com" %USERPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk\rasphone.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

choice /t 5 /d y /n>nul

find "VPN2.Test.com" %USERPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk\rasphone.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

choice /t 5 /d y /n>nul

find "VPN3.Test.com" %USERPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk\rasphone.pbk && goto :no || goto :addVPN3.Test.com

pause

:addVPN1.Test.com

@echo off

echo 正在建立PEKD1.Vancl.cn串連，請稍等……

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 "VPN1.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 "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 "%%+C" >>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 正在建立PEKD2.Vancl.cn串連，請稍等……

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 "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%\AppData\Roaming\Microsoft\Network\Connections\Pbk\rasphone.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

goto:import_reg

:import_reg

echo 即將為您匯入SSTP相關註冊表檔案

@echo off

choice /t 5 /d y /n>nul

echo Windows Registry Editor Version 5.00 >import.reg

echo.>>import.reg

echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\SstpSvc\Parameters] >> import.reg

echo.>>import.reg

echo "NoCertRevocationCheck"=dword:00000001>>import.reg

echo.>>import.reg

regedit /s import.reg

del import.reg

echo 註冊表匯入完成！

choice /t 5 /d y /n>nul

del Test_VPN.vbs

echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

echo                       感謝您的耐心等待，Windows 7_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/685737

查看本欄目更多精彩內容：http://www.bianceng.cnhttp://www.bianceng.cn/OS/home/