VBS fonction de suppression

Bonjour, je viens demander de l'aide sur un bout de script .vbs sur le 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 (ou le nom de l'user qui se connecte grâce à un compte utilisateur) , l'username se voit en tappant set dans le cmd windows , je ne sais comment y parvenir.

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.