Introduction
This article gives you some code to list or manage users from a domain using 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>