Script to use Winzip to Package Daily Log Files

I'm current running a VB script to archive and clear the Event Log on each of my servers.  I must use Winzip because of licensing.   I would like to use VB so i can tack it on to the end of my current archive script, rather than running a second .bat of .cmd file.  

Event logs are saved to a specific folder as:
ServerName_App_Date.evt
ServerName_Sec_Date.evt
ServerName_Sys_Date.evt
etc...

What could i add to the end of the script to Package these file into a single Zip file as ServerName_Date.zip
LVL 4
Mark WaldenInformation Security EngineerAsked:
Who is Participating?
 
3_SConnect With a Mentor Commented:
You could take the zipfile name from your .evt -file. use a replace to make the .evt to .zip
dim fileName
fileName = "ServerName_Sys_Date.evt"
fileName = Replace(fileName ,"_Sys","")
fileName = Replace(fileName ,".evt",".zip")
Dim wshShell
Dim WinZipCommand
WinZipCommand = "Your winzip command" 'Add you winzip command and use variable fileName to define the output winzipfilename
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run(WinZipCommand)

Open in new window

0
 
3_SCommented:
dowload the WinZip Command Line Support Add-On from the winzip website.
Then you can make a zip file using the command line using a shell in VB
0
 
Mark WaldenInformation Security EngineerAuthor Commented:
It requires version 12.  We use version 9.
0
Cloud Class® Course: Certified Penetration Testing

This CPTE Certified Penetration Testing Engineer course covers everything you need to know about becoming a Certified Penetration Testing Engineer. Career Path: Professional roles include Ethical Hackers, Security Consultants, System Administrators, and Chief Security Officers.

 
3_SCommented:
http://www.winzip.com/wz90sr1.htm

command line for winzip version 9.
0
 
Mark WaldenInformation Security EngineerAuthor Commented:
OK 3_S, now what.  I can zip the files and give it a name (MyZip.zip).  However, this will be a daily task so i need the file name to be ServerName_Date.zip.  Any ideas?
0
 
Mark WaldenInformation Security EngineerAuthor Commented:
I'll test it this afternoon and let you know.
0
 
Mark WaldenInformation Security EngineerAuthor Commented:
I have still not made this work yet.   I have been placed on a new project so i have move this to the bottom of the list for now.  
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.