• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Net User Information

Net User Information

Net User Information

Rate Net User Information

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   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