Requete vers AD ne fonctionne pas

Bonjour à tous,

J'ai fait un script pour rechercher dans AD tous les comptes type "contracted" que j'exporte dans un fichier.

Voici la requete :

Code:

---

objShell.Run("%comspec% /c dsquery * ou=monOU,dc=monDC -filter " & Chr(34) & "(&(objectCategory=Person)(objectClass=User)(!accountExpires=0)(!accountExpires=9223372036854775807)(EmployeeType=Contracted)) " & Chr(34) & "-attr sAMAccountname displayName -limit 0 >" & OUTPUT1_FILE_NAME), 0, True

---

Problème 1 : Je dois avoir un problème de guillemets mais je ne vois pas où.... car la requete provoque une erreur de syntaxe
Problème 2 : Je voudrais ajouter un argument supplémentaire pour qu'il ne sorte que les comptes type "contracted" et avec la date d'expiration < à aujourd'hui...

POuvez- vous m'aider ?

Merci beaucoup d'avance,

Nitro