Gewisse Attribute aus AD Auslesen per LDAP über ein VB Script - Problem bei der Anbindung einer zweiten OU

on error resume next

Pfad = "C:\...\user.txt"  

set fso = CreateObject("Scripting.FileSystemObject")  
set fsoFile = fso.CreateTextFile(Pfad, true)

Set OU = GetObject("LDAP://OU=OU1,DC=DC1,DC=de")  

'Setup um alle User in der oben genannten OU zu ändern.  
'Gather each user name.  
For Each oUser in OU

'Sicherstellen das NUR User Klasse.  
if oUser.Class = "user" Then  
'Überprüfen, ob Name nicht leer ist  
if oUser.sn <> "" then  
strOutput = strOutput & oUser.sn & ", " 'Vorname  
strOutput = strOutput & oUser.givenname & " ; " 'Nachname  
strOutput = strOutput & oUser.mail & " ; " 'Mail  
strOutput = strOutput & oUser.telephoneNumber & " ; " ' Telefon  
strOutput = strOutput & oUser.mobile & " ; " ' Mobile  
strOutput = strOutput & oUser.facsimileTelephoneNumber & " ; " ' Fax  
strOutput = strOutput & oUser.physicalDeliveryOfficeName & " ; " ' Büro/Einrichtung  
strOutput = strOutput & oUser.department & " ; " ' Abteilung  
strOutput = strOutput & oUser.streetAddress & " ; " ' Straße  
strOutput = strOutput & oUser.postalCode & " ; " ' PLZ  
strOutput = strOutput & oUser.l & " ; " ' Ort  
strOutput = strOutput & oUser.st & " ; " & vbCRLF' Bundesland  
'strOutput = strOutput & oUser.description & " " & vbCRLF ' Beschreibung  

End If
End if

'Objekt schließen.  
Set oUser = Nothing

Next

fsoFile.WriteLine strOutput

WsCript.echo "OU Update fertig"  
WsCript.Quit