Deaktivierte Accounts rausschreiben

[Hamza Raya]

Hallo Leute...

Habe da so eine kleine Frage. Ich schreibe gerade ein Script dass alle lokalen User aus dem Computer liest und diese Accounts welche gelockt sind dann in eine Liste schreibt. Leider bleibt die Liste leer und ich habe keine Ahnung warum, da ich noch ein ziemlich unerfahrener "Programmierer" bin. Hier der Quellcode:

------------------------------------------
strComputer = "WS1033"
strFile ="C:\UserInfo.txt"

Set objComputer = GetObject("WinNT:// " & strComputer & "")
objComputer.Filter = Array("User")

set filesys = WScript.CreateObject("Scripting.FileSystemObject")
set Writingfile = filesys.OpenTextFile(strFile,2,true)

For Each objUser In objComputer

If objUser.IsAccountLocked = True Then
  Writingfile.WriteLine(objUser)
  Writingfile.WriteBlankLines(1)
End If

Next
------------------------------------------

Kann mir da jemand weiterhelfen? Bin dankbar für jede Hilfe.

Gruss
Hamza