Enumerating History Files

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

strComputer = "."

Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set objComputer = _
    objWMIService.Get("IIsComputer.Name='LM'")

intIndex = 0

Do While True
    strName = ""
    objComputer.EnumHistory strLocation, intMajorVersion, _
        intMinorVersion, strDateTime, intIndex
    If (Err.Number <> 0) Then
        Exit Do
    End If
        
    dtDate = DateSerial(Mid(strDateTime, 1, 4), _
        Mid(strDateTime, 5, 2), Mid(strDateTime, 7, 2))
    dtTime = TimeSerial(Mid(strDateTime, 9, 2), _
        Mid(strDateTime, 11, 2), Mid(strDateTime, 13, 2))
    strFmtDateTime = FormatDateTime(dtDate) & " " & _
        FormatDateTime(dtTime, vbLongTime)
        
    Wscript.Echo "Location: " & strLocation
    WScript.Echo "Major Version: " & intMajorVersion
    WScript.Echo "Minor Version: " & intMin0rVersion
    WScript.Echo "Date and Time: " & strFmtDateTime
        
    intIndex = intIndex + 1
Loop