' Enumerating History Files
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