Delphi 12 - LogonUser - WNetAddConnection2

**lxo**

Hallo zusammen,

wir verwenden folgenden Code um mit einem Dienst auf entfernte Ziele zuzugreifen.
Mit Delphi 11.3 hat das immer funktioniert.
Seit Delphi 12.1 bekomme ich den Errorcode 1204 bei WNetAddConnection2.

In den Änderungen von Delphi 12.1 im Vergleich zu 11.3 sehe ich aber nicht das da irgendwas passiert ist.
Hat jemand eine Idee?

zusammenfalten · markieren

Delphi-Quellcode:

			var

  lError: integer;

  NRW   : TNetResource;

  hToken: NativeUInt;

  lUser,

  lPass: string;

begin

  LogonUser('NETWORK SERVICE', '"NT AUTHORITY', Nil, 9{LOGON32_LOGON_NEW_CREDENTIALS}, LOGON32_PROVIDER_WINNT50, &hToken );

  ImpersonateLoggedOnUser(hToken);

  NRW.dwScope       := RESOURCE_GLOBALNET;

  NRW.dwType        := RESOURCETYPE_DISK;

  NRW.dwUsage       := RESOURCEUSAGE_CONNECTABLE;

  NRW.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;

  NRW.lpLocalName   := nil;

  NRW.lpComment     := '';

  NRW.lpRemoteName  := PChar('\\<REMOTENAME>'); 

  lUser := '<USER>';

  lPass := '<PASSWORD>';

   lError := WNetAddConnection2(NRW, PChar(lPass), PChar(lUser), 0);

  ...

end;

Delphi 12 - LogonUser - WNetAddConnection2

Delphi 12 - LogonUser - WNetAddConnection2

Forumregeln