Script zum auslesen des Stanard PW im AD funktioniert nicht.

'Hier die einzelnen Variablen definieren    
'DN der OU, die durchsucht werden soll    
strDN = "OU=xxx,DC=xxx,DC=xxx,DC=xxx"   
'Pfad zum Logfile, in dem die User mit Standardkennwort eingetragen werden    
strLogPath = "c:\logfile.txt"    
'UNC-Pfad, der zum Test gemappt werden soll    
strTestUNC = "\\meinpc\testshare"    
'Wie sieht das Standardkennwort aus?    
strPass =  "xxxx"    
'AB HIER NICHTS MEHR VERÄNDERN!    
'===========================================================================    
   
Set objOU = GetObject ("LDAP://" & strDN)    
objOU.Filter = Array("User")    
Set objNet = CreateObject ("WScript.Network")    
Set objFso = CreateObject("Scripting.FileSystemObject")    
Set objTs = objFso.OpenTextFile(strLogPath, 2, True)  
objTs.WriteLine Now  
objTs.writeline("Folgende Benutzer verwenden noch " _    
& "das initiale Kennwort:")    
Set WshShell = WScript.CreateObject("WScript.Shell")    
On Error Resume Next  
For Each user In objOU  
' Usernamen ausgeben    
WScript.Echo user.Name  
' Test: Laufwerk verbinden    
objNet.MapNetworkDrive "X:", strTestUNC, _    
, user.SamAccountName, strPass  
' Fehler aufgetreten?    
If Err.Number = 0 Then  
' Nein, User protokollieren    
objTs.writeline(user.Samaccountname)  
Else  
' Ja, Fehler anzeigen    
WScript.Echo "Fehler " & Err.number _    
& " (" & Err.Description & ") " _    
& "bei User: " & user.Name    
Err.Clear  
End If  
objNet.RemoveNetworkDrive "X:"  
Next