OPTION EXPLICIT
'credits to: http://blogs.msdn.com/david.wang/archive/2005/07/13/HOWTO_Enumerate_IIS_Website_Configuration.aspx
'Ideas: get port bind, get home directory location, better print UP/DOWN, nagios plugins to monitor websites

DIM CRLF, TAB
DIM strServer
DIM objWebService
DIM strcomputer
DIM objWMIService
DIM colItems
DIM strCount
DIM objitem
DIM stripaddress
DIM IP

TAB  = CHR( 9 )
CRLF = CHR( 13 ) & CHR( 10 )

strcomputer = "."

Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
   ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

strCount = 1

For Each objitem in colitems
   If strCount = 1 Then
       strIPAddress = Join(objitem.IPAddress, ",")
       IP = stripaddress
       strCount = strCount + 1
        ' wscript.echo IP
   Else
   End If

next

IF WScript.Arguments.Length = 1 THEN
   strServer = WScript.Arguments( 0 )
ELSE
   strServer = "localhost"
END IF

WScript.Echo "Enumerating websites on " & strServer & CRLF
SET objWebService = GetObject( "IIS://" & strServer & "/W3SVC" )
EnumWebsites objWebService
SUB EnumWebsites( objWebService )
   DIM objWebServer, strBindings
   FOR EACH objWebServer IN objWebService
       IF objWebserver.Class = "IIsWebServer" THEN
           WScript.Echo _
               IP & TAB & objWebserver.Name & TAB &objWebServer.ServerComment & TAB & State2Desc( objWebserver.ServerState )

           ' Enumerate the HTTP bindings (ServerBindings) and
           ' SSL bindings (SecureBindings)
           strBindings = EnumBindings( objWebServer.ServerBindings ) & EnumBindings( objWebServer.SecureBindings )
           IF NOT strBindings = "" THEN
               ' WScript.Echo strBindings
           END IF
       END IF
   NEXT
END SUB

FUNCTION EnumBindings( objBindingList )

   DIM i, strIP, strPort, strHost

   DIM reBinding, reMatch, reMatches

   SET reBinding = NEW RegExp

   reBinding.Pattern = "([^:]*):([^:]*):(.*)"

   FOR i = LBOUND( objBindingList ) TO UBOUND( objBindingList )

       ' objBindingList( i ) is a string looking like IP:Port:Host

       SET reMatches = reBinding.Execute( objBindingList( i ) )

       FOR EACH reMatch IN reMatches

           strIP = reMatch.SubMatches( 0 )

           strPort = reMatch.SubMatches( 1 )

           strHost = reMatch.SubMatches( 2 )

           ' Do some pretty processing

           IF strIP = "" THEN strIP = "All Unassigned"

           IF strHost = "" THEN strHost = "*"

           IF LEN( strIP ) < 8 THEN strIP = strIP & TAB

           EnumBindings = EnumBindings & _
                          strIP & TAB & _
                          strPort & TAB & _
                          strHost & TAB & _
                          ""

       NEXT

       EnumBindings = EnumBindings & CRLF

   NEXT

END FUNCTION

FUNCTION State2Desc( nState )

   SELECT CASE nState

   CASE 1

       State2Desc = "Starting (MD_SERVER_STATE_STARTING)"

   CASE 2

       State2Desc = "Started (MD_SERVER_STATE_STARTED)"

   CASE 3

       State2Desc = "Stopping (MD_SERVER_STATE_STOPPING)"

   CASE 4

       State2Desc = "Stopped (MD_SERVER_STATE_STOPPED)"

   CASE 5

       State2Desc = "Pausing (MD_SERVER_STATE_PAUSING)"

   CASE 6

       State2Desc = "Paused (MD_SERVER_STATE_PAUSED)"

   CASE 7

       State2Desc = "Continuing (MD_SERVER_STATE_CONTINUING)"

   CASE ELSE

       State2Desc = "Unknown state"

   END SELECT

END FUNCTION