Anmeldung auf einen Server im LAN (Verzeichnisfreigabe)

[Tod787]

Habe ein Problem mit dem Anmelden im Netzwerk. Ich möchte mich an einen Windowsrechner anmelden, sodass ich mit meiner Filelist aus meiner Anwendung auf alle Verzeichnisse, die für den jeweiligen Benutzer freigegeben sind zugreifen kann.

Mir genügt also eine Funktion welcher ich die IP meines Servers und die Logindaten für den jeweiligen Benutzer mitgeben kann.

Mit

Delphi-Quellcode:

Funktion WNetAddConnection2W(NetResource, PWideChar(Password), PWideChar(Username), dwFlags);

schaffe ich es zwar mich erfolgreich anzumelden (

Delphi-Quellcode:

Result := 0

), allerdings sind die Verzeichnisse auf dem Server noch nicht freigegeben und es hagelt Fehlermeldungen.

[Bummi]

in der Art?

Delphi-Quellcode:

var
  ss:_NetResourceW;
begin
ss.dwScope := RESOURCE_CONNECTED ;
ss.dwType  := RESOURCETYPE_DISK ;
ss.dwDisplayType := RESOURCEDISPLAYTYPE_DIRECTORY ;
ss.dwUsage := RESOURCEUSAGE_ATTACHED;
ss.lpLocalName := 'X:';
ss.lpRemoteName := '\\FileServer\Austausch';
ss.lpProvider := '';

 Caption := IntToStr(WNetAddConnection2W(ss, PWideChar('spdummy69'), PWideChar('dummy'), CONNECT_TEMPORARY));
end;

läuft bei mir fehlerfrei...

[jobo]

Die Zugriffsberechtigung muss schon der admin setzen. Da kann Dir wohl niemand helfen.

Zur Probe kannst Du das auf einer beliebigen Workstation selbst nachvollziehen, indem Du lokale Freigaben anlegst und dann ein Netzlaufwerk mapst.

[Tod787]

das bedeutet aber, dass ich nur über den gemappten Laufwerksbuchstaben (hier X: ) auf den Server zugreifen kann, oder?

Wenn möglich würde ich aber gerne die Verzeichnisse über den Host aufrufen. (\\Server\Freigabe\...)

Wenn ich mit meinem XP-Client auf den Server zugreifen will erscheint ja ein Eingabefenster für Benutzer und PW. Sobald ich mich erfolgreich angemeldet habe komme ich auf alle Verzeichnisse die für mich freigegeben sind. Genau das möchte ich mit Delphi realsieren.


@jobo
Die Zugriffsberechtigungen sind schon gesetzt. Es geht also nur um die Anmeldung

[WM_CLOSE]

übergebe mal einen leerstring in localname.