Dim sysId as string = GetWMIProperty("Win32_ComputerSystemProduct", "UUID")
Public Function GetWMIProperty(ByVal strClass As String, ByVal strProperty As String) As String
Dim MC As New ManagementClass(strClass)
Dim MOC As ManagementObjectCollection = Nothing
Dim MOCE As ManagementObjectCollection.ManagementObjectEnumerator = Nothing
Dim PROP As Object = Nothing
Try
MOC = MC.GetInstances
MOCE = MOC.GetEnumerator
If MC.GetInstances.Count > 0 Then
MOCE.Reset()
MOCE.MoveNext()
PROP = MOCE.Current.Properties(strProperty)
If (PROP.Value IsNot Nothing) AndAlso (PROP.Type = CimType.DateTime) AndAlso (PROP.Value.ToString <> String.Empty) Then
Return CStr(ManagementDateTimeConverter.ToDateTime(PROP.Value))
ElseIf (PROP.Value IsNot Nothing) AndAlso (PROP.Type <> CimType.DateTime) Then
Return PROP.Value.ToString.Trim
Else
Return Nothing
End If
End If
Catch oE As ManagementException
Return Nothing
Finally
MC.Dispose()
If MOC IsNot Nothing Then
MOC.Dispose()
MOC = Nothing
End If
If MOCE IsNot Nothing Then
MOCE.Dispose()
MOC = Nothing
End If
If PROP IsNot Nothing Then PROP = Nothing
End Try
Return Nothing
End Function
