用vbs判断网卡状态

这两天朋友让我帮他用vbs弄个网卡状态检测程序，我也是为了省事就给他弄了一个，下面将我的源码分享出来，欢迎拍砖！！！

Dim objWMIService

Set objWMIService = Getobject(\"winmgmts:\\\\.\\root\\cimv2\") Dim objNetworks,objNetwork

Set objNetworks = objWMIService.execQuery(\"Select * From Win32_NetworkAdapter where NetConnectionID='本地连接'\")

For Each objNetwork In objNetworks select case objNetwork.NetConnectionStatus case 0

msgbox \"Disconnected 网卡已被禁用\" case 1 msgbox \"Connecting 正在连接网络\" case 2

msgbox \"Connected 网络连接正常\" case 3 msgbox \"Disconnecting 正在断开连接\" case 4 msgbox \"Hardware not present 网卡硬件不存在\" case 5 msgbox \"Hardware disabled 网卡硬件不可用\" case 6 msgbox \"Hardware malfunction\" case 7

msgbox \"Media disconnected 网络连接没有插好\" case 8 msgbox \"Authenticating 网络连接正在认证\" case 9 msgbox \"Authentication succeeded 网络连接认证成功\" case 10 msgbox \"Authentication failed 网络连接认证失败\" case 11 msgbox \"Invalid address\" case 12 msgbox \"Credentials required\" end select Next

本人英文底子不好，对网卡的这13种状态也不是很了解，大家就将就着看看吧，常用的状态一般就是0、2、7这三种状态常见。我用的是XP sp3运行测试没问题，win7让个朋友帮

测试的，他说没问题，具体各位看官请自行测试，欢迎拍砖！！！