Discussion :

[cougar5]

Bonjour à tous,

Voici un script qui me permet de récuperer des champs dans mon Active Directory. Tout fonctionne correctement sauf lorsque je tente de récupérer le champ 'lastlogon'. Ce champ est de type 'integer8', le résultat de ma commande me renvoit une chose du genre : win32::ole=HASH(0x197c034) !!

Pour les autres champs qui sont de type "DirectoryString" ou "DN", je n'ai pas de souci.

J'ai tenté de récuperer la valeur du HASH, mais je n'y arrive pas.

Auriez vous une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
my $strGroupDN = "OU=utilisateurs,OU=stagiaires,DC=domaine,DC=local";
use Win32::OLE 'in';
$Win32::OLE::Warn = 3;
 
my $objGroup = Win32::OLE->GetObject("LDAP://" . $strGroupDN);
 
 
foreach my $Member (in $objGroup) {
 
		$Name = $Member->Name; #Type DirectoryString
 
		$PathName = $Name.",".$strGroupDN;
 
		$Lastlogon = $Member->lastLogonTimestamp; #Type Integer8
 
		print "$Name\n";
 
		print "$Lastlogon\n";
 
}

Je vous remercie,

Cougar5

[cougar5]

Re bonjour,

Quelqu'un aurait une petite idée ?

merci,

CC

[Invité]

Désolé, je n'ai pas ta réponse toute crue. Mais ce lien t'aidera certainement, tu as tous les scripts Perl d'administration Windows.

[cougar5]

Tu n'as pas à être désolé vu la qualité du contenu du zip que tu proposes !!!
J'ai trouvé une partie de ma réponse, je testerai très prochainement.
Le temps que j'aurai gagné si j'avais eu ces exemples entre les mains.
MERCI

CC

[cougar5]

Bonjour,

Malheureusement, le code indiqué ne fonctionne pas même après quelques modifs.
Voici le code indiqué dans l'url indiqué plus haut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
# Adapted from VBScript code contained in the book:
#      "Active Directory Cookbook" by Robbie Allen
# ISBN: 0-596-00466-4
# ---------------------------------------------------------------
 
# not working
 
# ------ SCRIPT CONFIGURATION ------
my $strUserDN = "<UserDN>";  # e.g. cn=rallen,ou=Sales,dc=rallencorp,dc=com
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objUser = Win32::OLE->GetObject("LDAP://" . $strUserDN);
my $objLogon = $objUser->Get("lastLogonTimestamp");
my $intLogonTime = ($objLogon->HighPart * 2^32) + $objLogon->LowPart;
$intLogonTime = $intLogonTime / (60 * 10000000);
$intLogonTime = $intLogonTime / 1440;
print "Approx last logon timestamp: ", scalar localtime($intLogonTime),"\n";

L'auteur indique lui meme que le script ne fonctionne pas.

J'ai tenté un tas de truc rien n'y fait.

Si quelqu'un a une idée ?

Merci,

CC

[Mr6]

Le CPAN est ton ami, et plus particulièrement Net::LDAP.

@+
Mr6

[cougar5]

Bonsoir,

Merci pour mon nouvel ami
Avec ce module, le résultat est un peu différent mais toujours incompréhensible.

Dans le code, j'affiche pour un user, le lastlogon mais il s'agit toujours d'un integer8 !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
use Net::LDAP;
 
my $uid = 'CN=admin,CN=Users,DC=Domaine,DC=local';
my $bindPass = "secret";
my $ldapServer = 'ldap://localhost:389/';
 
$ldap = Net::LDAP->new ( $ldapServer ) or die "$@";
 
$ldap->bind($uid, password =>$bindPass);
 
$mesg = $ldap->search(
 
					filter=>"(CN=john smith)", 
					base=>"CN=Users,DC=Domaine,DC=local"
 
				);
 
@entries = $mesg->entries;
foreach $entry (@entries) {
 
  print "Name: " . $entry->get_value("displayName") . "\n";
  print "LastLogon: ".$entry->get_value("lastLogon")."\n\n";
 
}
 
print "\nRESULT : [".$mesg->error()."]\n";
 
$ldap->unbind;

Le résultat est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Name: john smith
LastLogon: 128707204219843750

Mais je n'arrive toujours pas convertir le résultat de LastLogon en date lisible.

Merci pour votre aide,

CC

[cougar5]

Re,
J'ai trouvé ceci, mais la valeur retournée est négative, elle correspond à la dernière soustraction. La variable $uPval serait alors nulle.

3. Some functions use a long integer time format that is difficult to deal with.
(the lastLogon property of users in AD, for example)
I created this function to translate it into perl time() format from scraps I found on the Internet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
...
$LastLogon = $entry->get_value("lastLogon");
 
&MS2PerlTime($LastLogon);
...
 
 
sub MS2PerlTime { 
			my $uPval = pack( "II", $_[0]->{LowPart}, $_[0]->{HighPart} );
			my ( $bVp, $aVp ) = unpack( "LL", $uPval );
			$uPval = ( $aVp * 2**32 + $bVp ) / 10000000;
			return ( $uPval - 11644473600 ); 
}

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Name: john smith
LastLogon:  -11644473600

Je n'ai fait que du copié/collé de code, je ne comprends pas trop ce que fait cette fonction...

Merci,

CC

PS : Source récupérée ici : http://perl.markmail.org/message/y7v...stlogon+format

[Invité]

De mémoire, ce nombre est le nombre de millisecondes passées depuis The Epoch (1er janvier 1900 sous Windows ou 1er janvier 1970 sous Unix).

[cougar5]

Merci pour vos réponses.
En voulant faire un reply sur le message précédent pour y présenter quelques valeurs de "lastlogon" brut, j'ai trouvé la solution.

Par contre, je suis étonné de la complexité du code de mon post précédent par rapport à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
sub MS2PerlTime2 { 
 
			$uPval =  $_[0] / 10000000;
			$uPval =  $uPval - 11644473600 ;
			$Lastlogonconverted = localtime($uPval);
			return($Lastlogonconverted);
}

Voici le résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
LastLogon Brut: 129092657111562500   (Fri Jan 29 20:08:31 2010)
LastLogon Brut: 128707204219843750   (Sun Nov  9 17:07:01 2008)
LastLogon Brut: 128707203047500000   (Sun Nov  9 17:05:04 2008)
LastLogon Brut: 128707202814375000   (Sun Nov  9 17:04:41 2008)

Je trouverai peut être un loup plus tard.

Dans tous les cas, merci pour l'aiguillage !

CC