Récupérer des informations sur le compte AD actuellement connecté

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
strComputer = objSysInfo.ComputerName

strsite=UCase(objSysInfo.SiteName)

Set objUser = GetObject("LDAP://" & strUser)
strUserName = objUser.displayName

Set objComputer = GetObject("LDAP://" & strComputer)
	

Wscript.echo strUser
Wscript.echo strUserName
'Wscript.echo objUser.objectSid

Wscript.echo strComputer
Wscript.echo objComputer.Name
'Wscript.echo objComputer.objectSid
Wscript.echo strsite

Set objSysInfo = Nothing