Discussion :

[chtiot]

bonjour,


j'ai besoin de consulter la base de registres d'une machine distante et je me suis donc inspiré de l'exemple de la faq mais ça ne fonctionne pas.

mon code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.Button1Click(Sender: TObject);
var RegistreDistant : TRegistry;
    ok, ok2 : boolean;
begin
  memo1.Clear;
  RegistreDistant := TRegistry.Create;
 
  try
    RegistreDistant.RootKey := HKEY_LOCAL_MACHINE;
    ok := RegistreDistant.RegistryConnect('\\Fixe');
    if ok then begin
      showmessage('Connect Ok');
      Ok2 := RegistreDistant.OpenKeyReadOnly('\Software\Bibi');
      if Ok2 then
        showmessage('Read Ok')
      else
        showmessage('Read pas ok');
 
      RegistreDistant.GetKeyNames(Memo1.Lines);
 
      end
    else
      showmessage('Connect pas Ok');
  finally
    RegistreDistant.Free;
  end;
 
end;

RegistreDistant.OpenKeyReadOnly('\Software\Bibi') me retourne la valeur False alors que le connect se passe bien et que sur la machine distante j'ai bien la clé HKEY_LOCAL_MACHINE\Software\Bibi

Les deux machines sont sous XP et chacune a tous les droits d'accès sur l'autre machine.

merci de votre aide

[Laurent Dardenne]

Salut,
la clé de registre cible a-t-elle des droits particuliers (visu avec regedt32 ) ?

Cette procédure en local fonctionne ?

[chtiot]

oui, ça fonctionne parfaitement si j'exécute le programme sur la machine distante

la clé n'a pas de droits particuliers...

[Laurent Dardenne]

Pour le test je pensais à une connection distante mais effectué sur le même machine ( +- identique au ping LocalHost), enfin si c'est possible je n'ai jamais fait.

Existe-t-il des policies particulière sur le poste distant ?

Le code proposé que j'utilisais en prod fonctionnait avec un compte admin de domaine.
Peux-tu tester avec un compte administrateur ?


Regarde ici au cas où :
Registry Key Security and Access Rights

[chtiot]

en fait je viens d'essayer avec regedit à distance et je ne peux pas lire la base de registres non plus

il y a effectivement un problème de droit et/ou de stratégie

je vais y regarder ce week end