[AD] Infos sur les ordis du domaine

Marsh Posté le 04-07-2007 à 13:31:48

Alors l'avancement de mon problème:

Tout d'abord j'ai trouvé un attribut qui me retourne une date, mais il n'est pas assez précis.
"modifyTimeStamp" qui indique en fait la dernière modification effectué sur la machine.

J'ai trouvé un attribut miracle, mais je n'arrive pas à l'exploiter:
"lastlogon" qui indique la dernière authentification de la machine sur le domaine.
"lastlogon" retourne une date sur 64 bits( :pfff: ). Et c'est là mon problème, les timestamp sont sur 32 et j'arrive à faire la convertion, mais avec celui la...
Apparement sur les 64 bits de "lastlogon" il y a 32 bits pour la date et 32 bits pour l'heure. Mais je n'ai pas réussi à en extraire des infos.

Si quelqu'un sait convertir cette date, je suis preneur!!

Merci

---------------
Quand le maître montre la lune du doigt, l'élève regarde le doigt.

Marsh Posté le 04-07-2007 à 13:31:48

Marsh Posté le 04-07-2007 à 16:02:40

:hello:

J'ai résolu mon problème tout seul :ange:

[HS]
Je ne vois pas mon premier message sur ce sujet, cest louche (sans doute du au déplacement du sujet)
[/HS]

var = objRecordSet.Fields("lastLogon" )
'wscript.echo objRecordSet.Fields("Name" ).Value & " " & isobject(var) & " - " & isnull(var)
if ( isobject(var) ) then

lngHigh = var.HighPart
lngLow = var.LowPart

If lngLow < 0 Then
lngHigh = lngHigh + 1
End If

If (lngHigh = 0) And (lngLow = 0 ) Then
dtmDate = objRecordSet.Fields("modifyTimeStamp" ).Value
Else
dtmDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) + lngLow)/600000000 - lngBias)/1440
End If
else
dtmDate = objRecordSet.Fields("modifyTimeStamp" ).Value
end if

Voila voila, maintenant je peux supprimer les machines qui ne sont plus connectées sur le domaine depuis un certain temps.

---------------
Quand le maître montre la lune du doigt, l'élève regarde le doigt.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *