problems with vb-script to retrieve eventlogs and write it into an mdb

[melnib00ne]

Hello,

can anyone help me to work on the script below ? it came the errormessage:

Zeile: 20

Zeichen: 5

Fehler: Fehler bei einem aus mehreren Schritten bestehenden Vorgang. Prüfen Sie die einzelnen Statuswerte

Code: 80040E21

Quelle: Microsoft Cursor Engine

and thats the vb script:

Set objConn = CreateObject("ADODB.Connection")
Set objRS = CreateObject("ADODB.Recordset")

objConn.Open "DSN=EventLogs;"
objRS.CursorLocation = 3
objRS.Open "SELECT * FROM EventTable" , objConn, 3, 3
strComputer = "."

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

Set colRetrievedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent")

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

objRS.Close
objConn.Close

where is the error ? i dont knew....

thanks

/kr

Melnib00ne

[IcemanND]

Not sure exactly what your error is, but did you create the database with the table and then create a DSN to it? If not see (last half): http://www.microsoft.com/technet/scriptcen...k.mspx?mfr=true

Wasn't sure if you got the scrit from there or the scriptcenter.

[melnib00ne]

Hi,

thanks for answer. Yes, i'am sure, thats the same script. I have an dsn to the access database, the table in the access database is the same... i copy and paste the script from microsoft also in an new script, but the errormessage was the same..... any ideas ?

/kr

Melniboone

[fizban2]

doubl check the field types for each of the fields you are entering, it is failing on the update so you are looking at a possible incorrect type mismatch, or that one of the properties is not support, for the DSn are you using OLE? Access?

[melnib00ne]

fizban2,

it works.. the fieldtypes in the access database doesnt work in time/date-format, it must be text, after script runs, i must convert it into german or international dateformat...

thank you all very much....

/kr

Melnib00ne,