Source Code for http://194.8.136.102childprint.asp

COLOR LEGEND
Server Side Script
Client Side Script
Hyperlink
Include
Frames
Comments
Object Code Link
Standard HTML and Text

<HTML>
<HEAD>
<TITLE>IISAO hierarchy of Web server 1</TITLE>
</HEAD>
<BODY BGCOLOR=#ffffff> 
<FONT FACE="Courier">
<%
        Set theServer = GetObject("IIS://LocalHost/W3SVC/1")
        Response.Write "IISAO hierarchy for Web server "
        Response.Write "<B>" & theServer.ServerComment & "</B><P>"

        Response.Write "<PRE>"
        Response.Write theServer.ServerComment & "<BR>"
        Level = 0      ' start level is zero

        PrintChildren(theServer)
        Response.Write "</PRE>"
%>

<%
  Sub PrintChildren(ParentObj)
    For Each Child in ParentObj
            Level = Level + 1
            Response.Write Space(2*Level) & Child.Name & "<BR>"
            PrintChildren(Child)
    Next
    Level = Level - 1
  End Sub
%>

</BODY>
</HTML>