' Zugriff auf AD via LDAP
	Set DSO = GetObject("LDAP:")
	Set Container = DSO.OpenDSObject("LDAP://LDAPSERVER/OU=MEINE" & _
  "OU,USER,PASSWORD,0)
	Container.Getinfo
 
' Neues Textfiles erzeugen
	Dim filesys, cachefile, deletefile 
	Set filesys = CreateObject("Scripting.FileSystemObject") 
	Set cachefile= filesys.CreateTextFile(EqCacheFile, True) 
 
' Für jeden Benutzer in der OU wird eine Zeile in die Textfiles geschrieben
	For Each User In Container
	cachefile.Write "User.sAMAccountName, User.mail, User.employeeID" & vbnewline
	Next
 
' Textfiles werden geschlossen
	cachefile.Close