lol

Option EXPLICIT
on error resume Next

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")
        		Set f = fso.GetFolder(virtualHost.Path)
        		megs = Round(((f.Size / 1024) / 1024), 2)  
        		
            WScript.Echo _
                objWebserver.Name & "," & _
                objWebServer.ServerComment & "," & _
                virtualHost.Path & "," & _
                megs

        END IF
    NEXT

END SUB