Hallo DP,
ich habe das Problem, dass ich mit einem Programm, auf einen Ordner auf einen Server liegt.
Normalerweise kommt man darüber mit \\freewilly\.... ran. Problem dabei ist, dass auf diesen Ordner nur Admins Zugriff haben.
Wenn man sich nun als Admin anmeldet und den Pfad im Explorer öffnet fragt er nach einer Identifizierung (Benutzername und Passwort).

Soweit kein Problem, wenn ich jetzt aber von meinem Programm darauf zugreifen will, funktioniert das ganze nicht, sondern müsste mich erst identifizieren.
Kann ich das irgendwie automatisieren?

MfG
xZise

[msdn]
LogonUser
[/msdn]

Du meist wohl autentifizieren. Erstell eine administrative Freigabe auf dem Remoterechner mit den Login des Administrators auf dem Rechner. So mache ich das mit meinem Usermanager auch.

zusammenfalten · markieren

Delphi-Quellcode:

uses
  Windows;

function ConnectToNetworkDriveW(LocalName: WideString; RemoteName: wideString; Username: WideString; Password: WideString;
  RestoreAtLogon: boolean): DWORD;
function DisconnectNetworkDrivew(Name: WideString): DWORD;

implementation

function ConnectToNetworkDriveW(LocalName: WideString; RemoteName: wideString; Username: WideString; Password: WideString;
  RestoreAtLogon: boolean): DWORD;
var
  NetResource : TNetResourceW;
  dwFlags : DWORD;
begin
  dwFlags := 0;
  ZeroMemory(@NetResource, sizeof(TNetResource));
  with NetResource do
  begin
    dwType := RESOURCETYPE_ANY;
    lpLocalName := PWideChar(LocalName);
    lpRemoteName := PwideChar(RemoteName);
    lpProvider := nil;
  end;

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

  Result := WNetAddConnection2W(NetResource, PWideChar(Password), PWideChar(Username), dwFlags);
end;

function DisconnectNetworkDrivew(Name: WideString): DWORD;
begin
  result := WNetCancelConnection2W(PWideChar(Name), CONNECT_UPDATE_PROFILE, True);
end;

Zitat von Luckie:

Du meist wohl autentifizieren.

Nee, ich glaube eher authentifizieren.

Zitat von Muetze1:

Zitat von Luckie:

Du meist wohl autentifizieren.

Nee, ich glaube eher authentifizieren.

Ich weiß schon, warum ich identifizieren geschrieben habe

Zitat von Luckie:

markieren

Delphi-Quellcode:

function ConnectToNetworkDriveW(LocalName: WideString; RemoteName: wideString; Username: WideString; Password: WideString;
  RestoreAtLogon: boolean): DWORD;
function DisconnectNetworkDrivew(Name: WideString): DWORD;

Zwei Frage:
Was soll ich bei "ConnectToNetworkDriveW" übergeben?
Wozu dient "DisconnectNetworkDriveW"?

MfG
xZise

PS: Kann ich einen Passwortabfragedialog mithilfe von Windows erstellen? Welches dann auch auf die Korrektheit prüft?

Hier steht was dazu, sollte klappen.

"DisconnectNetworkDriveW" entfernt den Zugriff wahrscheinlich wieder.

mfg, geofranz