<%@ Language=vbscript%>
<HTML>
<HEAD>
<meta name= "generator" content= "Microsoft Visual Studio 6.0" >
<title>adsi Domain browser</title>
</HEAD>
<BODY>
<!--Author:adrian Forbes-->
<%
Sdomain = Request ("Domain")
Scomputer = Request ("Computer")
Sgroup = Request ("Group")
Suser = Request ("User")
If Len (Trim (suser)) > 0 Then
Set Objgroup = GetObject ("winnt://" & Sdomain & "/" & Scomputer & "/" & Suser)
For each objuser in objgroup.groups
Response.Write Objuser.name & "<br>" & VbCrLf
Next
Response.Write "</table><p><a href=adsi.asp?" Domain= "& Sdomain &" &computer= "& Scomputer &" >back to "& Scomputer &" </a></p > "
ElseIf len (Trim (sgroup)) > 0 Then
Set Objgroup = GetObject ("winnt://" & Sdomain & "/" & Scomputer & "/" & Sgroup)
For each objuser in Objgroup.members
Response.Write Objuser.name & "<br>" & VbCrLf
Next
Response.Write "</table><p><a href=adsi.asp?" Domain= "& Sdomain &" &computer= "& Scomputer &" >back to "& Scomputer &" </a></p > "
ElseIf len (Trim (scomputer)) > 0 Then
Set objcomputer = GetObject ("winnt://" & Sdomain & "/" & Scomputer)
Response.Write "<table border=0>"
For each objobject in objcomputer
If StrComp (Objobject.class, "group", 1) = 0 Then
Response.Write "<tr><td>" & Objobject.class & "</td><td> <a href=adsi.asp? Domain= "& Sdomain &" &computer= "& Scomputer &" &group= "& Objobject.name &" > "& Objobject.name & "</a></td></tr>" & VbCrLf
ElseIf StrComp (objobject.class, "user", 1) = 0 Then
Response.Write "<tr><td>" & Objobject.class & "</td><td> <a href=adsi.asp? Domain= "& Sdomain &" &computer= "& Scomputer &" &user= "& Objobject.name &" > "& O Bjobject.name & "</a></td></tr>" & VbCrLf
Else
Response.Write "<tr><td>" & Objobject.class & "</td><td>" & Objobject.name & "& Lt;/td></tr> "& VbCrLf
End If
Next
Response.Write "</table><p><a href=adsi.asp?" Domain= "& Sdomain &" >back to "& Sdomain &" </a></p> "
ElseIf len (Trim (sdomain)) > 0 Then
Set objdomain = GetObject ("winnt://" & Sdomain)
For each objcomputer in Objdomain
If StrComp (Objcomputer.class, "Computer", 1) = 0 Then
Response.Write "<a href=adsi.asp?domain=" & Sdomain & "&computer=" & Objcomputer.name & ">" &am P Objcomputer.name & "<br>"
End If
Next
Response.Write "<p><a href=adsi.asp>back to Domain list</a></p>"
Else
Set objwinnt = GetObject ("WinNT:")
For each objdomain in Objwinnt
If StrComp (objdomain.class, "domain", 1) = 0 Then
Response.Write "<a href=adsi.asp?domain=" & Objdomain.name & ">" & objdomain.name & "<br>"
End If
Next
End If
%>
</BODY>
</HTML>
