最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ADSI Domain browser(试一试很出酷)
时间：2022-06-30 11:03:34 编辑：袖梨 来源：一聚教程网
<%@ 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 ""
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 ""
elseif len(trim(sComputer)) > 0 then
Set objComputer = GetObject("WinNT://" & sDomain & "/" & sComputer)
Response.Write ""
<%
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 ""
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 ""
elseif len(trim(sComputer)) > 0 then
Set objComputer = GetObject("WinNT://" & sDomain & "/" & sComputer)
Response.Write "