ссылка - Microsoft WMI Scripting V1.X Library
Dim locator As WbemScripting.SWbemLocator
Dim Service As WbemScripting.SWbemServices
Dim myob As WbemScripting.SWbemObjectSet
Dim myxz As WbemScripting.SWbemObject
Dim CtDist As Long
Dim PrStr As String
PrStr = "Acrobat*" 
Set locator = New WbemScripting.SWbemLocator
Set Service = locator.ConnectServer
' язык WQL - почти SQL
Set myob = Service.ExecQuery("SELECT *   FROM Win32_PrintJob ")
'Like в WQL работает странно
CtDist =  0 
For Each myxz In myob
 If myxz.Name Like PrStr Then
   CtDist =  1 
   'набор полей MSDN - Win32_PrintJob
   Debug.Print myxz.Name; "  "; myxz.Caption; "  "; myxz.jobstatus
 End If
Next myxz
Debug.Print "----- число заданий в самогонном аппарате--->"; CtDist
Set myob = Nothing
Set Service = Nothing
Set locator = Nothing