Option Explicit
On Error Resume Next

Dim StartTime,EndTime: StartTime = Now ' For seeing how long the script takes to run
Wscript.Echo "StartTime = " & StartTime
' ***************************************************************** '
Dim objParent, strSite, ComputerName, strOutput
ComputerName = "pnymvp01"
Set objParent = GetObject("IIS://" & ComputerName & "/W3SVC")
    If err.number <> 0 Then
        Wscript.Echo "Error enumerating sites on: " & ComputerName & " - " & err.number & " - " & err.description
    Else
        Wscript.Echo "Enumerating sites on: " & ComputerName
    End If
For Each strSite in objParent
    If IsNumeric(strSite.Name) Then
        strOutput = strSite.Name & " - " & strSite.ServerComment
        Wscript.Echo strOutput
    End If
Next
' ***************************************************************** '
EndTime = Now
'Wscript.Echo vbCrLf & "EndTime = " & EndTime
'Wscript.Echo "Seconds Elapsed: " & DateDiff("s", StartTime, EndTime)
Wscript.Echo "Script Complete"
Wscript.Quit(0)