使用 GetObject 列出用户域

引言

本文档提供了一些代码，用于使用 GetObject 列出或管理域中的用户。

<TABLE BORDER="1" CELLSPACING="0">
<TR>
    <TD>Username</TD>
    <TD>Name</TD>
    <TD>Description</TD>
    <TD>Last Login</TD>
    <TD>Password Expiration</TD>
    <TD>Disabled</TD>
</TR>
<%

Dim sUserInfo

On Error Resume Next

Set oContainer = GetObject("WinNT://Domain_Name")

For Each oIADs In oContainer

    If (oIADs.Class = "User") Then
        Set oUser = oIADs
    
        UserName = ""
        FullName = ""
        Descripcion = ""
        LastLogin = ""
        PasswordExpiration = ""
    Disabled = ""
        
        UserName = oUser.Name
        FullName = oUser.FullName
        Descripcion = oUser.Description
        LastLogin = oUser.LastLogin
        PasswordExpiration = oUser.PasswordExpirationDate
        Disabled = oUser.AccountDisabled 
%>

<TR>
    <TD><%=UserName%> </TD>
    <TD><%=FullName%> </TD>
    <TD><%=Descripcion%> </TD>
    <TD><%=LastLogin%> </TD>
    <TD><%=PasswordExpiration%> </TD>
    <TD><%=Disabled%> </TD>
<%    End If%>    
<%Next%>
</TABLE>