Conversion Script VB en Perl

Version imprimable

Bonjour,

Quelqu'un pourrait t'il ma'aider à convertir ce script VB en Perl, Merci d'avance pour votre aide.

Code:

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
30
31
32
33
34
35
36
37
38
39
40
NumAGT =wscript.arguments.item(0)
 
 
 
wscript.echo recherchesimpleCN(NumAGT)
 
Function RechercheSimpleCN(Cible)
	Dim oRoot,ND,oC,oConnex,Collect,T_DN,Tab
	ServeurCible = "P99C"
	Tab = Split(Cible,",")
	Set oRoot = GetObject("LDAP://" & ServeurCible & ".cdif.dgi/RootDSE")
	ND = oRoot.Get("defaultNamingContext")
	Set oC = CreateObject("ADODB.Command")
	Set oConnex = CreateObject("ADODB.Connection")
	oConnex.Provider = "ADsDSOObject"
	oConnex.Open "Active Directory Provider"
	oC.ActiveConnection = oConnex
	oC.CommandText = "<LDAP://" & ND & ">;(CN=" & Tab(0) & ");distinguishedName,objectCategory;subtree"
	oC.Properties("Page Size") = 100
	oC.Properties("Timeout") = 30
	oC.Properties("Cache Results") = False
	Set Collect = oC.Execute
	If Collect.EOF Then
		RechercheSimpleCN = ""
	Else
		Do Until Collect.EOF
			T_DN = Collect.Fields("distinguishedName")
			Collect.MoveNext
		Loop
		RechercheSimpleCN = T_DN
	End If
	oConnex.Close
	Set Tab = nothing
	Set T_DN = nothing
	Set ND = Nothing
	Set oRoot = Nothing
	Set oC = Nothing
	Set oConnex = Nothing
	Set Collect = Nothing
End Function

11/07/2006, 10h06
ramislebob

euh...
pourkoi tu dis pas c'que tu veux faire au lieu de nous balancer un code en VB...
ça m'a l'air naze le VB...
11/07/2006, 10h11
Arioch

Je sais pas si c'est naze, comme langage mais il vaudrait mieux que tu nous explique ce que devrait faire exactement ton programme Perl plutôt que de nous balancer tout de go un truc pas très buvable et qui est écrit dans un langage que tout le monde ne connait pas forcément.

Parce que, si demain, tu veux convertir un prog C en Python, puis en Perl, pour ensuite le faire en Ruby et pour finir en Turbo Pascal, m'est avis que tu ne vas pas trouver grand monde pour t'aider si t'en dis pas un minimum :mrgreen:
11/07/2006, 13h11
Jedai

Sans parler du fait que tu n'as même pas mis ton code dans des balises code (avec le bouton # de l'éditeur)... donc on a même pas l'indentation !
En plus pour t'aider, il faudrait au moins que nous sachions quel est ton niveau en Perl (et en VB). Comprends bien que nous ne sommes pas là pour te faire la traduction, nous sommes là pour t'aider à l'achever si tu butes sur des difficultés bien identifiées.

--
Jedaï
11/07/2006, 14h18
jcpodev

Ce programme doit tourner sur un serveur windows 2000 avec une active directory.

Ce bout de code en perl doit récupérer l'utilisateur connecté et à partir de là rechercher son chemin dans l'annuaire Ldap pour lister les attributs de cet utilisteur
11/07/2006, 14h22
jcpodev

Pour ce qui concerne mes connaissances, j'utilise trés exceptionnelemnt VB, sinon je fais de la programmation en Perl pour des besoins systémes dans une architecture Windows .

Suite à ma question, j'ai déja fait des essais avec un code en Perl, mais avec une Active directory trés chargée, j'obtiens une répons au bout de 40 à 50sec.

Le code VB rend une réponse quasi instantannée, je ne m'explique pas la différence

Si vous pouvez éclairer ma lanterne
11/07/2006, 15h09
Jedai

Ce serait avec plaisir... si nous avions ton code Perl pour comparer !! Et édites ton premier message pour mettre le code entre balise code.

--
Jedaï

OK Voici le code VB plus lisible:
_________________________________________________________________

Code:

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
30
31
32
33
34
35
36
37
38
39
40
 
 
NumAGT =wscript.arguments.item(0)
 
wscript.echo recherchesimpleCN(NumAGT)
 
Function RechercheSimpleCN(Cible)
	Dim oRoot,ND,oC,oConnex,Collect,T_DN,Tab
	ServeurCible = "P99C"
	Tab = Split(Cible,",")
	Set oRoot = GetObject("LDAP://" & ServeurCible & ".cdif.dgi/RootDSE")
	ND = oRoot.Get("defaultNamingContext")
	Set oC = CreateObject("ADODB.Command")
	Set oConnex = CreateObject("ADODB.Connection")
	oConnex.Provider = "ADsDSOObject"
	oConnex.Open "Active Directory Provider"
	oC.ActiveConnection = oConnex
	oC.CommandText = "<LDAP://" & ND & ">;(CN=" & Tab(0) & ");distinguishedName,objectCategory;subtree"
	oC.Properties("Page Size") = 100
	oC.Properties("Timeout") = 30
	oC.Properties("Cache Results") = False
	Set Collect = oC.Execute
	If Collect.EOF Then
		RechercheSimpleCN = ""
	Else
		Do Until Collect.EOF
			T_DN = Collect.Fields("distinguishedName")
			Collect.MoveNext
		Loop
		RechercheSimpleCN = T_DN
	End If
	oConnex.Close
	Set Tab = nothing
	Set T_DN = nothing
	Set ND = Nothing
	Set oRoot = Nothing
	Set oC = Nothing
	Set oConnex = Nothing
	Set Collect = Nothing
End Function

_________________________________________________________________
Puis le code Perl donnant le même résultat mais plus long :
_________________________________________________________________

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
use Win32::OLE qw(in);
 
$cn = "CN=999999";
 
showObjects("LDAP://OU=cdif,DC=P77D,DC=dgi","user");
 
sub showObjects {
    my ($path, $space) = @_;
    my $object = Win32::OLE->GetObject($path);
    if ($cn eq $object->{Name})
        {
         print "\n Utilisateur $cn Trouve\n";
         print $childObject->{Name},"\n" if ($childObject->{Class} eq "User");
         print " Chemin : $object->{ADsPATH} Parent : $object->{Parent}\n";
         exit;
        }
    foreach my $childObject (in $object) {
 
    showObjects($childObject->ADsPath, $space . "  ");
   }
}

_________________________________________________________________

11/07/2006, 15h56
jcpodev

Lindentation est bien faite dans mon produit de Dev, mais c'est la recopie dans cette fenêtre qui réaligne tout
11/07/2006, 16h03
Jedai

Qu'est-ce qui n'est pas clair dans "utiliser le bouton # de l'éditeur pour mettre la sélection entre balise code" ? J'ai fait la modif sur ton premier message, tu n'as qu'à l'éditer pour voir comment j'ai fait.

--
Jedaï