On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array(".")
For Each strComputer In arrComputers


   inhalt =  "Computer: " & strComputer & vbcrlf


   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each objItem In colItems
      inhalt = inhalt & vbcrlf &  "AdminPasswordStatus: " & objItem.AdminPasswordStatus
      inhalt = inhalt & vbcrlf &  "AutomaticResetBootOption: " & objItem.AutomaticResetBootOption
      inhalt = inhalt & vbcrlf &  "AutomaticResetCapability: " & objItem.AutomaticResetCapability
      inhalt = inhalt & vbcrlf &  "BootOptionOnLimit: " & objItem.BootOptionOnLimit
      inhalt = inhalt & vbcrlf &  "BootOptionOnWatchDog: " & objItem.BootOptionOnWatchDog
      inhalt = inhalt & vbcrlf &  "BootROMSupported: " & objItem.BootROMSupported
      inhalt = inhalt & vbcrlf &  "BootupState: " & objItem.BootupState
      inhalt = inhalt & vbcrlf &  "Caption: " & objItem.Caption
      inhalt = inhalt & vbcrlf &  "ChassisBootupState: " & objItem.ChassisBootupState
      inhalt = inhalt & vbcrlf &  "CreationClassName: " & objItem.CreationClassName
      inhalt = inhalt & vbcrlf &  "CurrentTimeZone: " & objItem.CurrentTimeZone
      inhalt = inhalt & vbcrlf &  "DaylightInEffect: " & objItem.DaylightInEffect
      inhalt = inhalt & vbcrlf &  "Description: " & objItem.Description
      inhalt = inhalt & vbcrlf &  "Domain: " & objItem.Domain
      inhalt = inhalt & vbcrlf &  "DomainRole: " & objItem.DomainRole
      inhalt = inhalt & vbcrlf &  "FrontPanelResetStatus: " & objItem.FrontPanelResetStatus
      inhalt = inhalt & vbcrlf &  "InfraredSupported: " & objItem.InfraredSupported
      strInitialLoadInfo = Join(objItem.InitialLoadInfo, ",")
         inhalt = inhalt & vbcrlf &  "InitialLoadInfo: " & strInitialLoadInfo
      inhalt = inhalt & vbcrlf &  "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
      inhalt = inhalt & vbcrlf &  "KeyboardPasswordStatus: " & objItem.KeyboardPasswordStatus
      inhalt = inhalt & vbcrlf &  "LastLoadInfo: " & objItem.LastLoadInfo
      inhalt = inhalt & vbcrlf &  "Manufacturer: " & objItem.Manufacturer
      inhalt = inhalt & vbcrlf &  "Model: " & objItem.Model
      inhalt = inhalt & vbcrlf &  "Name: " & objItem.Name
      inhalt = inhalt & vbcrlf &  "NameFormat: " & objItem.NameFormat
      inhalt = inhalt & vbcrlf &  "NetworkServerModeEnabled: " & objItem.NetworkServerModeEnabled
      inhalt = inhalt & vbcrlf &  "NumberOfProcessors: " & objItem.NumberOfProcessors
      strOEMLogoBitmap = Join(objItem.OEMLogoBitmap, ",")
         inhalt = inhalt & vbcrlf &  "OEMLogoBitmap: " & strOEMLogoBitmap
      strOEMStringArray = Join(objItem.OEMStringArray, ",")
         inhalt = inhalt & vbcrlf &  "OEMStringArray: " & strOEMStringArray
      inhalt = inhalt & vbcrlf &  "PauseAfterReset: " & objItem.PauseAfterReset
      strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
         inhalt = inhalt & vbcrlf &  "PowerManagementCapabilities: " & strPowerManagementCapabilities
      inhalt = inhalt & vbcrlf &  "PowerManagementSupported: " & objItem.PowerManagementSupported
      inhalt = inhalt & vbcrlf &  "PowerOnPasswordStatus: " & objItem.PowerOnPasswordStatus
      inhalt = inhalt & vbcrlf &  "PowerState: " & objItem.PowerState
      inhalt = inhalt & vbcrlf &  "PowerSupplyState: " & objItem.PowerSupplyState
      inhalt = inhalt & vbcrlf &  "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
      inhalt = inhalt & vbcrlf &  "PrimaryOwnerName: " & objItem.PrimaryOwnerName
      inhalt = inhalt & vbcrlf &  "ResetCapability: " & objItem.ResetCapability
      inhalt = inhalt & vbcrlf &  "ResetCount: " & objItem.ResetCount
      inhalt = inhalt & vbcrlf &  "ResetLimit: " & objItem.ResetLimit
      strRoles = Join(objItem.Roles, ",")
         inhalt = inhalt & vbcrlf &  "Roles: " & strRoles
      inhalt = inhalt & vbcrlf &  "Status: " & objItem.Status
      strSupportContactDescription = Join(objItem.SupportContactDescription, ",")
         inhalt = inhalt & vbcrlf &  "SupportContactDescription: " & strSupportContactDescription
      inhalt = inhalt & vbcrlf &  "SystemStartupDelay: " & objItem.SystemStartupDelay
      strSystemStartupOptions = Join(objItem.SystemStartupOptions, ",")
         inhalt = inhalt & vbcrlf &  "SystemStartupOptions: " & strSystemStartupOptions
      inhalt = inhalt & vbcrlf &  "SystemStartupSetting: " & objItem.SystemStartupSetting
      inhalt = inhalt & vbcrlf &  "SystemType: " & objItem.SystemType
      inhalt = inhalt & vbcrlf &  "ThermalState: " & objItem.ThermalState
      inhalt = inhalt & vbcrlf &  "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory
      inhalt = inhalt & vbcrlf &  "UserName: " & objItem.UserName
      inhalt = inhalt & vbcrlf &  "WakeUpType: " & objItem.WakeUpType

   Next
Next

'################## Datei schreiben ################################
logdatei = "wmi.txt"       ' Pfad zur Logdatei
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(logdatei, True)
a.Write(inhalt)
a.Close

Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
        WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
        Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
        & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function