yop,
je crée un SWbemServices
PCName = "un_pc_distant"
namespace = "root\cimv2"
login = "login"
pass = "password"
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator" )
Set objSWbemServices = p_objSWbemLocator.ConnectServer(PCName, namespace, login, pass)
|
le problème c'est que sur certains pc, la connection est refusée : "DCOM access-denied error", alors que sur d'autres, ca marche très bien.
J'ai normalement bien les droits puisque l'utilisateur (login/pass) que j'utilise est Domain Admin (membre également des administrateurs locaux des pc's).
J'ai vu qu'il y avait trois million de facon de s'authentifier:
objSWbemServices.Security_.ImpersonationLevel = wbemImpersonationLevelImpersonate
objSWbemServices.Security_.ImpersonationLevel = wbemImpersonationLevelIdentify
objSWbemServices.Security_.ImpersonationLevel = wbemAuthenticationLevelPkt
objSWbemServices.Security_.ImpersonationLevel = wbemAuthenticationLevelDefault
... |
mais le problème c'est que le programme me jette avant 
j'ai aussi essayé de modifier la configuration DCOM avec dcomcnfg.exe, mais ca n'a rien changé.
voilà, je sais pas si c'est clair 
si quelqu'un a une idée....
merci
ps: VB6
pps: je ne sais pas si c'est pas plutot un problème d'administration que de progragra, mais vu que vous êtes les bests 
Message édité par art_dupond le 11-02-2004 à 11:18:13
---------------
oui oui
