一个利用adsi得到局域网信息的asp文件

1@ Language=VBScript

1<html>
2<head>
3<meta content="Microsoft Visual Studio 6.0" name="GENERATOR"/>
4<title>ADSI Domain browser</title>
5</head>
6<body>
7<!-- Author: Adrian Forbes -->   
8

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 & " " & vbCrLf
Next
Response.Write "<a "&computer=" & sComputer & " &="" href='adsi.asp?Domain="' sdomain="">Back to " & sComputer & "</a>"
elseif len(trim(sGroup)) > 0 then
Set objGroup = GetObject("WinNT://" & sDomain & "/" & sComputer & "/" & sGroup)
For Each objUser In objGroup.Members
Response.Write objUser.Name & " " & vbCrLf
Next
Response.Write "<a "&computer=" & sComputer & " &="" href='adsi.asp?Domain="' sdomain="">Back to " & sComputer & "</a>"
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 "&computer=" & sComputer & " &="" &group=" & objObject.Name & " href='adsi.asp?Domain="' sdomain="">" & objObject.Name & "</a></td></tr>" & vbCrLf
elseif strcomp(objObject.Class, "user", 1) = 0 then
Response.Write "<tr><td>" & objObject.Class & "</td><td> <a "&computer=" & sComputer & " &="" &user=" & objObject.Name & " href='adsi.asp?Domain="' sdomain="">" & 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><a "="" &="" href='adsi.asp?Domain="' sdomain="">Back to " & sDomain & "</a>"
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 "&computer=" & objComputer.Name & " &="" href='adsi.asp?domain="' sdomain="">" & objComputer.Name & " "
end if
Next

Response.Write "<a href="adsi.asp">Back to domain list</a>"
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 & " "
end if
Next
end if

1  
2</a></a></body>
3</html>