<%@ 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://" %26amp; sDomain %26amp; "/" %26amp; sComputer %26amp; "/" %26amp; sUser)
For Each objUser In objGroup.Groups
Response.Write objUser.Name %26amp; "<br>" %26amp; vbCrLf
Next
Response.Write "</table><p><a href=adsi.asp?Domain=" %26amp; sDomain %26amp; "%26amp;Computer=" %26amp; sComputer %26amp; ">Back to " %26amp; sComputer %26amp; "</a></p>"
elseif len(trim(sGroup)) > 0 then
Set objGroup = GetObject("WinNT://" %26amp; sDomain %26amp; "/" %26amp; sComputer %26amp; "/" %26amp; sGroup)
For Each objUser In objGroup.Members
Response.Write objUser.Name %26amp; "<br>" %26amp; vbCrLf
Next
Response.Write "</table><p><a href=adsi.asp?Domain=" %26amp; sDomain %26amp; "%26amp;Computer=" %26amp; sComputer %26amp; ">Back to " %26amp; sComputer %26amp; "</a></p>"
elseif len(trim(sComputer)) > 0 then
Set objComputer = GetObject("WinNT://" %26amp; sDomain %26amp; "/" %26amp; sComputer)
Response.Write "<table border=0>"
For Each objObject In objComputer
if strcomp(objObject.Class, "group", 1) = 0 then
Response.Write "<tr><td>" %26amp; objObject.Class %26amp; "</td><td> <a href=adsi.asp?Domain=" %26amp; sDomain %26amp; "%26amp;Computer=" %26amp; sComputer %26amp; "%26amp;Group=" %26amp; objObject.Name %26amp; ">" %26amp; objObject.Name %26amp; "</a></td></tr>" %26amp; vbCrLf
elseif strcomp(objObject.Class, "user", 1) = 0 then
Response.Write "<tr><td>" %26amp; objObject.Class %26amp; "</td><td> <a href=adsi.asp?Domain=" %26amp; sDomain %26amp; "%26amp;Computer=" %26amp; sComputer %26amp; "%26amp;User=" %26amp; objObject.Name %26amp; ">" %26amp; objObject.Name %26amp; "</a></td></tr>" %26amp; vbCrLf
else
Response.Write "<tr><td>" %26amp; objObject.Class %26amp; "</td><td> " %26amp; objObject.Name %26amp; "</td></tr>" %26amp; vbCrLf
end if
Next
Response.Write "</table><p><a href=adsi.asp?Domain=" %26amp; sDomain %26amp; ">Back to " %26amp; sDomain %26amp; "</a></p>"
elseif len(trim(sDomain)) > 0 then
Set objDomain = GetObject("WinNT://" %26amp; sDomain)
For Each objComputer In objDomain
if strcomp(objComputer.Class, "computer", 1) = 0 then
Response.Write "<a href=adsi.asp?domain=" %26amp; sDomain %26amp; "%26amp;computer=" %26amp; objComputer.Name %26amp; ">" %26amp; objComputer.Name %26amp; "<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=" %26amp; objDomain.Name %26amp; ">" %26amp; objDomain.Name %26amp; "<br>"
end if
Next
end if
%>
</BODY>
</HTML>
<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://" %26amp; sDomain %26amp; "/" %26amp; sComputer %26amp; "/" %26amp; sUser)
For Each objUser In objGroup.Groups
Response.Write objUser.Name %26amp; "<br>" %26amp; vbCrLf
Next
Response.Write "</table><p><a href=adsi.asp?Domain=" %26amp; sDomain %26amp; "%26amp;Computer=" %26amp; sComputer %26amp; ">Back to " %26amp; sComputer %26amp; "</a></p>"
elseif len(trim(sGroup)) > 0 then
Set objGroup = GetObject("WinNT://" %26amp; sDomain %26amp; "/" %26amp; sComputer %26amp; "/" %26amp; sGroup)
For Each objUser In objGroup.Members
Response.Write objUser.Name %26amp; "<br>" %26amp; vbCrLf
Next
Response.Write "</table><p><a href=adsi.asp?Domain=" %26amp; sDomain %26amp; "%26amp;Computer=" %26amp; sComputer %26amp; ">Back to " %26amp; sComputer %26amp; "</a></p>"
elseif len(trim(sComputer)) > 0 then
Set objComputer = GetObject("WinNT://" %26amp; sDomain %26amp; "/" %26amp; sComputer)
Response.Write "<table border=0>"
For Each objObject In objComputer
if strcomp(objObject.Class, "group", 1) = 0 then
Response.Write "<tr><td>" %26amp; objObject.Class %26amp; "</td><td> <a href=adsi.asp?Domain=" %26amp; sDomain %26amp; "%26amp;Computer=" %26amp; sComputer %26amp; "%26amp;Group=" %26amp; objObject.Name %26amp; ">" %26amp; objObject.Name %26amp; "</a></td></tr>" %26amp; vbCrLf
elseif strcomp(objObject.Class, "user", 1) = 0 then
Response.Write "<tr><td>" %26amp; objObject.Class %26amp; "</td><td> <a href=adsi.asp?Domain=" %26amp; sDomain %26amp; "%26amp;Computer=" %26amp; sComputer %26amp; "%26amp;User=" %26amp; objObject.Name %26amp; ">" %26amp; objObject.Name %26amp; "</a></td></tr>" %26amp; vbCrLf
else
Response.Write "<tr><td>" %26amp; objObject.Class %26amp; "</td><td> " %26amp; objObject.Name %26amp; "</td></tr>" %26amp; vbCrLf
end if
Next
Response.Write "</table><p><a href=adsi.asp?Domain=" %26amp; sDomain %26amp; ">Back to " %26amp; sDomain %26amp; "</a></p>"
elseif len(trim(sDomain)) > 0 then
Set objDomain = GetObject("WinNT://" %26amp; sDomain)
For Each objComputer In objDomain
if strcomp(objComputer.Class, "computer", 1) = 0 then
Response.Write "<a href=adsi.asp?domain=" %26amp; sDomain %26amp; "%26amp;computer=" %26amp; objComputer.Name %26amp; ">" %26amp; objComputer.Name %26amp; "<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=" %26amp; objDomain.Name %26amp; ">" %26amp; objDomain.Name %26amp; "<br>"
end if
Next
end if
%>
</BODY>
</HTML>
上一篇：中文的无组件文件上传ASP函数 下一篇：根据需要动态include不同的文件
