Dim oIIS, oFS, msg, txtStream, filename

fileName= "C:\IISClasses.txt"

Set oIIS=GetObject("IIS://localhost")
IterateClasses oIIS, 0

Set oFS=CreateObject("Scripting.FileSystemObject")
txtStream.Write msg
txtStream.Close

MsgBox "IIS Metabse information written to" & filename

Sub IterateClasses (collec, indent)

	Dim oItem

	For Each oItem In collec
		msg=msg & space(indent)& oItem.Name &vbCrL
			IterateClasses oItem, indent  + 3f 

		Next

End Sub