DCOM
ataeallah
Messages postés
37
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
17 juin 2010
-
13 mai 2002 à 14:06
exterminatix Messages postés 10 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 4 novembre 2010 - 13 oct. 2005 à 15:55
exterminatix Messages postés 10 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 4 novembre 2010 - 13 oct. 2005 à 15:55
2 réponses
cs_Zan
Messages postés
174
Date d'inscription
jeudi 18 avril 2002
Statut
Membre
Dernière intervention
25 mai 2006
13 mai 2002 à 17:32
13 mai 2002 à 17:32
je sais pas non plus,
mais si tu trouve des bonnes infos, fais moi signe
je galere depuis deux semaines pour trouver qq chose de potable en DCOM !!!
Zan
mais si tu trouve des bonnes infos, fais moi signe
je galere depuis deux semaines pour trouver qq chose de potable en DCOM !!!
Zan
exterminatix
Messages postés
10
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
4 novembre 2010
13 oct. 2005 à 15:55
13 oct. 2005 à 15:55
J'ai le même problème, je sais comment lister tous les services de composant grace à la WMI , mais je ne peut que parcourir pas modifier. Cela apportera peut-être l'indice déterminant pour résourdre le probléme qui est de configurer les objets DCOM.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery ("Select * from DCOMApplicationSetting")
For each objService in colServices
aut =objService.AuthenticationLevel
cap = objService.Caption
' et ainsi de suite .....
' [ CustomSurrogate];
' string [ Description];
' boolean [ EnableAtStorageActivation];
' string [ LocalService];
' string [ RemoteServerName];
' string [ RunAsUser];
' string [ ServiceParameters];
' string [ SettingID];
' boolean [ UseSurrogate];
Next
il y aussi :
Win32_DCOMApplication
Win32_DCOMApplicationAccessAllowedSetting Win32_DCOMApplicationLaunchAllowedSetting
a la place de Win32_DCOMApplicationSetting avec à chaque fois leurs propriétes propres.
Merci d'avance.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery ("Select * from DCOMApplicationSetting")
For each objService in colServices
aut =objService.AuthenticationLevel
cap = objService.Caption
' et ainsi de suite .....
' [ CustomSurrogate];
' string [ Description];
' boolean [ EnableAtStorageActivation];
' string [ LocalService];
' string [ RemoteServerName];
' string [ RunAsUser];
' string [ ServiceParameters];
' string [ SettingID];
' boolean [ UseSurrogate];
Next
il y aussi :
Win32_DCOMApplication
Win32_DCOMApplicationAccessAllowedSetting Win32_DCOMApplicationLaunchAllowedSetting
a la place de Win32_DCOMApplicationSetting avec à chaque fois leurs propriétes propres.
Merci d'avance.
