Discussion :

[jcpodev]

Bonjour,

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

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

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

[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

[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ï

[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

[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