Informationen eines Netzlaufwerks speichern

[Baeuerle]

Hallo,

ich habe folgendes Problem:

- Ein Anwender wählt ein gemapptes Netzlaufwerk aus ( X:\ = \\server\share\ ). X:\ wird von meinem Prog gespeichert.

- Der Anwender beendet mein Prog und trennt das gemappte LW

- Beim nächsten Start des Prog wird erkannt, dass das LW X:\ nicht da ist, es soll jetzt automatisch wieder hergestellt werden ( ohne den Anwender zu belästigen ) !!!!! So und hier liegt das Problem !!!

Ich kann mir zwar den UNC-Pfad merken, doch woher soll ich den username bzw. das Passwort erhalten wenn der Anwender das Netzlaufwerk auswählt!!

Um die Verbindung wieder herzustellen benötige ich schließlich diese Informationen. Kann man vielleicht aus der vorherigen Session etwas speichern???

Bitte um Hilfe ....Danke Baeuerle

**PUSH**

[Baeuerle]

**PUSH**

[Flocke]

So einfach wird das nicht sein, ich wüsste jetzt auf jeden Fall nicht, wie es OHNE Benutzerinvention gehen könnte. Warum arbeitest du nicht einfach mit dem UNC-Pfad? Normalerweise kannst du alle Dateioperationen auch damit ausführen.

[Baeuerle]

Hi Flocke,

danke erstmal, dass sich jemand um das Thema bemüht!

Das mit dem UNC-Pfad ist nicht das Problem. Dieser wird schon gespeichert! Der UNC-Pfad reicht allerdings nicht um das Laufwerk wieder herzustellen! Ich benötige zusätzlich die Benutzerinformationen bzw. Sessioninfos, und diese müssen doch bei einer aktiven Verbindung auslesbar sein, denn wenn weitere Netzlaufwerke in Windows hergestellt werden, muss der Benutzername und das Passwort ja auch nicht nochmal angegeben werden!

Greats Baeuerle

[Sharky]

Hai Flocke,

dann müsste man dem Admin aber feste auf die Finger klopfen. Wenn er für die Verbindung mit der Freigabe ein Kennwort verlangt aber nicht für das schreiben/lesen auf Verzeichniss hat er ein riesen Problem weil er nämlich genau die Möglichkeit des Zugriffes über den UNC-Pfad nicht berücksichtigt hat.

Wenn die Authentifizierung notwendig ist sollte sie auch vom Anwender verlangt werden.

@Baeuerle:
So wie sich das liest sind die Clientrechner ja nicht in eine Domäne bzw. haben local andere Benutzerkennungen als auf dem Server. Habe ich das richtig verstanden?

[Baeuerle]

@Sharky

Ja genau so ist es, die Benutzer melden sich lokal an, und dann nocheinmal getrennt an der Domain.

[Flocke]

Zitat von Sharky:

Hai Flocke,

dann müsste man dem Admin aber feste auf die Finger klopfen. Wenn er für die Verbindung mit der Freigabe ein Kennwort verlangt aber nicht für das schreiben/lesen auf Verzeichniss hat er ein riesen Problem weil er nämlich genau die Möglichkeit des Zugriffes über den UNC-Pfad nicht berücksichtigt hat.

Wenn die Authentifizierung notwendig ist sollte sie auch vom Anwender verlangt werden.

Ist schon klar (einmal ohne, einmal mit PW geht auch IMHO gar nicht).

Ich wollte nur ausdrücken, dass ich einfach den UNC-Pfad benutzen würde - die Passwortabfrage erledigt dann das System. Wozu braucht man den Laufwerksbuchstaben?

[Baeuerle]

@Flocke

Ok, der LW-Buchstabe wird nicht unbedingt benötigt, jedoch benötige ich immernoch die Anmeldeinformationen für die Domain, die ich irgendwie aus einer bestehenden Verbindung auslesen möchte!

[marabu]

Vergiss das mit dem Auslesen, es existiert nur noch ein token. Du musst die credentials vorher selbst abfragen und die Verbindung dann vom Programm aus herstellen. Die credentials musst du dann im protected storage speichern.

Grüße vom marabu

[ringli]

Hiermit funktioniert das Mounten eines Netzwerklaufwerkes ohne Benutzer / Passwort. Stand gestern vor dem gleichen Problem und hab hier im Forum die Lösung gefunden.

Delphi-Quellcode:

{*** Netzlaufwerk verbinden (ohne Passwort) ***}
function ConnectNetDrive(_locDrive, _netPath: string;
                         RestoreAtLogon: Boolean): DWORD;
var
  nRes: TNetResource;
  dwFlags: DWORD;
begin
  { NetRessource mit #0 füllen => Keine unitialisierte Werte }
  FillChar(NRes, SizeOf(NRes), #0);
  nRes.dwType := RESOURCETYPE_DISK;
  { Laufwerkbuchstabe und Netzwerkpfad setzen }
  nRes.lpLocalName  := PChar(_locDrive);
  nRes.lpRemoteName := PChar(_netPath); { Example: \\Test\C }
  { Überprüfung, ob gespeichert werden soll }
  if RestoreAtLogon then
    dwFlags := CONNECT_UPDATE_PROFILE and CONNECT_INTERACTIVE   
  else
    dwFlags := CONNECT_INTERACTIVE;

  Result := WNetAddConnection3(Application.Handle, nRes,
                               nil, nil, dwFlags);
end;