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.

Recursive DsGetMemGrp Example

AddExtender("wwads34i.dll")
 
#DefineFunction GetMembers(group,filehandle)
	objects = dsGetMemGrp(group)
	For x = 1 To ItemCount(objects,@TAB)
		If dsGetClass(ItemExtract(x,objects,@TAB)) == "group" Then
			GetMembers(ItemExtract(x,objects,@TAB),filehandle)
		Else
			FileWrite(filehandle,ItemExtract(x,objects,@TAB))
		EndIf
	Next
	Return 1
#EndFunction

grouppath = "Adsi path to the group"
 
filehandle = FileOpen(Strcat(Environment("TEMP"),"\users.txt"),"WRITE")
GetMembers(grouppath,filehandle)
FileClose(filehandle)

FileArray = ArrayFileGet(Strcat(Environment("TEMP"),"\users.txt"),"",0)
filehandle = FileOpen(Strcat(Environment("TEMP"),"\users.txt"),"WRITE")
numofelements = arrinfo(FileArray,1)

For x = 0 to (numofelements - 1)
	CurrentUser = ItemExtract(-1,ItemExtract(1,FileArray[x],","),"=")
	If IsDefined(Users) 
		If !StrindexNC(users,CurrentUser,1,@FWDSCAN)
			users = StrCat(Users,@tab,CurrentUser)
			FileWrite(filehandle,CurrentUser)
		EndIf
	Else
		users = CurrentUser
		FileWrite(filehandle,CurrentUser)
	EndIf
Next
FileClose(filehandle)

Article ID:   W15827

File Created: 2004:03:30:15:41:00

Last Updated: 2004:03:30:15:41:00