visual basic을 사용하여 연결 상태 표시 2010

Question

연결되어있는 연결과 해당 IP 주소를 감지하는 시각적 기본 2010 프로그램을 만들려고합니다. 예를 들어 무선 및 케이블로 연결하면 연결된 미디어와 해당 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. 

있어 내가 잘못하고 있는가? 이것이 잘못된 코드인지 아닌지 누군가가 나를 보여줄 수 있습니까?

Answer 1

클래스 ManagementObjectSearcher을 사용하는 것이 더 좋습니다. 여기에 예제 :

Private objOS As ManagementObjectSearcher 
Private objCS As ManagementObjectSearcher 
Private objMgmt As ManagementObject 
Private m_strComputerName As String 
Private m_strManufacturer As String 
Private m_StrModel As String 
Private m_strOSName As String 
Private m_strOSVersion As String 
Private m_strSystemType As String 
Private m_strTPM As String 
Private m_strWindowsDir As String 


Public Sub New() 

    objOS = New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem") 
    objCS = New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem") 
    For Each objMgmt In objOS.Get 


     m_strOSName = objMgmt("name").ToString() 
     m_strOSVersion = objMgmt("version").ToString() 
     m_strComputerName = objMgmt("csname").ToString() 
     m_strWindowsDir = objMgmt("windowsdirectory").ToString() 
    Next 

그냥에 쿼리를 변경 : SELECT * FROM Win32_NetworkAdapterConfiguration