<%
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
adsi logistics|ADSI Domain browser(试一试很出酷)
http://m.bbyears.com/wangyezhizuo/3545.html
推荐访问:adsi编辑器 ad四层板 ad司马出装 adss光缆 ad丝印层 ad死亡率 ad丝印层标号用什么字体 ad丝印居中 ad档