[VBS + LDAP + HTML] Récupération des infos utilisateurs d'un AD

Récupération des infos utilisateurs d'un AD [VBS + LDAP + HTML] - VB/VBA/VBS - Programmation

Marsh Posté le 10-07-2006 à 10:55:09    

salut a tous!  voila j'ai un petit pblm sur un dev
Avec un formulaire acces le code suivant marche tres bien, je récupere le nom et le prenom d'un utilisateur à partir de son id (ici ipn).
Quand je veux faire une page HTML à la place d'un formulaire ACCESS et bien ca ne fonctionne pas !
je pense que c'est un truc tous bete mais je suis un gros débutant en VB et HTML...
 
rappel : c'est un script que l'on ma passé dans la boite ou ej travail
 

Citation :


 c_IPN = v_ipn 'txt field contenu dans mon formulaire, ceci est la clé primaire sur laquelle va se baser la recherche
        'definition des variables de connexion ARCA
        sComputerLDAP = "XXX"
        sPrefixLDAP = "LDAP://" & sComputerLDAP & "/"
        sContainerLUser = "ou=people,o=XXX"
        ADsPathARCA = "<" & sPrefixLDAP & sContainerLUser & ">"
         
        'conexion ARCA
        Set connexionLDAP = CreateObject("ADODB.Connection" )
        connexionLDAP.Provider = "ADsDSOObject"
        connexionLDAP.Open "LDAP Provider" 'nom de conexion au choix ...
         
        'Recherche de l'utilisateur dans ARCA avec son c_IPN :
        Set rs = connexionLDAP.Execute(ADsPathARCA & ";(&(objectclass=extendedperson)(uid=" & c_IPN & " ));cn,ADsPath" )
        ARCA = 1
        If rs.EOF Then
            ARCA = 0
            'Erreur sur l'ipn
            MsgBox "IPN non valide"
 connexionLDAP.Close
 Set connexionLDAP = Nothing
        End If
         
        If ARCA <> 0 Then
            userPath = rs.Fields("ADsPath" )
            Set USER1 = GetObject(userPath)
             
            'les fonctions get sont définies pour récupérer les champs de la table          
            V_Nom = USERl.Get("sn" ) 'txt field contenu dans mon formulaire'
            V_Prenom = USERl.Get("givenname" )   'txt field contenu dans mon formulaire'
       
        End If
     
    'Fermeture de la connexion ARCA
    connexionLDAP.Close
    Set connexionLDAP = Nothing
   


Merci

Reply

Marsh Posté le 10-07-2006 à 10:55:09   

Reply

Marsh Posté le 10-07-2006 à 11:16:12    

qu'est-ce qui ne fonctionne pas ? obtiens tu ne serais-ce qu'un de msgbox ? ton code n'est pas compilé ?
peux-tu expliciter ton "ne fonctionne pas" stp ? :) :jap:

Reply

Marsh Posté le 10-07-2006 à 11:21:47    

Citation :


V_Nom = USERl.Get("sn" )  
V_Prenom = USERl.Get("givenname" )    


 
Ce bout de code fonctionne en VB. Mes txtfields que sont V_Nom et V_Prenom recoivent sans prblm le retour de la fonction get. Sur la page HTML, ben ca a l'air de compilé (j'ai fait des tests avec des if etc...) mais les txtfield restent vides. What's happening ????? :'( !

Reply

Marsh Posté le 10-07-2006 à 15:53:31    

Darkside a écrit :

Citation :


V_Nom = USERl.Get("sn" )  
V_Prenom = USERl.Get("givenname" )    


 
Ce bout de code fonctionne en VB. Mes txtfields que sont V_Nom et V_Prenom recoivent sans prblm le retour de la fonction get. Sur la page HTML, ben ca a l'air de compilé (j'ai fait des tests avec des if etc...) mais les txtfield restent vides. What's happening ????? :'( !


 
tes text fields ne retournent que l'information V_nom et V_prenom, pour leur donner une valeur, tu dois faire un Set, si tu ne remplis pas les txt fields, ca m'etonnerait qu'avec un .get tu les remplisse en fait :s

Reply

Marsh Posté le 10-07-2006 à 17:03:25    

Faire un Set ? tu peux m'en dire plus ?
en faite je faisait V_Prenom.value = xx.get("xx" ), mais ca ne passe pas !
alors que V_Prenom.value = "plop" ca passe !

Reply

Marsh Posté le 10-07-2006 à 17:08:12    

petit ajout : vérifie que tu as bien USER1 et non pas USERl comme j'ai l'impression de le lire dans ton code
 
V_Prenom.value=givenname.caption devrait suffire, personne je n'utilise jamais (pour l'instant tout du moins) les get, set et autre find...

Reply

Marsh Posté le 11-07-2006 à 08:54:04    

Mince ca ne marche toujours pas....
pas d'erreurs, mais rien ne s'affiche dans le textefield...

Reply

Marsh Posté le 11-07-2006 à 15:49:26    

News :  
 
code en .vbs qui fonctionne

Code :
  1. userPath = rs.Fields("ADsPath" )
  2.            msgbox rs.Fields("ADsPath" )
  3.            Set User = GetObject(userPath)
  4.            msgbox "plop : "&user.get("givenname" )
  5.         'messages a la ligne 
  6.          msg = user.get("sn" ) &vbCrLf
  7.          msg = msg & user.get("givenname" )&vbCrLf
  8.          msg = msg & user.get("mail" )&vbCrLf


 
code dans une fonction vbs dans un fichier html qui ne fonctionne pas et je ne sais pas pourquoi...

Code :
  1. userPath = rs.Fields("ADsPath" )
  2.            msgbox rs.Fields("ADsPath" ) -->OK, commen en .vbs
  3.            Set User = GetObject(userPath)
  4.            msgbox "plop:"&user.get("givenname" )
  5.           -->OK, vide comme en .vbs
  6.            document.commande.output2.value=user.get("givenname" )-->NE RENVOI RIEN :(


 
Merci pour votre aide

Reply

Sujets relatifs:

Leave a Replay

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