Developing.ru

Скрипт взят из Script Center.chm.
Set objConn = CreateObject("ADODB.Connection")
Set objRS = CreateObject("ADODB.Recordset")

objConn.Open "DSN=Eventsprint;"
objRS.CursorLocation = 3
objRS.Open "SELECT * FROM eventsprn" , objConn, 3, 3
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colRetrievedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'System'" _
& " and SourceName = 'Print'")

For Each objEvent in colRetrievedEvents
objRS.AddNew
objRS("Category") = objEvent.Category
objRS("EventCode") = objEvent.EventCode
objRS("User") = objEvent.User
objRS("TimeWritten") = objEvent.TimeWritten
objRS("ComputerName") = objEvent.ComputerName
objRS("Type") = objEvent.Type
objRS("Message") = objEvent.Message
objRS.Update
Next

objRS.Close
objConn.Close

Создал файл Access eventsprint.mdb. Зарегистрировал его в ODBC. В файле создал таблицу eventsprn с полями: Category, EventCode, User и тд..
Запускаю скрипт, он выдает ошибку
Script: D:\prnevn.vbs
Line: 25
Char: 5
Error: Data provider or other service returned an E_FAIL status.
Code: 80004005
Source: Microsoft Cursor Engine

Если убрать строку objRS("Message") = objEvent.Message , то скрипт нормально отрабатывает и заполняет все поля.

Подскажите, как мне добавить описание события в поле Message?

Скорее всего objEvent.Message длинее 255 знаков.
В Access Message зделайте Memo

Спасибо!!!! Сработало