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.

Hierarchically Adding Users to Groups

AddExtender("WWWNT34i.DLL")
addExtender("WWADS34I.DLL")
sAdsiPath = 'LDAP://domain.com' 
IntControl (40, 1, 0, 0, 0)
handle=fileopen("C:\temp\Test-group-import.txt", "write")
dc=wntGetDc( "", "", 0)
globalgroups= wntAcctList( dc, 3, 0)
groupscnt=itemcount(globalgroups, @TAB)
for x=1 to groupscnt
	thisgroup=itemextract(x, globalgroups, @TAB)
	rslt1 = StrCnt(thisgroup, "_", 1, -1, 0)
	rslt2 = StrCnt(thisgroup, "Domabt", 1, -1, 0)
	if rslt1 == 2 & rslt2 == 1
		Grouppath= ""
		Grouppath= dsFindPath(sAdsiPath, "sAMAccountName=%thisgroup%")
		GroupParentPath= ""
		GroupParentPath= dsGetPrntPath(Grouppath)
		GroupParentChildrenPath = ""
		GroupParentChildrenPath = dsGetChldPath(GroupParentPath, "organizationalUnit")
		if strindexnc(GroupParentChildrenPath, "Users", 0, @FWDSCAN)
			searchFilter = "(&(objectCategory=person)(objectClass=user))"
			LDAPGroupResults = ""
			LDAPGroupResults = dsFindPath(GroupParentPath , searchFilter) 
			If LDAPGroupResults != ""
				LDAPGroupResultCount=itemcount(LDAPGroupResults, @TAB)
				for y=1 to LDAPGroupResultCount
					ThisUserPath=itemextract(y, LDAPGroupResults, @TAB)
					TestMember=dsIsMemberGrp(Grouppath,ThisUserPath)
					If TestMember == 1 
						;nothing to do!
					Else
						dsAddToGrp(Grouppath, ThisUserPath)
						filewrite(handle, strcat(thisgroup, " - ",ThisUserPath))
					EndIf
				next
			endif
		endif
	endif
next
fileclose(handle)
exit

Article ID:   W16332

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

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