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

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

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