Imports System
Imports System.Management
Imports System.Windows.Forms
Module Module1
    Sub Main()
        Dim Username
        Dim Domain
        Dim NumberOfCPU
 
        Try
            Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT" & _
              "* FROM Win32_ComputerSystem")
            For Each queryObj As ManagementObject In searcher.Get()
                Domain = queryObj("Domain")
                NumberOfCPU = queryObj("NumberOfProcessors")
                Username = queryObj("UserName")
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & _
              err.Message)
        End Try
 
        ' Schreibt die Daten in die Datenbank
        Dim db
        Dim rs2
        db = CreateObject("adodb.connection")
        db.Open("provider = microsoft.jet.oledb.4.0;data source =" & _
          "D:\Inventory.mdb")
        rs2 = CreateObject("ADODB.Recordset")
        rs2.Locktype = 3
        rs2.Cursortype = 1
        rs2.Open("SELECT * FROM inventory", db)
        rs2.find("name='" & Environment.MachineName & "'")
        If rs2.EOF Then
            ' Eintrag wurde nicht gefunden, neu anlegen...
            rs2.close()
            rs2 = CreateObject("ADODB.Recordset")
            rs2.Locktype = 3
            rs2.Cursortype = 1
            rs2.Open("SELECT * FROM inventory where id=-1", db)
            rs2.addNew()
            rs2.fields("name") = Environment.MachineName
        End If
        ' Diese Felder werden immer neu geschrieben...
        rs2.fields("NumberOfCPU") = NumberOfCPU
        rs2.fields("Domain") = Domain
        rs2.fields("username") = Username
        rs2.update()
    End Sub
 
End Module