Problem beim Remote-Registry Wert auslesen

[Mackhack]

So siehts bisher aus:

Delphi-Quellcode:

function RegLoginAndConnectRegistry(lpMachineName: String; hKey: HKEY; var phkResult: HKEY; User, Password: String): Boolean;
var
  lpNetResource: TNetResource;
begin
  Result := False;
  SetLastError(0);

  with lpNetResource do
  begin
    dwType := RESOURCETYPE_ANY;
    lpLocalName := nil;
    lpProvider := nil;
    lpRemoteName := PChar(lpMachineName + '\IPC$');
  end;

  if ( WNetAddConnection2(lpNetResource, PChar(Password), PChar(User), 0) <> 0 ) then
  begin
    ShowError('WNetAddConnection2');
    Exit;
  end;

  if ( RegConnectRegistry(PChar(lpMachineName), hKey, phkResult) <> 0 ) then
  begin
    ShowError('RegConnectRegistry');
    Exit;
  end;

  Result := True;
end;