strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'Application'")
numEvents=colLoggedEvents.Count
if numEvents > 0 then
Wscript.Echo "Кол-во событий: " & numEvents
For Each objEvent in colLoggedEvents
Wscript.Echo "Category: " & objEvent.Category
Wscript.Echo "Computer Name: " & objEvent.ComputerName
Wscript.Echo "Event Code: " & objEvent.EventCode
Wscript.Echo "Message: " & objEvent.Message
Wscript.Echo "Record Number: " & objEvent.RecordNumber
Wscript.Echo "Source Name: " & objEvent.SourceName
Wscript.Echo "Time Written: " & objEvent.TimeWritten
Wscript.Echo "Event Type: " & objEvent.Type
Wscript.Echo "User: " & objEvent.User
Next
Wscript.Echo "Журнал прочтён."
else
Wscript.Echo "Журнал пуст."
end if
как работать с eventlog из под ХР
подскажите как работать с eventlog в ХР, а то я делал как в MSDN и в VB6 и в Делфи но не воркает: структура не заполняется.
Просьба не спрашивать как я это делал, а писать свой рабочий вариант или что-то подобное
Просьба не спрашивать как я это делал, а писать свой рабочий вариант или что-то подобное
Цитата:
Originally posted by yny
подскажите как работать с eventlog в ХР, а то я делал как в MSDN и в VB6 и в Делфи но не воркает: структура не заполняется.
Просьба не спрашивать как я это делал, а писать свой рабочий вариант или что-то подобное
подскажите как работать с eventlog в ХР, а то я делал как в MSDN и в VB6 и в Делфи но не воркает: структура не заполняется.
Просьба не спрашивать как я это делал, а писать свой рабочий вариант или что-то подобное
А на VBS через вызов функций WMI не пробовали?
Вот пример чтения журнала приложений из System Administration Scripting Guide:
Код:
А вот пример записи события в тот же журнал из справки по Windows Script Host:
Код:
Set WshShell = CreateObject("WScript.Shell")
WshShell.LogEvent 4, "Test event!"
Wscript.Echo "Готово."
WshShell.LogEvent 4, "Test event!"
Wscript.Echo "Готово."
Оба примера проверены на Windows 2000 Pro/XP Pro/Server 2003.
Цитата:
Originally posted by Dmitrii
А на VBS через вызов функций WMI не пробовали?
Вот пример чтения журнала приложений из System Administration Scripting Guide:
А вот пример записи события в тот же журнал из справки по Windows Script Host:
Оба примера проверены на Windows 2000 Pro/XP Pro/Server 2003.
А на VBS через вызов функций WMI не пробовали?
Вот пример чтения журнала приложений из System Administration Scripting Guide:
Код:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'Application'")
numEvents=colLoggedEvents.Count
if numEvents > 0 then
Wscript.Echo "Кол-во событий: " & numEvents
For Each objEvent in colLoggedEvents
Wscript.Echo "Category: " & objEvent.Category
Wscript.Echo "Computer Name: " & objEvent.ComputerName
Wscript.Echo "Event Code: " & objEvent.EventCode
Wscript.Echo "Message: " & objEvent.Message
Wscript.Echo "Record Number: " & objEvent.RecordNumber
Wscript.Echo "Source Name: " & objEvent.SourceName
Wscript.Echo "Time Written: " & objEvent.TimeWritten
Wscript.Echo "Event Type: " & objEvent.Type
Wscript.Echo "User: " & objEvent.User
Next
Wscript.Echo "Журнал прочтён."
else
Wscript.Echo "Журнал пуст."
end if
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'Application'")
numEvents=colLoggedEvents.Count
if numEvents > 0 then
Wscript.Echo "Кол-во событий: " & numEvents
For Each objEvent in colLoggedEvents
Wscript.Echo "Category: " & objEvent.Category
Wscript.Echo "Computer Name: " & objEvent.ComputerName
Wscript.Echo "Event Code: " & objEvent.EventCode
Wscript.Echo "Message: " & objEvent.Message
Wscript.Echo "Record Number: " & objEvent.RecordNumber
Wscript.Echo "Source Name: " & objEvent.SourceName
Wscript.Echo "Time Written: " & objEvent.TimeWritten
Wscript.Echo "Event Type: " & objEvent.Type
Wscript.Echo "User: " & objEvent.User
Next
Wscript.Echo "Журнал прочтён."
else
Wscript.Echo "Журнал пуст."
end if
А вот пример записи события в тот же журнал из справки по Windows Script Host:
Код:
Set WshShell = CreateObject("WScript.Shell")
WshShell.LogEvent 4, "Test event!"
Wscript.Echo "Готово."
WshShell.LogEvent 4, "Test event!"
Wscript.Echo "Готово."
Оба примера проверены на Windows 2000 Pro/XP Pro/Server 2003.
Цитата:
Originally posted by yny
НЕТ НА VBS не пробовал т.к. он, обычно, медленнее чем обычный VB, но за пример спаибо обязательно попробую (в течении недели), однако всёж хотелось бы увидеть реализацию в VB или VC++ или Делфи!