Registry eines remote PC auslesen

[Stefan Grumpelt]

Hallo,

ich muss von verschiedenen Rechnern im Netzwerk Registrywerte auslesen. Dazu möchte ich auf die Subkeys und Values des Schlüssels Software\Microsoft\Windows\CurrentVersion\Uninstal l zugreifen.

Ich habe es schon mit RegistryConnect versucht, was allerdings fehl schlug. Auch meine Versuche die Werte über eine WMI Abfrage zu erhalten waren auch nicht von Erfolg gekrönt.

Vielen Dank für Eure Hilfe

MfG Stefan

[André Mellenthin]

Hallo, das folgende Beispiel zeigt die Vorgehensweise. Wichtig ist, dass der Benutzer jedoch auch die Zugriffsrechte auf den entsprechenden Server hat. Sonst schlägt der Verbindungsversuch in jedem Fall fehl.
<br>
<br>
<PRE>
procedure TForm1.Button1Click(Sender: TObject);
const
SERVERNAME = 'SVR-01';
begin
with TRegistry.Create do
begin
try
RootKey := HKEY_LOCAL_MACHINE;

if RegistryConnect(Format('\\%s', [SERVERNAME])) then
begin
if OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', false) then
begin
Caption := ReadString('RegisteredOwner');
end;
end
else
Caption := Format('Verbindung zu %s fehlgeschlagen!', [SERVERNAME]);
finally
Free;
end;
end;
end;
</PRE>
<br>
<br>
Schönen Gruß,<br>
André Mellenthin<br&gt