Создание события в WBEM (WMI)

Sub main()
    Dim WMI As Object, Jobs As Object, Job
    
    Set WMI = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\.\Root\CIMv2")
 
    Do
        DoEvents
        Set Jobs = WMI.ExecQuery("SELECT * FROM Win32_PrintJob")
        
    Loop While Jobs.Count = 0
    
    For Each Job In Jobs
        Debug.Print Job.Name
    Next
    
End Sub

'...
'здесь команда отправки на печать
dim t!: t=timer
Do
        DoEvents
        Set Jobs = WMI.ExecQuery("SELECT * FROM Win32_PrintJob")
        
Loop While Jobs.Count = 0 and timer-t < 5
'...

Dim objWMI, objCollection, objItem
Dim strMsg, strTemp, intPos
On Error Resume Next
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
If Err.Number = 0 Then
    Set objCollection = objWMI.ExecNotificationQuery _
        ("SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE Targetinstance ISA 'Win32_PrintJob'")
    If Err.Number = 0 Then
        Do
            Set objItem = objCollection.NextEvent
            If Err.Number <> 0 Then
                WScript.Echo "Ошибка " & Err.Number & " при обработке запроса." & Err.Description
                Err.Clear
                Exit Do
            End If
            strMsg = "Владелец задания: " & objItem.TargetInstance.Owner & vbNewLine
            If Err.Number <> 0 Then Err.Clear
            strTemp = objItem.TargetInstance.Name
            If Err.Number = 0 Then
                intPos = InStrRev(strTemp, ", ")
                If intPos > 0 Then strTemp = Mid(strTemp, 1, intPos - 1)
                strMsg = strMsg & "Принтер: " & strTemp & vbNewLine
            Else
                Err.Clear
            End If
            strMsg = strMsg & "Документ: " & objItem.TargetInstance.Document & vbNewLine
            If Err.Number <> 0 Then Err.Clear
            strMsg = strMsg & "Кол-во страниц: " & objItem.TargetInstance.TotalPages
            If Err.Number <> 0 Then Err.Clear
            Exit Do
        Loop
        WScript.Echo strMsg
    Else
        WScript.Echo "Ошибка " & Err.Number & " при создании подписки." & Err.Description
        Err.Clear
    End If
    Set objCollection = Nothing
Else
    WScript.Echo "Ошибка " & Err.Number & " при подключении к WMI-пространству." & Err.Description
    Err.Clear
End If
Set objWMI = Nothing
WScript.Quit 0