Windows 7下实现***连接自动创建
在完成了Windows XP下***自动创建并配置连接后，其实我们还需要对Windows 7下***自动配置做一个介绍，因为目前实际上很多企业也已经开始进行了大批量的Windows 7的使用，而且很多用户目前也在逐渐向Windows 7系统迈进，那么如何让Windows 7用户也能有不错的用户体验呢？如何简化这些用户的***创建也成为了我们需要考虑的内容，继续前面的内容我来分享一下，我在Windows 7下的配置。在Windows 7的***批处理脚本中除了实现“Windows XP下***连接自动配置批处理脚本”一文中所述的5点功能外，还实现了在TMG-***中完成的SSTP_***模式时注册表的导入，当然，我们说只有您的企业中已经安装并配置好了SSTP—***时可能您才需要导入这个注册表键值，如果仅仅是需要完成***的自动创建配置，那么也可不添加这部分的批处理脚本内容。
好，接下来，我们就一起来看看如何在Windows 7下实现***连接自动创建吧。
@echo off & color 5a
echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
echo Windows 7_***连接配置
echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
echo 配置过程中，请勿进行任何操作，以保证配置顺利完成！
echo.
echo. 祝您工作愉快、顺利！
echo.
echo 确认安装配置***请按任意键继续！
pause
cls
@echo off
echo 正在检查***1.Test.com是否存在，请稍等……
@echo off
choice /t 5 /d y /n>nul
find "***1.Test.com" %USERPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk\rasphone.pbk && goto :***2.Test.com || goto :add***1.Test.com
:***2.Test.com
@echo off
cls
echo ***1.Test.com已经存在或创建完成!
cls
echo 正在检查***2.Test.com是否存在，请稍等……
@echo off
choice /t 5 /d y /n>nul
find "***2.Test.com" %USERPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk\rasphone.pbk && goto :***3.Test.com || goto :add***2.Test.com
:***3.Test.com
@echo off
cls
echo ***2.Test.com已经存在或创建完成!
cls
echo 正在检查***3.Test.com是否存在，请稍等……
@echo off
choice /t 5 /d y /n>nul
find "***3.Test.com" %USERPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk\rasphone.pbk && goto :no || goto :add***3.Test.com
pause
:add***1.Test.com
@echo off
echo 正在创建PEKD1.Vancl.cn连接，请稍等……
echo set WshShell = CreateObject("WScript.Shell") >Test_***.VBS
echo WshShell.Run "Rasphone -a" >>Test_***.VBS
echo WScript.Sleep 500 >>Test_***.VBS
echo WshShell.SendKeys "%%+W">>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "%%+I" >>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "***1.Test.com" >>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "%%+E" >>Test_***.VBS
echo WScript.Sleep 500 >>Test_***.VBS
echo WshShell.SendKeys "***1.Test.com">>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "%%+N" >>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "%%+C" >>Test_***.VBS
start Test_***.VBS
cls
echo 正在完成***1.Test.com_***连接配置，请稍等！
ping 127.0.0.1 -n 10>nul
cls
echo ***1.Test.com连接创建完成，即将为您创建***1.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 "***1.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_***.vbs
start /wait %temp%\Test_***.vbs
cls
echo ***1.Test.com桌面快捷方式创建完成，即将为您配置***2.Test.com连接，请稍等……
ping 127.0.0.1 -n 10>nul
goto:***2.Test.com
:add***2.Test.com
echo 正在创建PEKD2.Vancl.cn连接，请稍等……
echo set WshShell = CreateObject("WScript.Shell") >Test_***.VBS
echo WshShell.Run "Rasphone -a" >>Test_***.VBS
echo WScript.Sleep 500 >>Test_***.VBS
echo WshShell.SendKeys "%%+W" >>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "%%+I" >>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "***2.Test.com" >>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "%%+E" >>Test_***.VBS
echo WScript.Sleep 500 >>Test_***.VBS
echo WshShell.SendKeys "***2.Test.com" >>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "%%+N" >>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "%%+C" >>Test_***.VBS
start Test_***.VBS
cls
echo 正在完成***2.Test.com_***连接配置，请稍等！
ping 127.0.0.1 -n 10>nul
cls
echo ***2.Test.com连接创建完成，即将为您创建***2.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 "***2.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_***.vbs
start /wait %temp%\Test_***.vbs
cls
echo ***2.Test.com桌面快捷方式创建完成，即将为您配置***3.Test.com连接，请稍等……
ping 127.0.0.1 -n 10>nul
goto:***3.Test.com
:add***3.Test.com
echo 正在创建***3.Test.com连接，请稍等……
echo set WshShell = CreateObject("WScript.Shell") >Test_***.VBS
echo WshShell.Run "Rasphone -a" >>Test_***.VBS
echo WScript.Sleep 500>>Test_***.VBS
echo WshShell.SendKeys "%%+W" >>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "%%+I" >>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "***3.Test.com" >>Test_***.VBS
echo WScript.Sleep 100>>Test_***.VBS
echo WshShell.SendKeys "%%+E" >>Test_***.VBS
echo WScript.Sleep 500 >>Test_***.VBS
echo WshShell.SendKeys "***3.Test.com" >>Test_***.VBS
echo WScript.Sleep 100 >>Test_***.VBS
echo WshShell.SendKeys "%%+N" >>Test_***.VBS
echo WScript.Sleep 100>>Test_***.VBS
echo WshShell.SendKeys "%%+C" >>Test_***.VBS
start Test_***.VBS
cls
echo 正在完成***3.Test.com_***连接配置，请稍等！
ping 127.0.0.1 -n 10>nul
cls
echo ***3.Test.com连接创建完成，即将为您创建***3.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 "***3.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_***.vbs
start /wait %temp%\Test_***.vbs
cls
echo ***3.Test.com桌面快捷方式创建完成.
del Test_***.VBS
ping 127.0.0.1 -n 10>nul
cls
goto:check_***
:check_***
echo 即将对配置***进连接行校对，请稍后……
@echo off
choice /t 5 /d y /n >nul
echo ***1.Test.com 配置校对完成!
@echo off
choice /t 5 /d y /n>nul
echo ***2.Test.com 配置校对完成!
@echo off
choice /t 5 /d y /n>nul
echo ***3.Test.com 配置校对完成!
ping 127.0.0.1 -n 10>nul
goto:creat_pbk
:creat_pbk
echo 即将为您生成Test_***.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_***.vbs
for /f "delims=" %%i in("strdesktop=ws.SpecialFolders("desktop")") do echo %%i >>Test_***.vbs
for /f "delims=" %%i in("Set path=ws.CreateShortcut(strdesktop & "\Test_***.lnk")") do echo %%i>>Test_***.vbs
for /f "delims=" %%i in ("path.targetpath="%USERPROFILE%\AppData\Roaming\Microsoft\Network\Connections\Pbk\rasphone.pbk"") do echo %%i>>Test_***.vbs
for /f "delims=" %%i in("path.save") do echo %%i>>Test_***.vbs
cscript Test_***.vbs & del Test_***.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 >>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_***.vbs
echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
echo 感谢您的耐心等待，Windows 7_***配置完成
echo 现在您可以使用配置好的任意一个做为连接点使用***
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 系统中已存在***1.Test.com、***2.Test.com和***3.Test.com连接,按任意键退出 & pause
页:
[1]