TUTOS.EU

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

Récupérer des informations sur le compte actuellement connecté comme son login ou son site AD

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
Lien vers le fichier : cliquez ici Copier le code

objSysInfo.SiteName / SiteName correspond au site active directory

Pages Web

Site WebDescription
HeyscriptingguyRécupération des attributs de l'utilisateur avec ADSystemInfo

2