Hello. Using some of the scripts from Microsoft Technet I
am able to clear and backup the event logs on server then
copy them to a folder on a remote share. This is ok but
to run this script on other servers I would need to edit
the script each time by putting in the server name. I
would like the server event logs to backup to a folder
the same as the computer name ie: "Server A" would backup
to a folder on the remote share called "Server A". I
would like this to happen without having to put the
computer name into the script, so that if the script is
run on "server A" then it would create and backup to a
folder called "Server A" on the remote share. I really
hope this makes sense. Here is the script.
dtmThisDay = Day(Now)
dtmThisMonth = Month(Now)
dtmThisYear = Year(Now)
strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" &
dtmThisDay
strComputer = "SERVER A"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where
LogFileName='system'")
For Each objLogfile in colLogFiles
objLogFile.BackupEventLog ("c:\Install\Event Logs\" &
strBackupName & _
"_system.evt")
objlogFile.ClearEventLog()
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Install\Event
Logs\*.*" , "\\remoteserver\elogs$\ServerA\" ,
OverwriteExisting
Next