WDForge.org - Forums - WD 10 - ACTIVE DIRECTORY-LASTLOGON

Index des forums WDForge.org

WD 10

ACTIVE DIRECTORY-LASTLOGON

Bas

Suivant S'enregistrer pour contribuer

ACTIVE DIRECTORY-LASTLOGON

Stagiaire WDF

Inscrit:
03/01/2005 15:40

Post(s): 34

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

Contribution le : 14/02/2008 20:48

_________________
Cordialement
Marcello

	Re: ACTIVE DIRECTORY-LASTLOGON	#2
Stagiaire WDF Inscrit: 03/01/2005 15:40 Post(s): 34	C'est bon j'ai trouvé. Contribution le : 17/02/2008 20:46
Stagiaire WDF Inscrit: 03/01/2005 15:40 Post(s): 34	_________________ Cordialement Marcello

Haut

S'enregistrer pour contribuer

Vous ne pouvez pas débuter de nouveaux sujets.

Vous pouvez voir les sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.