VBScript Code to Enumerate Backups

You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.

Example(s)

On Error Resume Next

Const MD_BACKUP_NO_MORE_BACKUPS = &H80070103
 
strComputer = "LocalHost"
Set objIIS = GetObject("IIS://" & strComputer & "")
intIndex = 0

Do While True
    strName = ""
    objIIS.EnumBackups strName, intIndex, strVersion, _
        strLocation, strDateTime
    If (Err.Number <> 0) Then
        If (Err.Number = MD_BACKUP_NO_MORE_BACKUPS) Then
            Exit Do
        End If
    End If       
       
    WScript.Echo "Name: " & strName
    Wscript.Echo "Version Number: " & strVersion 
    Wscript.Echo "Backup Location: " & strLocation
    Wscript.Echo "Backup Date: " & strDateTime
    Wscript.Echo
        
    intIndex = intIndex + 1
Loop