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?
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;