Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.350 Beiträge
 
Delphi 11 Alexandria
 
#1

WNetAddConnection2 under Win Server 2016

  Alt 7. Jan 2020, 15:31
Hi

Wir haben eine neue Citrix Farm eingerichtet.
Die Alte Farm hatte WinSrv 2008, die Neue ist 2016.

In Delphi mappe ich ein Laufwerk mit WNetAddConnection2...

TWNet.AddConnection(AppConfig.MapDrive, AppConfig.MapPath);

hier die Klassenmethode:

Delphi-Quellcode:
class function TWNet.AddConnection(ADrive, AFolder, AUsername, APassword:
    string; AUpdateProfile: Boolean = False): Boolean;
var
  NetResource: TNetResource;
  dwFlags: DWORD;
  UserName: PChar;
  Password: PChar;
  AResult: Cardinal;
begin
  //Sleep(500);
  with NetResource do
  begin
    dwType := RESOURCETYPE_DISK;
    lpLocalName := PChar(ADrive);
    lpRemoteName := PChar(AFolder);
    lpProvider := nil;
  end;
  if (AUpdateProfile) then
    dwFlags := CONNECT_UPDATE_PROFILE
  else
    dwFlags := 0 {CONNECT_TEMPORARY};

  UserName := Nil;
  Password := Nil;
  if AUsername <> 'then
    UserName := PChar(AUsername);
  if APassword <> 'then
    Password := PChar(APassword);

  AResult := WNetAddConnection2(NetResource, Password, UserName, dwFlags);
  Result := (AResult = NO_ERROR);
  if not Result then
    raise Exception.Create('Fehler beim Verbinden Netzlaufwerk: ' + sLineBreak + ADrive +
          ' -> ' + AFolder + sLineBreak + ' Code: ' + IntToStr(AResult));
end;
In der neuen Farm unter Server 2016 erhalte ich folgende Fehlermeldung:

Fehler beim Verbinden Netzlaufwerk:
...
Code 1202

Was könnte das Problem auslösen?

Danke

Frank
Frank Reim
  Mit Zitat antworten Zitat