使用vbscript从server 2008上的eventlog复制打印记录

Question

我需要使用vbscript在Windows Server 2008 r2 x64上复制作为打印作业的日志文件。 我现在使用的代码服务器2003.当我在2008服务器上运行它时，我没有收到任何错误，但文件中没有任何内容。这是代码

Set ObjFso = CreateObject("Scripting.FileSystemObject")


StrFileName = "C:\printer report test\eventlog_norprtfl1.tsv"
strComputer = "servername"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where LogFile='Microsoft-Windows-PrintService/Operational' and EventCode='307'") 

Set ObjFile = ObjFso.CreateTextFile(StrFileName)


For Each objItem in colLoggedEvents
objFile.WriteLine("x64^"&objItem.User&"^"&objItem.TimeWritten&"^"&objItem.Message)

Next