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

您的位置：首页 → 网页设计 → ASP实例 → 一个利用adsi得到局域网信息的asp文件

一个利用adsi得到局域网信息的asp文件 时间：2004/11/7 3:02:00来源：本站整理作者：蓝点我要评论(0)

<%@ Language=VBScript %>

ADSI Domain browser

<%

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

%>

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。