Database Search

TechHome

• !!DISCLAIMER!!
• AD Syncronization
• Add Computer to an Active Directory Group
• ADSI COM Find Primary Group
• ADSI COM List Groups
• ADSI Create Group
• ADSI Extender Security Descriptor Sample
• ADSI Get OU Properties
• ADSI Get Subgroups of Group
• ADSI List Group Names and Email Property
• ADSI Primer
• ADSI Query String Creator
• Create a Mail Enabled Contact
• Create Enable and Disable User Account
• Create Exchange 2000 User Account
• Create IIS Virtual Directory
• Create User in AD with CSV file
• Delete Computer Account
• Determine if a WS and a server are in the same AD Site
• Determine LastLogin
• DsGetDcName
• Figure out User Account Attributes
• Get a list of users and write out to CSV file
• Get all Domain printers
• Get Date User Account was Created
• Get Nested User Groups
• Get TCP IP Configuration From Each Domain Controller
• Get User Information From Another Domain
• Getting E-Mail Address for all users in OU
• Group Exist
• Hierarchically Adding Users to Groups
• JoinDomain
• List ADSI Paths of Groups and their Members
• List All Servers in the Current Domain
• List Users
• OLE COM dsGetMemGrps Alternative
• Recursive DsGetMemGrp Example
• REmove User from Printer Object
• Set Home Directory for User
• Translate NT Name to LDAP Path
• Traverse OU and Generate a Report of Objects
• Useful ADSI Site server functions

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

OLE COM dsGetMemGrps Alternative

Simple Example:

usr = GetObject(UserPath) ;Pass this the same thing you passed dsGetUsersGrps
groups = ""
ForEach grp In usr.Groups
    groups = StrCat(groups, @TAB, grp.Name)
Next
AskItemlist("Groups user is member of", groups, @TAB, @UNSORTED, @SINGLE)
usr = 0

Better example using ADSI Extender:

AddExtender("wwads44i.dll")

; Probably will not work as is across domains.

#DefineFunction GetAllGroups(strServer, strObjPath, plAllGroups)

   ; Look for a nested group.
   lMembership = dsGetProperty(strObjPath, "memberOf")
   nMemberOfs = ItemCount( lMembership, @TAB)
   For i = 1 To nMemberOfs

      ; Get the next group.
      strPath = ItemExtract(i, lMembership, @TAB)
      strPath = strServer:"/":strPath

      ; Check for tombstones.
      If dsIsObject(strPath)

         ; Prevent duplicates and infinity
         If ItemLocate(strPath, *plAllGroups, @TAB) Then Continue

         ; Add to group list
         *plAllGroups = ItemInsert(strPath, -1, *plAllGroups, @TAB)

         ; Add groups memeber to list
         GetAllGroups(strServer, strPath, plAllGroups)
      EndIf
   Next

   Return 1
#EndFunction

; Set values by method of choice.
strServer  = "LDAP://shamrock" ; Our test server
strUserSam = "rrabbit"          ; A test user with convoluted group membership.
lAllGroups = ""

; Get the full path.
strUser = dsFindPath(strServer, "(&(objectCategory=person)(sAMAccountName=%strUserSam%))")
If strUser == ""
   Message("Blah Blah Blah", "Bad user SAM name")
   Exit
EndIf

; Get regular groups
GetAllGroups(strServer, strUser, &lAllGroups)

; Get Primary group when necessary.
strPrimGroup = dsGetPrimGrp(strUser)
If !ItemLocate( strPrimGroup, lAllGroups, @TAB )
   lAllGroups   = ItemInsert(strPrimGroup, -1, lAllGroups, @TAB)
   GetAllGroups(strServer, strPrimGroup, &lAllGroups)
EndIf

Message("All Groups", lAllGroups)

Article ID:   W16815

File Created: 2011:02:17:16:23:56

Last Updated: 2011:02:17:16:23:56