Thema: Delphi Rechte wieder freigeben!

Einzelnen Beitrag anzeigen

WS1976
(Gast)

n/a Beiträge
 
#1

Rechte wieder freigeben!

  Alt 6. Jul 2007, 08:54
Hallo liebe DP'ler,

folgendes Problem (der Code ist aus der DP):
Delphi-Quellcode:
function Verbinden(Laufwerk: string; Pfad: string; Username: string; Password: string; RestoreAtLogon: Boolean): DWORD;
var
  NetResource: TNetResource;
  dwFlags: DWORD;
begin
  if Laufwerk[length(Laufwerk)] = '\then
    Laufwerk:=copy(Laufwerk,0,length(Laufwerk) - 1);
    
  if pos(':',Laufwerk) = 0 then
    Laufwerk:= Laufwerk + ':';

  if Pfad[length(Pfad)] = '\then
    Pfad:=copy(Pfad,0,length(Pfad) - 1);

  with NetResource do
  begin
    dwType := RESOURCETYPE_DISK;
    lpLocalName := PChar(Laufwerk);
    lpRemoteName := PChar(Pfad);
    lpProvider := nil;
  end;

  if (RestoreAtLogon) then
    dwFlags := CONNECT_UPDATE_PROFILE
  else
    dwFlags := 0;

  Result := WNetAddConnection2(NetResource, PChar(Password),
    PChar(Username), dwFlags);
end;

function Trennen(Laufwerk: string): DWORD;
begin
  if Laufwerk[length(Laufwerk)] = '\then
    Laufwerk:=copy(Laufwerk,0,length(Laufwerk) - 1);
    
  Result := WNetCancelConnection2(PChar(Laufwerk),0,false);
end;
Wir verbinden und trennen damit Netzwerklaufwerke auf Clients mit eingeschränkten Rechten,
sodass für diese Verbindung Domadminrechte gelten.
Domäne Win2003, Clients WXP und Win2K
Nach dem Trennen ist aber der Client hochgestuft auf Domadminrechte (was die Netzwerkverbindungen betrifft).
Wie kann ich das verhindern.
Das ist übrigens auch so, wenn ich über den Explorer verbinde.

Grüsse
Rainer
  Mit Zitat antworten Zitat