Windows 7下实现***连接自动创建

yxxs123

在完成了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 [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_***.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