Скрипт создает фильтр+потр-ль,но не хочет записывать в файл

Dim objlocator, objserver, ObjEventFilterClas, objfilter, objconsumerclas, objconsumer,objFilterEvent,objConsumer2,objBindingClass,objBinding
Set objlocator = CreateObject ("WbemScripting.SWbemLocator")
Set objserver = objlocator.ConnectServer ("localhost", "root\cimv2")
Set ObjEventFilterClas = objserver.Get ("__eventfilter")
Set objfilter = ObjEventFilterClas.SpawnInstance_ () 
    objfilter.name = "monitoringjurnal"
    objfilter.querylanguage = "WQL"
    objfilter.query = (" select * from __instancecreationevent  " & _
    " within 10 where targetinstance isa 'win32_ntlogevent' and " & _
    " targetinstance.logfile='security' and targetinstance.eventcode='560'")
objfilter.put_ ()
If Err.Number <> 0 Then
    wscript.echo "oshibka v filtre"
    Else 
    WScript.Echo "filtr sozadn"
End If
'-------------------------------------
Set objconsumerclas = objserver.Get ("Logfileeventconsumer")
Set objconsumer = objconsumerclas.spawninstance_
    objconsumer.name = "jurnallog"
    objconsumer.filename = "c:\jurnallog.txt"
    objconsumer.text = %targetinstance.eventcode% & " " & %tzrgetinstance.username% & "  " &  Date & "  " & Time & "  " & Isunicode & "  " & _
    "попытка доступа в обьект"
objconsumer.Put_ ()
If err.number <> 0 Then
WScript.Echo "error"
Else WScript.Echo "consumer sozdan"
End If
'-----------------------------------------------------
Set objFilterEvent = objServer.Get ("__EventFilter.name=""monitoringjurnal""")
Set objConsumer = objServer.Get ("Logfileeventconsumer.name=""jurnallog""")
Set objBindingClass = objServer.Get ("__FilterToConsumerBinding")
Set objBinding = objBindingClass.SpawnInstance_ ()
objBinding.Filter = objFilterEvent.Path_ 
objBinding.consumer = objConsumer.Path_ 
objBinding.put_ () 
If Err.number <> 0 Then 
WScript.Echo "oshibka napisaniya scripta LOG"
Else 
WScript.Echo "binding filtra to consumer_LOG udalsya"
End If