[VB2008]ADODB.connection
Résolu
xav3601
Messages postés
3289
Date d'inscription
Statut
Membre
Dernière intervention
-
xav3601 Messages postés 3289 Date d'inscription Statut Membre Dernière intervention -
xav3601 Messages postés 3289 Date d'inscription Statut Membre Dernière intervention -
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!
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!
Bonjour,
peut-^tre que:
regardes sur ce site si tu ne trouverais pas ton bonheur:
https://www.connectionstrings.com/
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!
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!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question