set LogFileSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup)}").ExecQuery("select * from Win32_NTEventLogFile where LogfileName='Application'")

 

For each Logfile in LogFileSet

                RetVal = LogFile.BackupEventlog("C:\New folder\BACKUP.LOG")

                if RetVal = 0 then WScript.Echo "Log Backed Up"

Next