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.

ADSI Get Subgroups of Group

; ======================================================================
; 
; WinBatch Source File -- Created with PrimalScript 3.1
; 
; NAME: Get All Sub-Groups (indirect and direct) of selected group
; 
; AUTHOR: Adam Jongewaard
; DATE  : 12/7/2004
; COMMENT: 
; 
; ========================================================================

AddExtender("WWADS34I.DLL")
UserName="uid"

#DefineFunction GetGroups(sGroupPath)
   lGroups = dsGetMemGrp(sGroupPath)
   lAllGroups = ""
   For i = 1 To ItemCount(lGroups, @TAB)
      If dsIsObject(ItemExtract(i, lGroups, @TAB)) && StriCmp(dsGetClass(ItemExtract(i, lGroups, @TAB)), "group") == 0 Then
         If lAllGroups == "" Then lAllGroups = ItemExtract(i, lGroups, @TAB)
		   Else lAllGroups = StrCat(lAllGroups,@TAB,ItemExtract(i, lGroups, @TAB))
         newgrp = GetGroups(ItemExtract(i, lGroups, @TAB))
         If newgrp <> "" Then lAllGroups = StrCat(lAllGroups,@TAB,newgrp)
      EndIf
   Next
   Return lAllGroups
#EndFunction

groups = GetGroups("Group-ADSI-Path")
mygroups = dsGetProperty("User-ADSI-Path","memberOf")
For i = 1 To ItemCount(mygroups,@TAB)
   group=ItemExtract(2,ItemExtract(1,ItemExtract(i,mygroups,@TAB),","),"=")
   grouppath = dsFindPath("LDAP://DOMAIN.COM/DC=DOMAIN,DC=com","sAMAccountName=%group%")
   If ItemLocate(grouppath,groups,@TAB) <> 0 Then Break
   group = ""
Next



If group <> "" Then Message("%UserName% is a member of GroupName through:",group)
Else Message("Error","%UserName% is not a member of GroupName."

Article ID:   W16328

File Created: 2005:02:18:12:19:48

Last Updated: 2005:02:18:12:19:48