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/

时间： 2024-12-30 19:12:17

Windows 7下实现VPN连接自动创建的相关文章

Windows系统下Oracle数据库每天自动备份_oracle

linux和unix下面使用shell可以很方便实现,如果windows环境下可以结合计划任务实现 1.创建备份目录d:\backup, 创建批处理命令Bak.bat,编写备份脚本 exp user/passwd@orcl DIRECT=Y BUFFER=100000 FILE=D:\backup\scdd%date:~0,10% OWNER=('scdd') LOG=D:\backup\data.log forfiles /p "D:\backup" /s /m *.dmp /d -

linux下怎么写一个自动创建文件夹和文件的脚本？

问题描述 linux下怎么写一个自动创建文件夹和文件的脚本? linux下怎么写一个自动创建文件夹和文件的脚本?就是说我给一个绝对路径,程序会自动帮我创建在路径中没有的文件夹和文件. 解决方案 http://blog.csdn.net/hellochenlian/article/details/37566269 -p, --parents 可以是一个路径名称.此时若路径中的某些目录尚不存在,加上此选项后,系统将自动建立好那些尚不存在的目录,即一次可以建立多个目录; 解决方案二: mkdir 加上

实现Windows XP下VPN连接自动配置的批处理脚本

前几天在完成了TMG_VPN的配置后,一直在想能否更简化用户的操作呢?最好是通过脚本的方式让用户不用做任何配置,只需点击就可以完成对所有VPN的配置,经过一段时间的编写和修改后,今天晚上终于完成了Window XP下VPN自动配置的脚本,以前没怎么写过,第一次写,遇到了不少问题,不过经过自己的修改后已经完成了如下功能: 1.自动创建所有VPN服务器. 2.创建所有VPN服务器对应的桌面快捷方式. 3.生成PBK文件的快捷方式. 4.对已有VPN连接进行校对,判断是否已经有过配置操作. 5.配置完

如何在Windows 7下通过VPN加域

最近刚刚完成了公司VPN迁移,把旧的Windows 平台VPN迁移到了TMG_VPN下,这次迁移实际上完成了将原来的NAT模式改成了路由模式,使用起来感觉还是不错的,回家后不禁想起,如果我们在家电脑重新安装或是其它原因需要重新加入公司的域的话,又该怎办呢?总不能再拿到公司去加个域吧,仔细琢磨了一下,利用VPN连接功能实现了即使你不在单位也可以实现家域,并从域内获取你的相关帐号信息,完成首次加域登录,方法在这里我也总结了一下,比较简单. 1.首先以本地管理员帐号登录到您的Windows 7系统中.

巧设Windows 2008防火墙 控制VPN连接权限

为了尽可能地降低组网费用,同时不能影响移动办公的需求,某单位决定在局域网的文件服务器中安装配置VPN服务器,这样可以让单位可信任员工随时随地通过VPN网络连接,访问单位文件服务器中的重要数据内容,并且这种访问方式安全性也能得到保证,可谓一举两得!最近,单位有一系列很重要的文件存放在VPN服务器中,单位领导希望这些文件只能允许某个特定的员工通过VPN连接进行访问,其他任何员工都无权访问:面对这样的访问需求,我们该如何才能实现呢?其实,要实现上面的网络访问目的,我们可以有多种方法可供选用:不过,在安

windows系统下oracle数据库定时自动备份

  实现目的:为避免数据丢失或错误,对数据库数据的定时备份 实现方式:oracle导出+windows 任务 完成 学习方法:先知其然,后知其所以然 实现过程: 1. 建立文件 backup.bat (自定义文件名.bat) @echo off REM ########################################################### REM # Windows Server 2003下Oracle数据库自动备份批处理脚本 REM ##############

64位Windows 2003下ASP无法连接Access数据库

症状:64位Windows 2003下面配置好IIS后,运行ASP页面,如果里面有连接access数据库的代码,就会出现错误警告: ADODB.Connection 错误 '800a0e7a' 未找到提供程序.该程序可能未正确安装. /连接"网站内容管理"数据库.asp,行 2 原因:IIS是以64位方式来运行的,它只能加载64位模块,不能加载32位模块.而访问access数据库的jet引擎只有32位的,没有64位,因此无法被IIS加载. 解决思路:让IIS以32位方式运行,从而可以调

fedora 16下配置VPN连接的方法

1.在下图所示位置,选择"网络设置": 2.在"网络"属性页中,单击下图所示"+"号: 3.在下图所示页面中,单击"创建"按钮:

Windows 10下查看网络连接状态(ip地址 mac dns信息)

如果你不知道自己电脑的网络连接信息我们可以有许多办法来查看,下面我们介绍直接在图形界面中的一个操作步骤了. 1.查看当前连接的无线网络及可连接的无线网络列表,点击任务栏右下角网络连接的图标,如下图所示: 2.查看当前网络连接的IP地址.网关.DNS服务器地址.MAC地址等信息,在任务栏右下角网络图标右击,选择"打开网络和共享中心": 点击现在连接的网络: 点击"详细信息": 即可看到IP地址等详细信息 方法二,使用命令 1.在win10搜索框我们搜索cmd然后右击以