adsi logistics|ADSI Domain browser(试一试很出酷)

更新时间：2014-01-18 来源：Dom教程手机版 字体：大中小

【www.bbyears.com--Dom教程】

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

本文来源：http://www.bbyears.com/wangyezhizuo/3545.html