ACTIVE DIRECTORY-LASTLOGON
Posté par marcello50 le 14/2/2008 20:48:44
Bonjour
Je cherche à transformer la valeur Lastlogon qui sous Active directory et un entier 64 bits.
J'ai trouver du code vbs qui le fait.
J'ai donc essayé de l'adapter à Windev sans succés.
J'essaie de récuperer le poidsfaible et le poids fort de la valeur mais si j'utlise
poidsfort(127718490668401648)
je ne récupére pas la bonne valeur.
Si quelqu'un a une idée
Cordialement
Je cherche à transformer la valeur Lastlogon qui sous Active directory et un entier 64 bits.
J'ai trouver du code vbs qui le fait.
J'ai donc essayé de l'adapter à Windev sans succés.
Option Explicit
Dim objOU, objUser, objRootDSE, objLastLogon
Dim strContainer, strDNSDomain
Dim intLastLogonTime, intGuyTime
' --------------------------------------------------------'
' Note: Please change OU=Droitwich, to reflect your domain
' --------------------------------------------------------'
strContainer = "OU=Droitwich, "
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
strContainer = strContainer & strDNSDomain
set objOU =GetObject("LDAP://" & strContainer )
For Each objUser In objOU
Set objLastLogon = objUser.Get("lastLogon")
intLastLogonTime = objLastLogon.HighPart * (2^32) + objLastLogon.LowPart
intLastLogonTime = intLastLogonTime / (60 * 10000000)
intLastLogonTime = intLastLogonTime / 1440
Wscript.Echo objUser.givenName & " 's last logon time: " _
& intLastLogonTime + #1/1/1601#
Next
WScript.QuitJ'essaie de récuperer le poidsfaible et le poids fort de la valeur mais si j'utlise
poidsfort(127718490668401648)
je ne récupére pas la bonne valeur.
Si quelqu'un a une idée
Cordialement
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5696&post_id=23224