Καλησπέρα.
Έχω το παρακάτω script και το παρακάτω λάθος.
Γενικότερα είμαι άσχετος από vb και σχετικός με προγραμματισμό, κυρίως web.
_______________________________________________________
Option Explicit
Dim objFso, objFolder, objWMI, objItem, objShell, strEventLog
Dim strFile, strComputer, strFolder, strFileName, strPath
Dim intEvent, intNumberID, intRecordNum, colLoggedEvents
' ---------------------------------------------
' Set the folder and file name
' Set numbers
intNumberID = 10 ' Event ID Number
intRecordNum = 0
strComputer = "."
strFileName = "\Event" & intNumberID & ".txt"
strFolder = "c:\logs\eventlog"
strPath = strFolder & strFileName
strEventLog = "'System' "
' ---------------------------------------------
' Section to create folder and hold file.
Set objFso = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strFolder) Then
Set objFolder = objFSO.GetFolder(strFolder)
Else
Set objFolder = objFSO.CreateFolder(strFolder)
Wscript.Echo "Folder created " & strFolder
End If
Wscript.Echo " Press OK and Wait 30 seconds (ish)"
Set strFile = objFso.CreateTextFile(strPath, True)
Set objWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colLoggedEvents = objWMI.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = " & strEventLog)
' -----------------------------------------
' Next section loops through ID properties
For Each objItem in colLoggedEvents
If objItem.EventCode = intNumberID Then
' Second Loop to filter only if they tried Administrator
strFile.WriteLine("Category: " & objItem.Category _
& " string " & objItem.CategoryString)
strFile.WriteLine("ComputerName: " & objItem.ComputerName)
strFile.WriteLine("Logfile: " & objItem.Logfile _
& " source " & objItem.SourceName)
strFile.WriteLine("EventCode: " & objItem.EventCode)
strFile.WriteLine("EventType: " & objItem.EventType)
strFile.WriteLine("Type: " & objItem.Type)
strFile.WriteLine("User: " & objItem.User)
strFile.WriteLine("Message: " & objItem.Message)
strFile.WriteLine (" ")
intRecordNum = intRecordNum +1
End If
Next
' Confirms the script has completed and opens the file
Set objShell = CreateObject("WScript.Shell")
objShell.run ("Explorer" &" " & strPath & "\" )
WScript.Quit
_______________________________________________________
Όταν τρέχω το script μου εμφανίζει το παρακάτω μήνυμα:
Line: 58
Char:1
Error: Invalid procedure call or argument
Code: 800A0005
Source: Microsoft VBScript runtime error
Όταν εξαιρώ την γραμμή, όπως φένεται και παρακάτω, το script "τρέχει" κανονικά.
......
'strFile.WriteLine("Message: " & objItem.Message)
.....
Το script "τρέχει" σε Windows 2003 Server R2 SP2.
Το ζητούμενο είναι να μαζέυω σε αρχείο txt ή csv όλα τα events με event id 10 μαζί με την περιγραφή από τον event viewer.
Ευχαριστώ πολύ.
mart