使用vbscript从服务器2008上的eventlog复制打印记录

我需要使用vbscript复制windows server 2008 r2 x64上的打印作业日志文件。 我现在的代码适用于Server2003。当我在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

---

当您使用Windows

wbemtest

工具运行SELECT查询时，是否会得到任何结果？我以前从未使用过wbemtest工具。但我确实发现Win32\u NTlogEvent是一个类