Copy System Log

[hooverd]

Good morning I need to script getting the System log from a print server "cscprnt" and copy it to a txt file on my Workstation "WS8582". Any idead?
Thanks hooverd

 

[barny2006]

i think this is what you need:

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

Set colLogFiles = objWMIService.ExecQuery _
    ("Select * from Win32_NTEventLogFile where LogFileName='Application'")

For Each objLogfile in colLogFiles
    errBackupLog = objLogFile.BackupEventLog("c:\your_path\application.evt")
Next

 

[hooverd]

Thanks but I can't get it to connect to server. It does create a file on my C: though.
Thanks

 

[Brycspain]

Hooverd,

You probably need to be logged in as an adminstrator while you were running the script.

 

[hooverd]

Thanks I am Domain Admin.