Handling null WMI query in vbscript [duplicate] - vbscript

Question

This question already has an answer here:
VBScript: how to inspect validity of SWbemObjectSet?
(1 answer)
Closed 2 years ago.
I am trying to handle the case where colItems will be null because the Computer does not have the WMI class Win32_TSLicenseKeyPack. However all my attempts have been unsuccessful.
Here is my working code without the null check:
Set oWsh = WScript.CreateObject("WScript.Shell")
Set oWshSysEnv = oWsh.Environment("PROCESS")
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = GetObject("WinMgmts:root/cimv2").ExecQuery("select AvailableLicenses,IssuedLicenses,ProductVersion,TypeAndModel from Win32_TSLicenseKeyPack")
For Each objItem In colItems
strTS = objItem.ProductVersion & " | " & objItem.TypeAndModel & " | " & objItem.AvailableLicenses & " | " & objItem.IssuedLicenses
wscript.echo strTS
Next
I have been trying functions such as IsEmpty, IsObject or If with <> "" but again without success.
As suggested in a comment, I tried If not colItems is nothing then
But if I do that I obtain the following error for the following code:
Set oWsh = WScript.CreateObject("WScript.Shell")
Set oWshSysEnv = oWsh.Environment("PROCESS")
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = GetObject("WinMgmts:root/cimv2").ExecQuery("select AvailableLicenses,IssuedLicenses,ProductVersion,TypeAndModel from Win32_TSLicenseKeyPack")
If not colItems is nothing then
For Each objItem In colItems
strTS = objItem.ProductVersion & " | " & objItem.TypeAndModel & " | " & objItem.AvailableLicenses & " | " & objItem.IssuedLicenses
wscript.echo strTS
Next
Else
wscript.echo "is empty"
End If

Answer 1

Here is the working code with the .count function as suggested by lankymarte
Set oWsh = WScript.CreateObject("WScript.Shell")
Set oWshSysEnv = oWsh.Environment("PROCESS")
Set colItems = GetObject("WinMgmts:root/cimv2").ExecQuery("select AvailableLicenses,IssuedLicenses,ProductVersion,TypeAndModel from Win32_TSLicenseKeyPack")
dim i: i = getCount(colItems)
if (i < 0) then
wscript.echo "empty"
else
For Each objItem In colItems
strTS = objItem.ProductVersion & " | " & objItem.TypeAndModel & " | " & objItem.AvailableLicenses & " | " & objItem.IssuedLicenses
wscript.echo strTS
Next
end if
function getCount(wmiCol)
on error resume next
getCount = colItems.Count
if (err.number <> 0) then getCount = (-1)
on error goto 0
end function