' 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!



Download   Home   Scripts

Copyright © 2001-2024 adersοft