Registre d'une machine distante

Bonjour ;
J’ai essayé d’accéder aux registres d’une machine distante en utilisant l’exemple fourni avec la Faq, mais ça n'a pas marché(sur une machine local le programme tourne super bien).
Voila le code que j’ai utilisé

Code:

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
29
30
31
32
 
TRegistry *registre = new TRegistry();
 
        try
        {
                registre->RootKey = HKEY_LOCAL_MACHINE;
 
                AnsiString Cle="SYSTEM\\ControlSet001\\Services\\disk\\Enum";
 
                if(!registre->RegistryConnect("\\\\Rece"))
                {
                        // vérifier la configuration réseau ou les permissions d'accès
                        ShowMessage("Impossible de se connecter.");
                        return;
                }
 
                if(registre->OpenKeyReadOnly(Cle))
                {
                        int NbrPereph=registre->ReadInteger("Count");
                        Memo1->Lines->Add("Nombre pereph:"+IntToStr(NbrPereph));
                }
                else
                {
                        ShowMessage("Erreur, clé absente.");
                }
 
        }
        __finally
        {
                registre->CloseKey();
                delete registre;
        }

Je vous signal que j’ai bien configuré le réseau, j’utilise le même groupe de travail.

Merci pour vos réponses.