Bonjour,
J'essaye de lire une clé de registre sur un pc distant.
Via le code suivant ça marche nickel :
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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');
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Partager