用vbs判断网卡状态.docx

用 vbs 判断网卡状态，弹出相应提示 这两天朋友让我帮他用 vbs 弄个网卡状态检测程序， 我也是为了省事就给他弄了一个， 将我的源码分享出来，欢迎拍砖！ ！！ Dim objWMIService Set objWMIService = Getobject(winmgmts:\\.\root\cimv2) Dim objNetworks,objNetwork whereSet objNetworks = objWMIService.execQuery(Select * From Win32_NetworkAdapter NetConnectionID=本地连接 ) where 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