Boucle d'accès à une registry distante

Bonjour,

J'essaye de lire une clé de registre sur un pc distant.
Via le code suivant ça marche nickel :

Code:

1
2
3
4
5
6
7
8
      if RemoteRegistry.RegistryConnect('\\MONPC') then
      begin
        if RemoteRegistry.OpenKeyReadOnly(Key) then
          WriteLn(F, 'MONPC - ' + RemoteRegistry.ReadString(KeyValue))
        else
          WriteLn(F, 'Impossible d''accéder à la clé de registre sur ' + 'MONPC')
      end else
        WriteLn(F, 'Impossible de se connecter sur ' + 'MONPC');

Maintenant si je veux imbriquer le code dans une boucle pour parcourir une liste de pc, il me retrouve la clé de registre du premier pc puis il n'arrive plus à se connecter sur les autres...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
      for i := 0 to slFile.Count-1 do //Parcours des lignes
      begin
        if RemoteRegistry.RegistryConnect('\\' + slFile[i]) then
        begin
          if RemoteRegistry.OpenKeyReadOnly(Key) then
            WriteLn(F, slFile[i] + ' - ' + RemoteRegistry.ReadString(KeyValue))
          else
            WriteLn(F, 'Impossible d''accéder à la clé de registre sur ' + slFile[i])
        end else
          WriteLn(F, 'Impossible de se connecter sur ' + slFile[i]);
        if i = 10 then
          exit;
      end;