• Home
 · 
• Miscellaneous
 · 
• Get the Eventlog Details using Win32_NTEventlogFile WMI Class

Get the Eventlog Details using Win32_NTEventlogFile WMI Class

Get the Eventlog Details using Win32_NTEventlogFile WMI Class

Rate Get the Eventlog Details using Win32_NTEventlogFile WMI Class

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Generated using 'WMI Win32 Class Autoscript Generator' - Developed by Karthikeyan
'Homepage: http://www.geocities.com/marskarthik

On Error Resume Next
Computer = "."
Set OutFile = CreateObject("WScript.Shell")
Const ForAppending = 2
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set TextFile = FileSystem.OpenTextFile ("c:\Win32_NTEventlogFile.txt", ForAppending, True)
TextFile.WriteLine "Script for Win32_NTEventlogFile Class by Karthikeyan"
TextFile.WriteLine 
Set WMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
Set Items = WMIService.ExecQuery("Select * from Win32_NTEventlogFile",,48)
For Each SubItems in Items
TextFile.WriteLine "********************************************************************"
    TextFile.WriteLine "AccessMask: " & SubItems.AccessMask
    TextFile.WriteLine "Archive: " & SubItems.Archive
    TextFile.WriteLine "Caption: " & SubItems.Caption
    TextFile.WriteLine "Compressed: " & SubItems.Compressed
    TextFile.WriteLine "CompressionMethod: " & SubItems.CompressionMethod
    TextFile.WriteLine "CreationClassName: " & SubItems.CreationClassName
    TextFile.WriteLine "CreationDate: " & SubItems.CreationDate
    TextFile.WriteLine "CSCreationClassName: " & SubItems.CSCreationClassName
    TextFile.WriteLine "CSName: " & SubItems.CSName
    TextFile.WriteLine "Description: " & SubItems.Description
    TextFile.WriteLine "Drive: " & SubItems.Drive
    TextFile.WriteLine "EightDotThreeFileName: " & SubItems.EightDotThreeFileName
    TextFile.WriteLine "Encrypted: " & SubItems.Encrypted
    TextFile.WriteLine "EncryptionMethod: " & SubItems.EncryptionMethod
    TextFile.WriteLine "Extension: " & SubItems.Extension
    TextFile.WriteLine "FileName: " & SubItems.FileName
    TextFile.WriteLine "FileSize: " & SubItems.FileSize
    TextFile.WriteLine "FileType: " & SubItems.FileType
    TextFile.WriteLine "FSCreationClassName: " & SubItems.FSCreationClassName
    TextFile.WriteLine "FSName: " & SubItems.FSName
    TextFile.WriteLine "Hidden: " & SubItems.Hidden
    TextFile.WriteLine "InstallDate: " & SubItems.InstallDate
    TextFile.WriteLine "InUseCount: " & SubItems.InUseCount
    TextFile.WriteLine "LastAccessed: " & SubItems.LastAccessed
    TextFile.WriteLine "LastModified: " & SubItems.LastModified
    TextFile.WriteLine "LogfileName: " & SubItems.LogfileName
    TextFile.WriteLine "Manufacturer: " & SubItems.Manufacturer
    TextFile.WriteLine "MaxFileSize: " & SubItems.MaxFileSize
    TextFile.WriteLine "Name: " & SubItems.Name
    TextFile.WriteLine "NumberOfRecords: " & SubItems.NumberOfRecords
    TextFile.WriteLine "OverwriteOutDated: " & SubItems.OverwriteOutDated
    TextFile.WriteLine "OverWritePolicy: " & SubItems.OverWritePolicy
    TextFile.WriteLine "Path: " & SubItems.Path
    TextFile.WriteLine "Readable: " & SubItems.Readable
    TextFile.WriteLine "Sources: " & SubItems.Sources
    TextFile.WriteLine "Status: " & SubItems.Status
    TextFile.WriteLine "System: " & SubItems.System
    TextFile.WriteLine "Version: " & SubItems.Version
    TextFile.WriteLine "Writeable: " & SubItems.Writeable
TextFile.WriteLine "********************************************************************"
Next
TextFile.Close
OutFile.Run "notepad.exe c:\Win32_NTEventlogFile.txt",1,True