Netzlaufwerk mit AS400

[Hummel]

Kennt jemand eine Möglichkeit dynamisch im Programm ein Netzwerklaufwerk das auf einer AS400 liegt an der lokalen WS zu erstellen?

Über "net use" funktioniert das, allerdings habe ich das Problem dass über "net use" entweder der Benutzer oder ein anderes Paßwort übergeben werden kann - ich muss aber beides übergeben. :gruebel:

Mein nächster Gedanke war dann WNetAddConnection2, mit Freigaben auf Windows-Servern klappt das auch problemlos - bei der AS400 kriege ich aber "ACCESS_DENIED" ... nicht befriedigend. :wall:

Hat jemand eine Idee wie MS das über "Net use" macht um die Verbindung zu kriegen?

Bin für jede Idee dankbar.

[Sharky]

Hai Hummel,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS" :hi:

Zitat:

Zitat von Hummel

... entweder der Benutzer oder ein anderes Paßwort übergeben werden kann ...

Warum kannst Du nicht beides übergeben?

Code:

NET USE g: \\server\freigabe /USER:blubb kennwort

[Hummel]

Zitat:

Zitat von Sharky

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS"

Danke :thumb:

Zitat:

Zitat von Sharky

Warum kannst Du nicht beides übergeben?

Ganz einfach ...

"net use" will dass das Paßwort eingegeben wird. Eine Übergabe als Parameter geht nur wenn kein Benutzer angegeben wird.
Und der Benutzer soll das Paßwort nicht kennen, damit sind auf der AS400 zuviele Rechte verbunden.

[merlin17]

so sollte es gehen:

Delphi-Quellcode:

 if DriveExists('O:') then
    WNetCancelConnection2(PChar('O:'), 0, true);

 ConnectToNetworkDrive('O:', '\\192.168.100.121\D$', 'Domain\Pfister',
    'Geheim4711', false);


function TFHaupt.ConnectToNetworkDrive(Drive, Path, Username,
  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(Drive);
    lpRemoteName := PChar(Path);
    lpProvider := nil;
  end;

  if (RestoreAtLogon) then
    dwFlags := dwFlags or CONNECT_UPDATE_PROFILE;
  Result := WNetAddConnection2(NetResource, PChar(Password), PChar(Username),
    dwFlags);

end;

[Klaus01]

Hallo Hummel,

kannst Dir ja mal das Attachement anschauen, da wird das Passwort verschlüsselt
eingegeben. Die Verschlüsselung ist sicherlich nicht die beste, aber da kannst
Du ja eine bessere wählen.

Grüße
Klaus

[Hummel]

Herzlichen Dank an Klaus und Merlin - so gings.

Ich hatte bei mir die TNetResourceA verwendet ... :wall:

Grüße aus dem bibberkalten Magstadt