我尝试创建 Visual Basic 2010 程序来检测连接的连接及其 IP 地址。例如,如果我使用无线和电缆连接,它将显示连接的媒体及其 IP 地址。我从 WMI 代码创建者那里获取的代码
Dim strComputer = "."
Dim Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapterConfiguration",,48)
For Each objItem in colItems
Wscript.Echo "-----------------------------------"
Wscript.Echo "Win32_NetworkAdapterConfiguration instance"
Wscript.Echo "-----------------------------------"
If isNull(objItem.IPAddress) Then
Wscript.Echo "IPAddress: "
Else
Wscript.Echo "IPAddress: " & Join(objItem.IPAddress, ",")
End If
然后我收到错误消息
'colItems' is not declared. It may be inaccessible due to its protection level.
我做错了吗?有人可以告诉我这是否是错误的代码吗?