VBS function AD/LDAP

Bonjour, j'ai une question sur la fonction du LDAP et de l'active directory.
Je souhaite supprimer un contact de mon AD en cliquant sur le script mais à ce script je veux ajouter la fonction que ce contact se supprime si le USERNAME = administrateur (quand l'user se connecte grâce à un compte utilisateur windows exemple : M.martin) , l'username se voit en tappant set dans le cmd windows , je ne sais comment créer cette fonction.

Code:

---

1 2 3 4 5

strComputer = " "   set objComputer = GetObject("LDAP://CN=" & strComputer & _ ",CN=x,DC=x,DC=com") objComputer.DeleteObject (0)

---

ceci est mon script qui fonctionne sans la fonction que je veux introduire
Merci pour vos futurs reponses.

obtenir le nom de la personne :

Code:

---

1 2	Set WshNetwork = WScript.CreateObject("WScript.Network") wscript.echo WshNetwork.UserName

---

Avec cette valeur, tu peux ensuite faire un if instr(WshNetwork.UserName,"Administrateur") et comparer le résultat...

je vais essayer ca tout de suite merci.