[VB.NET] WMI Acces

[Vlachs]

Imports System.Management
Public Class Resources
    Public Shared Function WMI(ByVal location As String, ByVal query_term As String, ByVal value As String) As String
        Dim Result = String.Empty
        Try
            Dim WmiSelect As New ManagementObjectSearcher(location, query_term)
            For Each WmiResults As ManagementObject In WmiSelect.Get()
                Result = WmiResults.GetPropertyValue(value).ToString
                If (Not String.IsNullOrEmpty(Result)) Then
                    Exit For
                End If
            Next
        Catch err As ManagementException
            MessageBox.Show(err.Message)
        End Try
        Return Result
    End Function
End Class

Exemplu:

 Label1.Text = "Video Card: " & Resources.WMI("root\CIMV2", "SELECT * FROM Win32_VideoController", "Name")
        Label2.Text = "Processor: " & Resources.WMI("root\CIMV2", "SELECT * FROM Win32_Processor", "Name")

Trebuie sa adaugati System.Management ca referinta inainte de a putea accesa datele.

[Maximus]

Win32 Classes (Windows)

[Maximus]

am incercat sa o fac pt vb6, dar fara succes, ai ceva asemanator pentru vb6 ?

[Vlachs]

am incercat sa o fac pt vb6, dar fara succes, ai ceva asemanator pentru vb6 ?

Nup, nu am mai scris in vb6 de secole:))