Problem beim Remote-Registry Wert auslesen

[Mackhack]

Hallo DPler,

hat schonmal jemand erfolgreich etwas aus einer Registry gelesen eines PCs der ueber LAN mit dem eigenen verbunden ist?

Ich habe die WNetAddConnection2 verwendet um mich anzumelden und auch die Remote Registry Funktion genutzt doch irgendwie kommt da Muell rueber!

[Christian Seehase]

Moin Mackhack,

wie hast Du es denn gemacht, und welche Betriebssysteme sind beteiligt?
Welchen Rückgabewert hat denn RegConnectRegistry?

[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;

[Christian Seehase]

Moin Mackhack,

das beantwortet die erste Frage.
Was ist mit der zweiten und dritten? ;-)

[Mackhack]

Beides sind Windows MCE 2005 Maschinen!

Rueckgabewert sag ich dir gleich Heute Abend!