<%@ 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 & ">" & objobject.name & "</a></td></tr>" & vbcrlf
else
response.write "<tr><td>" & objobject.class & "</td><td> " & objobject.name & "</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 & ">" & 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>
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
