Board index » Visual Studio » vbscript ADSI question

Visual Studio83
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>


-

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



-

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



-