Récupération des infos utilisateurs d'un AD [VBS + LDAP + HTML] - VB/VBA/VBS - Programmation
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 ?
Marsh Posté le 10-07-2006 à 11:21:47
Citation : |
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 ????? !
Marsh Posté le 10-07-2006 à 15:53:31
Darkside a écrit :
|
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
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 !
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...
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...
Marsh Posté le 11-07-2006 à 15:49:26
News :
code en .vbs qui fonctionne
Code :
|
code dans une fonction vbs dans un fichier html qui ne fonctionne pas et je ne sais pas pourquoi...
Code :
|
Merci pour votre aide
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
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