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

<%@ Language=VBScript %>

<%
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 "

Back to " & sComputer & "

"
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 "

Back to " & sComputer & "

"
elseif len(trim(sComputer)) > 0 then
    Set objComputer = GetObject("WinNT://" & sDomain & "/" & sComputer)
    Response.Write ""
    For Each objObject In objComputer
        if strcomp(objObject.Class, "group", 1) = 0 then
            Response.Write "" & vbCrLf
        elseif strcomp(objObject.Class, "user", 1) = 0 then
            Response.Write "" & vbCrLf
        else
            Response.Write "" & vbCrLf
        end if
    Next
    Response.Write "

" & objObject.Class & "	" & objObject.Name & "
" & objObject.Class & "	" & objObject.Name & "
" & objObject.Class & "	" & objObject.Name & "

Back to " & sDomain & "

"
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 "" & objComputer.Name & "
"
        end if
    Next
   
    Response.Write "

Back to domain list

"
else
    Set objWinNT = GetObject("WinNT:")
    For Each objDomain In objWinNT
        if strcomp(objDomain.Class, "domain", 1) = 0 then
            Response.Write "" & objDomain.Name & "
"
        end if
    Next
end if
%>

资料引用: