Dim WSHNetwork

Set WSHNetwork = CreateObject("WScript.Network")

DomainString = Wshnetwork.UserDomain
UserString = WSHNetwork.UserName

Wscript.echo "L'utilisateur connecté est " & DomainString & "\" & UserString

Set WSHShell = Nothing