<%@ Language=V cript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0" gt;
<title>ADSI Domain browser</title>
</HEAD>
< ODY>
<!-- Author: Adrian Forbes -->
<%
sDomain = Request("Domai quot;)
sComputer = Request("Computer")
sGroup = Request("Grou quot;)
sUser = Request("User")
if len(trim(sUser)) > 0 then
et objGroup = GetObject("Wi T://" &am sDomain &am "/" &am sComputer &am "/" &am sUser)
For Each objUser In objGroup.Grou
Re o e.Write objUser.Name &am " lt r> quot; &am vbCrLf
ext
Re o e.Write " lt;/table> lt gt lt;a href=adsi.a ?Domain=" &am sDomain &am " am Computer=" &am sComputer &am " gt ack to " &am sComputer &am " lt;/a> lt;/ gt quot;
elseif len(trim(sGroup)) > 0 then
et objGroup = GetObject("Wi T://" &am sDomain &am "/" &am sComputer &am "/" &am sGroup)
For Each objUser In objGroup.Members
Re o e.Write objUser.Name &am " lt r> quot; &am vbCrLf
ext
Re o e.Write " lt;/table> lt gt lt;a href=adsi.a ?Domain=" &am sDomain &am " am Computer=" &am sComputer &am " gt ack to " &am sComputer &am " lt;/a> lt;/ gt quot;
elseif len(trim(sComputer)) > 0 then
et objComputer = GetObject("Wi T://" &am sDomain &am "/" &am sComputer)
Re o e.Write " lt;table border=0> quot;
For Each objObject In objComputer
if strcomp(objObject.Cla , "grou quot;, 1) = 0 then
Re o e.Write " lt;tr> lt;td> quot; &am objObject.Cla &am " lt;/td> lt;td> lt;a href=adsi.a ?Domain=" &am sDomain &am " am Computer=" &am sComputer &am " am Group=" &am objObject.Name &am " gt quot; &am objObject.Name &am " lt;/a> lt;/td> lt;/tr> quot; &am vbCrLf
elseif strcomp(objObject.Cla , "user", 1) = 0 then
Re o e.Write " lt;tr> lt;td> quot; &am objObject.Cla &am " lt;/td> lt;td> lt;a href=adsi.a ?Domain=" &am sDomain &am " am Computer=" &am sComputer &am " am User=" &am objObject.Name &am " gt quot; &am objObject.Name &am " lt;/a> lt;/td> lt;/tr> quot; &am vbCrLf
else
Re o e.Write " lt;tr> lt;td> quot; &am objObject.Cla &am " lt;/td> lt;td> quot; &am objObject.Name &am " lt;/td> lt;/tr> quot; &am vbCrLf
end if
ext
Re o e.Write " lt;/table> lt gt lt;a href=adsi.a ?Domain=" &am sDomain &am " gt ack to " &am sDomain &am " lt;/a> lt;/ gt quot;
elseif len(trim(sDomain)) > 0 then
et objDomain = GetObject("Wi T://" &am sDomain)
For Each objComputer In objDomain
if strcomp(objComputer.Cla , "computer", 1) = 0 then
Re o e.Write " lt;a href=adsi.a ?domain=" &am sDomain &am " am computer=" &am objComputer.Name &am " gt quot; &am objComputer.Name &am " lt r> quot;
end if
ext
Re o e.Write " lt gt lt;a href=adsi.a gt ack to domain list</a> lt;/ gt quot;
else
et objWi T = GetObject("Wi T:")
For Each objDomain In objWi T
if strcomp(objDomain.Cla , "domai quot;, 1) = 0 then
Re o e.Write " lt;a href=adsi.a ?domain=" &am objDomain.Name &am " gt quot; &am objDomain.Name &am " lt r> quot;
end if
ext
end if
%>
</BODY>
</HTML>
