Вопрос : автоматический журнал обеспеченностью окон вопроса для специфически удостоверения личности случая

hi

I бежало с powershell для ярмарки пока теперь, поэтому мое vbscript немного ржавыми.!
I am запланировать работу побежать на сервере 2003 обменом наследия и ехпортировать 1009 случаев от обеспеченности log.

I am ревизуя инфраструктуру наследия для того чтобы обеспечить недавн, котор проникли потребителей не достигает их старых почтовых ящиков по ошибке - эти конечно будут закрыны коротк но для недели или поэтому меня хотел был к audit.

I am dumpeventlog.vbs но я хотел был бы что-то я могу автоматическ-план-график специфически ехпортировать 1009 случаев от

I am журнала обеспеченностью только… способного для того чтобы установить что-нибыдь в окружающую среду наследия и powershell будет

Cheers
Bry указателей помощи no-go.

Any очень оцененное… class=

Ответ : автоматический журнал обеспеченностью окон вопроса для специфически удостоверения личности случая

попытайтесь это vb

Как раз instantiate strTxtFile перемеююый с курсом для архива результата. Recoment iий с выдвижением CSV

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20:

strComputer = «.» Установите objWMIService = GetObject («winmgmts: » & «{impersonationLevel=impersonate}! \ \» & strComputer & «\ корень \ cimv2») Установите colLoggedEvents = objWMIService.ExecQuery («выберите * от Win32_NTLogEvent где Logfile = «применение» и» & «EventCode = «1009» ") strResult = «категория, имя компьютера, Кодий случая, сообщение, рекордное число, имя источника, написанное время, время случая, потребитель» & VbCrLf Для каждого objEvent в colLoggedEvents strResult = strResult & objEvent.Category & «,» & objEvent.ComputerName & «,» & objEvent.EventCode & «,» & заменяют ть (objEvent.Message, VbCrLf, "") & «,» & objEvent.RecordNumber & «,» & objEvent.SourceName & «,» & objEvent.TimeWritten & «,» & objEvent.Type & «,» & objEvent.User & VbCrLf Затем Const ForReading = 1 Const ForWriting = 2 strTxtFile = «КУРС АРХИВА ТЕКСТА РЕЗУЛЬТАТОВ» Установите objFSO = CreateObject («Scripting.FileSystemObject») Установите objFile = objFSO.OpenTextFile (strTxtFile, ForWriting, поистине) objFile.Write (strResult) objFile.Close