IIS 5.x
Enumerate Backups







' Enumerate Backups


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



search for scripts
VbsEdit contains all these sample scripts!

Download Now!