Bonjour
J'utilise une macro Qlikview lancé depuis un script de rechargement pour accéder au LDAP et récupérer la liste des utilisateurs pour un groupe de droit. Cette liste utilisateur est ensuite utilisée pour renseigner la section ACCESS.

Je n'ai pas de problème depuis mon poste en local : l'appel macro est ok, l'accès LDAP est ok, le chargement de mes users est ok... Tout est OK

Par contre depuis un lancement du reload depuis le serveur, l'appel macro est ok, mais quand la macro arrive sur : Set objRootDSE = GetObject("LDAP://RootDSE") , la macro est interrompue, plantage ... Comme si les fonctions LDAP n'étaient pas connues ou autre chose comme ça.
Y a t'il un paramétrage spécifique coté serveur à réaliser. Pour info, l'utilisateur serveur à bien un accès ADMIN à mon document.
Merci de votre aide et de vos idées.
Ci dessous le code VB :

Dim StrContainer
Dim objGroup, strDN, objMemberList
Dim adoConnection, adoCommand, objRootDSE, strDNSDomain
Dim StrList ',FSO

Function Trouve_utilisateur (ByVal StrDN, ByVal strContainer)
StrList=""
strContainer = "OU=" & strContainer

' Dictionary object to track group membership.
Set objMemberList = CreateObject("Scripting.Dictionary")
objMemberList.CompareMode = vbTextCompare
'Set FSO = CreateObject("Scripting.FileSystemObject")

'StrContainer = "OU=GROUPES GLOBAUX"

' GETOBJECT QUI NE PASSE PAS DEPUIS LE SERVEUR
Set objRootDSE = GetObject("LDAP://RootDSE")
StrDNSDomain = objRootDSE.Get("defaultNamingContext")

On Error Resume Next
Set ObjGroup = GetObject("LDAP://CN=" & StrDN & "," & strContainer & "," & StrDNSDomain)

' Setup ADO.
Set adoConnection = CreateObject("ADODB.Connection")
Set adoCommand = CreateObject("ADODB.Command")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"
Set adoCommand.ActiveConnection = adoConnection
adoCommand.Properties("Page Size") = 10000
adoCommand.Properties("Timeout") = 30
adoCommand.Properties("Cache Results") = False

' Enumerer les membres du groupe
Call EnumGroup(objGroup)

Trouve_utilisateur = StrList
adoConnection.Close

Set objGroup = Nothing
Set objRootDSE = Nothing
Set adoCommand = Nothing
Set adoConnection = Nothing

end Function