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.

[Dezipaitor]

Ich weiß nicht, ob du von oder zu einem Win7 Share verbindest.

Aber die Funktion konnte ich zu einem XP von eine Win7 Windows nicht 2mal mit verschiedenen Credentials aufrufen. Aber ich bekam Fehler 1219 (unbekannt).

[Luckie]

Also ich verbinde mich mit einer administrativen Freigabe:

Delphi-Quellcode:

DisconnectNetworkDrive(Computer + '\IPC$');
dummy := ConnectToNetworkDrive('', ComputerTemp + '\IPC$', User, PW, False);

Gibt es noch andere Möglichkeiten sich zu authentifizieren? Da ich die gleiche Methode für meinen Usermanager nutze, habe ich dort die gleichen Probleme. Da er aber wohl grundsätzlich unter Windows 7 (nicht Starter) läuft, wäre es schön, wenn man das irgendwie hinbekommen würde.

[ChrisE]

Hallo Luckie,

ich bin mir nicht ganz sicher ob Dir das weiter hilft. Aber ich war ja auch ein "Tester" von dem RemoteShutdown. Und die hier beschriebene Methode scheint einzeln zu funktionieren.

Ich habe dir mal das Testprojekt angehängt, welches bei mir Funktioniert bzgl. Deiner hier gestellten Frage.

Läuft auf Windows 7 Ultimate und liefert als Ergebnis 0 bei Versuch auf einen Vista Ultimate zu verbinden.


Gruß, Chris

P.S.: Delphi 2007

[Luckie]

Was ist jetzt bei dir anders? Ich kann da auf dem ersten Blick keinen Unterschied erkennen.

[ChrisE]

Hallo Luckie,

das ist genau dass, was ich dir sagen wollte. Ich glaube nicht, dass diese Routine einzeln für sich das Problem von Deinem RemoteShutdown ist. Die Funktion selber tut Ihren Dienst.

Wichtig ist aber eben auch, dass was Dezipaitor geschrieben hatte. Es funktioniert nur dann, wenn keine andere Verbindung (anderer Benutzer) zu diesem Rechner existiert. Sonnst geht das nicht. Aber das dürfte Dir ja klar sein.

Gruß, Chris

[Luckie]

Dann muss ich noch mal an anderen Stellen im Code gucken. Eventuell ist es auch die Shutdownfunktion.

[Remko]

Have you checked on the Windows 7 machine that the network isn't set to Public or some other profile that prohibits rpc?