Net User Information and Security Using ActiveDS Type Library


Public Function IsGroupMember(Username As String, _
DomainName As String, _
GroupName As String) As Boolean
‘=================================================
‘=================================================
‘   Purpose:    To determin if a user is a member of a specified group

‘   Syntax:     IsGroupMember(User Name, Domain Name, Group Name)

‘   Arguments:
‘               username        — login ID of user to verify
‘               DomainName      — Domain name the user and group reside in
‘                (Can also use IP Address of Primary Domain Controller)
‘               GroupName       — NT Group name to match the user to

‘   Example:    IsGroupMember(“myusername”, “mydomain”, “mygroupname”)
‘==========================================================
‘==========================================================
Dim usr As IADsUser, obj As Object, sOut() As String, i As Long
IsGroupMember = False
Set usr = GetObject(“WinNT://” & DomainName & “/” & Username & “,user”)
For Each obj In usr.Groups
If GroupName = obj.Name Then IsGroupMember = True
Next
End Function

Function IsGoodPWD(sUserName As String, DomainName As String, _
chkPassword As String) As Boolean
‘====================================================
‘=====================================================
‘   Purpose:    To determin if a password given is the correct network password for the specified user

‘   Syntax:     IsGoodPWD(User Name, Domain Name, Password)

‘   Arguments:
‘               username        — login ID of user to verify
‘               DomainName      — Domain name the user and group reside in
‘                           (Can also use IP Address of Primary Domain Controller)
‘               chkPassword     — Password to verify against the domain

‘   Example:    IsGoodPWD(“myusername”, “mydomain”, “mypass123”)
‘==============================================================
‘=========================================================
On Error GoTo MyError:
Dim usr As IADsUser
Set usr = GetObject(“WinNT://” & DomainName & “/” & sUserName & “,user”)
usr.ChangePassword chkPassword, “qinspwue4”
usr.ChangePassword “qinspwue4”, chkPassword
IsGoodPWD = True
Exit Function
MyError:
IsGoodPWD = False
End Function

Public Function ShowGroupMembers(DomainName As String, _
UserGroupName As String)
‘=========================================================
‘=========================================================
‘   Purpose:    To display the members of a specified user group

‘   Syntax:     ShowGroupMembers(Domain Name, User Group Name)

‘   Arguments:
‘               DomainName      — Domain name the user and group reside in
‘                            (Can also use IP Address of Primary Domain Controller)
‘               UserGroupName   — The name of the NT User Group

‘   Example:    Call ShowGroupMembers(“mydomain”, “mygroupname”)
‘============================================================
‘============================================================
Dim grp As IADsGroup, User As Object
Set grp = GetObject(“WinNT://” & DomainName & “/” & UserGroupName & “”)
For Each User In grp.members
Debug.Print User.Name
Next User
End Function

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s