Trying to connect to SQL server
- From: MJG <MJG@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Tue, 3 May 2005 16:59:06 -0700
Hi,
I'm trying to use the script below to copy the event logs from our servers
to a SQL database, but when I run the script it's trying to connect as null.
How can I have it connect with a user and password the SQL server will
accept. Thanks for any help
On Error Resume Next
Set objOU = GetObject("LDAP://OU=Finance,dc=fabrikam,dc=com";
objOU.Filter = Array("Computer")
For Each objComputer in objOU
strComputer = objComputer.CN
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
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
.
- Follow-Ups:
- RE: Trying to connect to SQL server
- From: Sentinel7
- RE: Trying to connect to SQL server
- Prev by Date: Re: Users Home Folder
- Next by Date: EXCH: Wanted Public Folder ADD script
- Previous by thread: Re: Users Home Folder
- Next by thread: RE: Trying to connect to SQL server
- Index(es):
Relevant Pages
|
