[问题求助] VBS何检验WAP和NET方式上网？

kmcc123

下面的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
复制代码

caruko

这个，没必要吧。
是WAP，还是NET看默认网关就行了。

你在WAP跟NET上网时，分别在CMD输入
route print
然后看看 Default Gateway 这一行有什么区别.

kmcc123

这个，没必要吧。
是WAP，还是NET看默认网关就行了。

你在WAP跟NET上网时，分别在CMD输入
route print
然后看看 Default Gateway 这一行有什么区别.
caruko 发表于 2011-5-7 22:30

如何你包的WAP接人点的卡，这个非常必要的，其中上错接入点的有不少啊，。。。。
秋后算帐中，投诉的不少呀。。。。。
所以拨完网后还可个验证一下。。。。
确保你上的是WAP拨上的。。。。

你的方法我不知如何判断我上的由什么拨上的。。。。。

kmcc123

还是顶一下

caruko

原来你是用 代理来测试。
直接测试这2个IP的80端口是否开启就可以了?
VBS可以做到，但我不了解，TELNET难以取得结果，NC则是第三方，需要去下载。

kmcc123

原来你是用 代理来测试。
直接测试这2个IP的80端口是否开启就可以了?
VBS可以做到，但我不了解，TELNET难以取得结果，NC则是第三方，需要去下载。
caruko 发表于 2011-5-18 03:13

NC是什么？

用默认网关 测试NET和WAP都是10开头的IP。。。。不懂区分

还有更好的方法吗？