Authentifizierung unter Windows 7

[Luckie]

Unter Windows XP habe ich mich bisher mit folgender Funktion an einem Remoterechner authentifiziert:

Delphi-Quellcode:

function ConnectToNetworkDrive(LocalName: string;
  RemoteName: string; Username: string; Password: string;
  RestoreAtLogon: boolean ): DWORD;
var
  NetResource: TNetResource;
  dwFlags:     DWORD;
begin
  dwFlags := 0;
  ZeroMemory(@NetResource, sizeof(TNetResource));
  with NetResource do begin
    dwType := RESOURCETYPE_DISK;
    lpLocalName := PChar(LocalName);
    lpRemoteName := PChar(RemoteName);
    lpProvider := nil;
  end;

  if (RestoreAtLogon) then
    dwFlags := dwFlags or CONNECT_UPDATE_PROFILE;

  Result := WNetAddConnection2(NetResource,PChar(Password), PChar(Username),dwFlags);
end;

Unter Windows 7 scheint das nicht mehr zu funktionieren. Ich bekomme immer eine "Zugriff verweigert". Siehe dazu die Beiträge in dem Thread zu meinem Programm RemoteShutdown.

Im Windows SDK konnte ich leider keine Hinweise bezüglich Windows 7 finden.