Newb WMI: Check Before Running Query

[dglienna]

For some reason this doesn't report the memory in my server, but it doesn't error out. Google for scriptomatic2. It will write WMI scripts for you

On Error Resume Next
 
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
 
arrComputers = Array("Server.","Laptop.")
For Each strComputer In arrComputers
   WScript.Echo
   WScript.Echo "=========================================="
   WScript.Echo "Computer: " & strComputer
   WScript.Echo "=========================================="
 
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_MemoryArray", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
 
   For Each objItem In colItems
      WScript.Echo "Access: " & objItem.Access
      strAdditionalErrorData = Join(objItem.AdditionalErrorData, ",")
         WScript.Echo "AdditionalErrorData: " & strAdditionalErrorData
      WScript.Echo "Availability: " & objItem.Availability
      WScript.Echo "BlockSize: " & objItem.BlockSize
      WScript.Echo "Caption: " & objItem.Caption
      WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
      WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
      WScript.Echo "CorrectableError: " & objItem.CorrectableError
      WScript.Echo "CreationClassName: " & objItem.CreationClassName
      WScript.Echo "Description: " & objItem.Description
      WScript.Echo "DeviceID: " & objItem.DeviceID
      WScript.Echo "EndingAddress: " & objItem.EndingAddress
      WScript.Echo "ErrorAccess: " & objItem.ErrorAccess
      WScript.Echo "ErrorAddress: " & objItem.ErrorAddress
      WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
      strErrorData = Join(objItem.ErrorData, ",")
         WScript.Echo "ErrorData: " & strErrorData
      WScript.Echo "ErrorDataOrder: " & objItem.ErrorDataOrder
      WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
      WScript.Echo "ErrorGranularity: " & objItem.ErrorGranularity
      WScript.Echo "ErrorInfo: " & objItem.ErrorInfo
      WScript.Echo "ErrorMethodology: " & objItem.ErrorMethodology
      WScript.Echo "ErrorResolution: " & objItem.ErrorResolution
      WScript.Echo "ErrorTime: " & WMIDateStringToDate(objItem.ErrorTime)
      WScript.Echo "ErrorTransferSize: " & objItem.ErrorTransferSize
      WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
      WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
      WScript.Echo "Name: " & objItem.Name
      WScript.Echo "NumberOfBlocks: " & objItem.NumberOfBlocks
      WScript.Echo "OtherErrorDescription: " & objItem.OtherErrorDescription
      WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
      strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
         WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
      WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
      WScript.Echo "Purpose: " & objItem.Purpose
      WScript.Echo "StartingAddress: " & objItem.StartingAddress
      WScript.Echo "Status: " & objItem.Status
      WScript.Echo "StatusInfo: " & objItem.StatusInfo
      WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
      WScript.Echo "SystemLevelAddress: " & objItem.SystemLevelAddress
      WScript.Echo "SystemName: " & objItem.SystemName
      WScript.Echo
   Next
Next
 
 
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