Dim WSHNetwork
Set WSHNetwork = CreateObject("WScript.Network")
DomainString = Wshnetwork.UserDomain
UserString = WSHNetwork.UserName
Wscript.echo "L'utilisateur connecté est " & DomainString & "\" & UserString
Set WSHShell = Nothing
Lien vers le fichier : cliquez ici