Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
627 connectés 

  FORUM HardWare.fr
  Systèmes & Réseaux Pro
  Infrastructures serveurs

  [AD] Infos sur les ordis du domaine

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[AD] Infos sur les ordis du domaine

n°21832
LlNKOU
Posté le 04-07-2007 à 13:31:48  profilanswer
 

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.
mood
Publicité
Posté le 04-07-2007 à 13:31:48  profilanswer
 

n°21845
LlNKOU
Posté le 04-07-2007 à 16:02:40  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Systèmes & Réseaux Pro
  Infrastructures serveurs

  [AD] Infos sur les ordis du domaine

 

Sujets relatifs
Joindre un PC windows 98 à un domaineControleur de domaine secondaire ou pas ?
jonction d'un domaineServeur RIS et mise en domaine
Problème d'écriture sur C: avec un compte membre de admins du domaineProblème d'accès à un sous domaine
Comment assigner un nom de domaine a une ip ?Gerer soit même le DNS de son nom de domaine
[RESOLU] DFS: Racine de domaine fantôme 
Plus de sujets relatifs à : [AD] Infos sur les ordis du domaine


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR