Option EXPLICIT
DIM CRLF, TAB
DIM strServer
DIM objWebService
TAB = CHR( 9 )
CRLF = CHR( 13 ) & CHR( 10 )
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, virtualHost, path, fso, f, megs
FOR EACH objWebServer IN objWebService
IF objWebserver.Class = "IIsWebServer" Then
path = objWebserver.Name
Set virtualHost = GetObject( "IIS://localhost/W3SVC/" & path & "/ROOT" )
Set fso = CreateObject("Scripting.FileSystemObject")
On error resume Next
Err.Clear
Set f = fso.GetFolder(virtualHost.Path)
If Err.Number > 0 Then
End If
megs = Round(((f.Size / 1024) / 1024), 2)
WScript.Echo _
objWebserver.Name & "," & _
objWebServer.ServerComment & "," & _
virtualHost.Path & "," & _
megs
END IF
NEXT
END SUB