vbscript ADSI question

I have this query for discovering if a user has the &H10000 flag set
(Password never expires). I'd like to convert it to querying all users
in my domain.

<code>
Dim Users
Dim UserName
Dim UserDomain
Dim Flags
UserDomain = "Domain_To_Manage"
UserName = "Target_User_Name"
Set user = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
Flags = User.Get("UserFlags")
If (Flags And &H10000) <> 0 Then
Response.Write "The specified user accounty is configured so that the
password never expires."
End If
</code>

Jon
Thu Jun 24 05:55:00 CDT 2004

Sonething like...................


set namespace = getobject( "WinNT://" & UserDomain)

for each object in namespace
if object.class = "User" then

set user = getobject( "WinNT://" & UserDomain & "/" & object.name &
",user" )

Flags = User.Get("UserFlags")
If (Flags And &H10000) <> 0 Then
Response.Write "User account " & object.name & " is configured so that
the password never expires."
End If


next



Jon


"Mike Brierley" <mbrierley@covad.net> wrote in message
news:Ow3ELY7VEHA.3988@tk2msftngp13.phx.gbl...
> I have this query for discovering if a user has the &H10000 flag set
> (Password never expires). I'd like to convert it to querying all users
> in my domain.
>
> <code>
> Dim Users
> Dim UserName
> Dim UserDomain
> Dim Flags
> UserDomain = "Domain_To_Manage"
> UserName = "Target_User_Name"
> Set user = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
> Flags = User.Get("UserFlags")
> If (Flags And &H10000) <> 0 Then
> Response.Write "The specified user accounty is configured so that the
> password never expires."
> End If
> </code>

Jon
Thu Jun 24 06:17:01 CDT 2004

Something like...................


set namespace = getobject( "WinNT://" & UserDomain)

for each object in namespace
if object.class = "User" then

set user = getobject( "WinNT://" & UserDomain & "/" & object.name &
",user" )

Flags = User.Get("UserFlags")
If (Flags And &H10000) <> 0 Then
Response.Write "User account " & object.name & " is configured so that
the password never expires."
End If

End If


next



Jon

"Mike Brierley" <mbrierley@covad.net> wrote in message
news:Ow3ELY7VEHA.3988@tk2msftngp13.phx.gbl...
> I have this query for discovering if a user has the &H10000 flag set
> (Password never expires). I'd like to convert it to querying all users
> in my domain.
>
> <code>
> Dim Users
> Dim UserName
> Dim UserDomain
> Dim Flags
> UserDomain = "Domain_To_Manage"
> UserName = "Target_User_Name"
> Set user = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
> Flags = User.Get("UserFlags")
> If (Flags And &H10000) <> 0 Then
> Response.Write "The specified user accounty is configured so that the
> password never expires."
> End If
> </code>