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

WScript.Echo "Log Process starting"

dim sBackupName, sMessage

for each Logfile in LogFileSet
	sMessage = "Log: " & Logfile.LogfileName & chr(13)
‘BEGIN CALLOUT A
	sBackupName = "C:\Temp\" & Logfile.LogfileName & ".log"
‘END CALLOUT A
	sMessage = sMessage  & "Backup File: " & sBackupName & chr(13)
	RetVal = LogFile.BackupEventlog(sBackupName)
	if RetVal = 0 then sMessage = sMessage & "Log backed up" & chr(13)

	RetVal = LogFile.ClearEventlog()
	if RetVal = 0 then sMessage = sMessage &"Log Cleared"
	
	WScript.Echo sMessage
Next