Newb WMI: Check Before Running Query

Hello :wave:

I am working on a small app to get memory info from machines on a network. It works well, but every now and then it hits a machine it can't connect to (no admin access or various reasons), and I get an error at:

VB Code:

Set objWMIService = GetObject("winmgmts:"  & "{impersonationLevel=impersonate}!\\" & lstMachines.List(i) & "\root\cimv2")

I'm not familiar with WMI :( (I found this code in a search here). My question is, is there a way to check if it can get the info it needs off the machine BEFORE I set objWMIService to it? I tried things like "If GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & lstMachines.List(i) & "\root\cimv2") = 0" before it, but of course as I have no clue what I'm doing it generates an "Object Doesn't Support This Property of Method" error :blush:

Thanks for any help :)

You can at least have some Error Handler in place and "report" offencive machines to say some local file so you can later troubleshoot it.

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

VB Code:

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