[VB2008]ADODB.connection
Résolu
Bonjour,
J'utilise l'outil ADODB.connection afin de faire des modifications sur mon Active Directory.
Le code marche très bien lorsque je le lance avec un utilisateur ayant les droits nécessaires.
Cependant je souhaiterais pouvoir demander à l'utilisateur de rentrer manuellement son login mot de passe afin qu'il puisse utiliser le script depuis n'importe quelle session.
Ce qu'il me manque c'est la syntaxe pour passer les paramètres de connection a la fonction ADODB...
voici la syntaxe utilisé pour créer la connection:
oConnection = CreateObject("ADODB.Connection")
oConnection.Provider = "ADsDSOObject"
oConnection.Open("ADs Provider")
Merci de votre aide!
J'utilise l'outil ADODB.connection afin de faire des modifications sur mon Active Directory.
Le code marche très bien lorsque je le lance avec un utilisateur ayant les droits nécessaires.
Cependant je souhaiterais pouvoir demander à l'utilisateur de rentrer manuellement son login mot de passe afin qu'il puisse utiliser le script depuis n'importe quelle session.
Ce qu'il me manque c'est la syntaxe pour passer les paramètres de connection a la fonction ADODB...
voici la syntaxe utilisé pour créer la connection:
oConnection = CreateObject("ADODB.Connection")
oConnection.Provider = "ADsDSOObject"
oConnection.Open("ADs Provider")
Merci de votre aide!
5 réponses
-
Probleme résolu!
en utilisant la syntaxe suivante:
DSODomaine = GetObject("LDAP:")
DSOContainer = DSODomaine.OpenDSObject("LDAP://" & strNewDomain, strNomDomaine & User, mdp, ADS_SECURE_AUTHENTICATION)
objMovComputer = DSOContainer.MoveHere("LDAP://Cn=" & strComputerName & "," & strOldDomain, "Cn=" & strComputerName)
Voila j'espere que ca pourra en aider quelques un! -
Help
-
ContributeurBonjour,
peut-^tre que:
regardes sur ce site si tu ne trouverais pas ton bonheur:
https://www.connectionstrings.com/ -
Re-Bonjour!
je n'arrive toujours pas à mes fins...
le site m'as donné quelques pistes mais je n'arrive pas a les appliquer dans mon langage qui est le vb2008...
voila ce que j'ai mis en place:
oConnection = CreateObject("ADODB.Connection")
oConnection.Provider = "ADsDSOObject"
oConnection.Open("ADs Provider")
oConnection.Properties("User ID" ) = userName
oConnection.Properties("Password" ) = password
et ca me dis que je n'ai pas les droits suffisant...
donc il utilise toujours le compte courant! -
Help
