Registro de windows remoto

[sammyrano]

Hola a todos.

Tengo una duda para lograr leer el registro de una máquina de manera remota. Hata el momento he checado la librería TRegistry, pero no he encontrado una manera de conseguir leer un equipo remoto. Principalmente lo que deseo realizar es obtener las claves de windows y uso la siguiente tarea:



Código Delphi [-] (http://www.clubdelphi.com/foros/#)
function View_Win_Key: string;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows NT\CurrentVersion') then
begin
if Reg.GetDataType('DigitalProductId') = rdBinary then
begin
PN := (Reg.ReadString('ProductName'));
PID := (Reg.ReadString('ProductID'));
binarySize := Reg.GetDataSize('DigitalProductId');
SetLength(HexBuf, binarySize);
if binarySize > 0 then
begin
Reg.ReadBinaryData('DigitalProductId', HexBuf[0], binarySize);
end;
end;
end;
finally
FreeAndNil(Reg);
end;
Result := '';
Result := DecodeProductKey(HexBuf);
end;

[seoane]

Prueba con algo como esto:


function View_Win_Key(UNCName: string): string;
var
Size: Integer;
HexSrc: array of Byte;
begin
Result:= '';
with TRegistry.Create do
try
RootKey:= HKEY_LOCAL_MACHINE;
// Esta es la instruccion que supongo que buscabas
if RegistryConnect(UNCName) then
begin
if OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows NT\CurrentVersion') then
begin
Size:= GetDataSize('DigitalProductId');
SetLength(HexSrc,Size);
ReadBinaryData('DigitalProductId',HexSrc[0],Size);
Result:= DecodeProductKey(HexSrc);
CloseKey;
end;
end;
finally
Free;
end;
end;


// Por ejemplo
ShowMessage(View_Win_Key('\\192.168.0.10'));