下面的VBS是拨移动WAP方式上网的，过程如下：
写入额外的初始化命令---》拨号----》删除额外的初始化命令
我想完成上面后检验是否真WAP拨号上网
如果是则提示：电脑成功通过WAP方式拨上网络。5分生关闭
否则检验是否真NET拨号上网
提示：电脑成功通过NET方式拨上网络。5分生关闭
注：我现在是通过QQ那个代理检验是否真WAP拨号上网
下面的 中国移动WAP 是拨号的连接名
CMCCConnectWAP.vbs- Dim OperationRegistry
- Set OperationRegistry=WScript.CreateObject("WScript.Shell")
- MyIint = "AT+CGDCONT=1,""IP"",""CMWAP"""
- RegPath = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96D-E325-11CE-BFC1-08002BE10318}\0000\UserInit"
- OperationRegistry.RegWrite RegPath,MyIint
- Dim Wsh
- Set Wsh = WScript.CreateObject("WScript.Shell")
- Wsh.Run "ping 127.0.0.1 -n 15",0,True
- Wsh.Run "rasdial 中国移动WAP *98*1#",0,True
- Set Wsh=NoThing
- OperationRegistry.RegDelete(RegPath)
- set OperationRegistry=nothing
- WScript.quit
安装(移动WAP).bat- @echo off
-
- echo 正在安装开机加额外的初始化命令自动拨号(移动WAP)
-
- echo 新建目录
- md "%c:\Program% Files\AutoConnect"
-
- echo 复制文件
- copy CMCCConnectWAP.vbs "%c:\Program% Files\AutoConnect"
-
- echo 删除自启
- REG DELETE HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v CMCCConnectNET /f
-
- echo 加入自启
- REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v CMCCConnectWAP /d "C:\\Program Files\\AutoConnect\\CMCCConnectWAP.vbs" /f
-
- echo 加入到可信任程序
- echo. & pause
| 
发表于 2011-5-6 15:52
| 
