(imported comment written by mmurty)
IIS 5.0 script
Option Explicit
On Error Resume Next
’ Declare variables.
Dim strBackupName, lngBackupVersion, lngBackupFlags
Dim objComputer
Dim strDay, strMonth, strYear
’ Get the current DD/MM/YY as strings.
strDay = Right(“00” & Cstr(Day(Date())),2)
strMonth = Right(“00” & Cstr(Month(Date())),2)
strYear = Cstr(Year(Date()))
’ Create a file name from the current date.
strBackupName = strDay & strMonth & strYear
’ Use the next available version number.
lngBackupVersion = &HFFFFFFFF
lngBackupFlags = 0
’ Output the backup message.
’ Wscript.Echo “Backing up metabase to file: “”” & strBackupName & “”""
’ Get the ADSI object.
Set objComputer = GetObject(“IIS://LOCALHOST”)
’ Call the backup method.
objComputer.Backup strBackupName, lngBackupVersion, lngBackupFlags
’ Check for errors.
'If Err.Number 0 Then
’ Wscript.Echo “Error: " & Err.Description & " (0x” & Right(String(8,“0”) & Hex(Err.Number),8) & “)”
'Else
’ Wscript.Echo “Success.”
'End If
ACTION INFO
download http://192.63.19.12:52311/Uploads/c8c64ccbc6b9b83d32c92a8159f763f75365a8bd/big94.tmp
continue if { (size of it = 615 and sha1 of it = “c8c64ccbc6b9b83d32c92a8159f763f75365a8bd”) of file “big94.tmp” of folder “__Download”}
extract big94.tmp
wait “{pathname of client folder of site “BESSupport” & “\RunQuiet.exe”}” “{pathname of system folder}\cscript.exe” “{(pathname of client folder of current site) & “__Download\mbackup.vbs”}”