OVH Cloud OVH Cloud

date de création d'un utilisateur en vbs

2 réponses
Avatar
david
,bonjour à tous,

J'utilise un script vbs qui me renvoie dans une feuille excel la liste de
tous les utilisateurs contenus dans chaque OU de l'active directory.

Je récupére pour chaque user le chemin du profil, le nom complet, le
téléphone, les renseignements sur le mot de passe (expiration),.......

J'aimerai en plus connaitre la date de création de l'utilisateur.

Est ce possible?

Merci

2 réponses

Avatar
Stéphane [MS]
Bonjour,

Toujours sur ce bon vieux Script Center :

========================================================= Set objUser = GetObject _
("GC://cn=MyerKen,ou=Management,dc=NA,dcúbrikam,dc=com")

strWhenCreated = objUser.Get("whenCreated")
strWhenChanged = objUser.Get("whenChanged")

Set objUSNChanged = objUser.Get("uSNChanged")
dblUSNChanged = _
Abs(objUSNChanged.HighPart * 2^32 + objUSNChanged.LowPart)

Set objUSNCreated = objUser.Get("uSNCreated")
dblUSNCreated = _
Abs(objUSNCreated.HighPart * 2^32 + objUSNCreated.LowPart)

objUser.GetInfoEx Array("canonicalName"), 0
arrCanonicalName = objUser.GetEx("canonicalName")

WScript.echo "Canonical Name of object:"
For Each strValue in arrCanonicalName
WScript.Echo vbTab & strValue
Next
WScript.Echo

WScript.Echo "Object class: " & objUser.Class
WScript.echo "When Created: " & strWhenCreated & " (Created - GMT)"
WScript.echo "When Changed: " & strWhenChanged & " (Modified - GMT)"
WScript.Echo
WScript.Echo "USN Changed: " & dblUSNChanged & " (USN Current)"
WScript.Echo "USN Created: " & dblUSNCreated & " (USN Original)"
========================================================
Cdlt
Stéphane

"david" a écrit dans le message de news:

,bonjour à tous,

J'utilise un script vbs qui me renvoie dans une feuille excel la liste de
tous les utilisateurs contenus dans chaque OU de l'active directory.

Je récupére pour chaque user le chemin du profil, le nom complet, le
téléphone, les renseignements sur le mot de passe (expiration),.......

J'aimerai en plus connaitre la date de création de l'utilisateur.

Est ce possible?

Merci





Avatar
david
Merci pour la réponse.

A+


Bonjour,

Toujours sur ce bon vieux Script Center :

========================================================= > Set objUser = GetObject _
("GC://cn=MyerKen,ou=Management,dc=NA,dcúbrikam,dc=com")

strWhenCreated = objUser.Get("whenCreated")
strWhenChanged = objUser.Get("whenChanged")

Set objUSNChanged = objUser.Get("uSNChanged")
dblUSNChanged = _
Abs(objUSNChanged.HighPart * 2^32 + objUSNChanged.LowPart)

Set objUSNCreated = objUser.Get("uSNCreated")
dblUSNCreated = _
Abs(objUSNCreated.HighPart * 2^32 + objUSNCreated.LowPart)

objUser.GetInfoEx Array("canonicalName"), 0
arrCanonicalName = objUser.GetEx("canonicalName")

WScript.echo "Canonical Name of object:"
For Each strValue in arrCanonicalName
WScript.Echo vbTab & strValue
Next
WScript.Echo

WScript.Echo "Object class: " & objUser.Class
WScript.echo "When Created: " & strWhenCreated & " (Created - GMT)"
WScript.echo "When Changed: " & strWhenChanged & " (Modified - GMT)"
WScript.Echo
WScript.Echo "USN Changed: " & dblUSNChanged & " (USN Current)"
WScript.Echo "USN Created: " & dblUSNCreated & " (USN Original)"
======================================================== >
Cdlt
Stéphane

"david" a écrit dans le message de news:

,bonjour à tous,

J'utilise un script vbs qui me renvoie dans une feuille excel la liste de
tous les utilisateurs contenus dans chaque OU de l'active directory.

Je récupére pour chaque user le chemin du profil, le nom complet, le
téléphone, les renseignements sur le mot de passe (expiration),.......

J'aimerai en plus connaitre la date de création de l'utilisateur.

Est ce possible?

Merci