Alles User einer Domäne überprüfen

[Hamza Raya]

Hallo Leute

Nun hab ich es so irgenwie hinbekommen dass er mir den User, falls dessen Account auf der Domäne deaktiviert ist, in ein Text-File schreibt. Momentan muss ich aber den Namen angeben und kann deswegen nur EINEN account überprüfen. Was ich aber brauche ist ein Script dass alle Acounts der Domäne überprüft ob diese deaktiviert sind. Wie kann ich dies bewerkstelligen ?

Hier der momentant Code. Ich brauche irgendein "For each objUser ..."

Const ADS_UF_ACCOUNTDISABLE = 2

Set objUser = GetObject ("LDAP://cn=vzrh1,ou=user,OU=OU,dc=vt,dc=ch")

'neu eingefügt
strMes = "Please modify the location and the text file name that you want: "
strFile =  "C:\UserInfo.txt"

'wscript.echo strFile

set filesys = WScript.CreateObject("Scripting.FileSystemObject")
  set Writingfile = filesys.OpenTextFile(strFile,2,true)
  Writingfile.WriteLine(" CN " & " Display Name ")
  Writingfile.WriteBlankLines(1)

'neu bis hier

if objUser.AccountDisabled = true then
  writingfile.writeline objuser.AccountDisabled & objuser.name
else
  Msgbox objUser.samAccountName & ", " & objUser.displayName
end if

next

bin dankbar für jede Hilfe
Gruss
Hamza