Получить HWID (processorID, MotherboardSerialNumber)

Question

Я работаю над проектом, и моя проблема, когда я пытаюсь получить серийный номер материнской платы полностью пустым.

Dim HWID As String = String.Empty 
Dim mcl As New ManagementClass("win32_processor") 
Dim MOBC As ManagementObjectCollection = mcl.GetInstances() 

For Each mob As ManagementObject In MOBC 
    If HWID = "" Then 
     HWID = mob.Properties("processorID").Value.ToString() 
     Exit For 
    End If 

Next 
Dim mboardstr As String = Nothing 
Dim mbs As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_BaseBoard") 
For Each mo As ManagementObject In mbs.Get 
    mboardstr = mboardstr + mo("SerialNumber").ToString 
Next 
MsgBox(mboardstr) 

HWID - processorid это окей, но я действительно хочу серийник материнской платы тоже, потому что после того, что я положил его в одну строку и отправить его на удаленный хост.

Почему у меня нет «серийного номера»? Благодаря!

Answer 1

Не все данные доступны для всех систем. В этом случае могут быть другие данные перед текстом, который вы ищете, что предотвращает выбор строки. WMI довольно медленный, поэтому вы можете ускорить его, просто запросив, что вы после (vs SELECT *).

Некоторые из этих вещей должны быть утилизированы, чтобы освободить ресурсы, и вы должны проверить некоторые из вещей, чтобы убедиться, что они не равны нулю перед их использованием:

Dim mboardstr As String = "" 
Dim query As String = "Select SerialNumber From Win32_BaseBoard" 

Using mbs As ManagementObjectSearcher = New ManagementObjectSearcher(query) 
    For Each mo As ManagementObject In mbs.Get 
     For Each pd As PropertyData In mo.Properties 
      ' should be only one 
      If pd.Name = "SerialNumber" Then 
       ' value is object, test for Nothing 
       If pd.Value IsNot Nothing Then 
        mboardstr = pd.Value.ToString 
       End If 
       Exit For 
      End If 
     Next 
    Next 
End Using 

Вы также можете установить контрольную точку, и изучить pd.Value, чтобы увидеть, есть ли ведущие nuls или другие непечатаемые управляющие символы (довольно часто). То, что вы после, может быть «позади».