копировать печатные записи из журнала событий на сервере 2008 с помощью VBScript - PullRequest
Новая
       31

копировать печатные записи из журнала событий на сервере 2008 с помощью VBScript

1 голос
/ 16 февраля 2012

Мне нужно скопировать файлы журнала, которые являются заданиями на печать, на Windows Server 2008 r2 x64 с vbscript.Код, который у меня есть, теперь работает с сервером 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
...