WDForge.org - Forums

ACTIVE DIRECTORY-LASTLOGON

Sujet: ACTIVE DIRECTORY-LASTLOGON
par marcello50 sur 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.

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.Quit

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