Hallo zusammen,
ich benutze die allgemein bekannte Funktion zum Verbinden eines Netzlaufwerkes und rufe diese, wie unten dargestellt, auf. Bisher (unter XP)funktioniert es ohne Probleme. Auf einigen Laptop's die mit Windows 7 Enterprise ausgestattet sind wird jedoch kein Netzlaufwerk verbunden. (WLAN ist an und auch vorhanden) Nehme ich die Daten und mache es manuell(auf so einem Laptop unter dem entsprechenden Benutzerkonto) dann ist alles ok. Die Nutzer haben das Recht Laufwerke zu verbinden und auch das Recht auf diese Ressouce zuzugreifen. Der von mir gewünschte Laufwerksbuchstabe ist auch nicht belegt.
Hat jemand eine Idee wo der Fehler liegen könnte??
Delphi-Quellcode:
function ConnectNetworkDrive(const ADrive: string; const ADirectory, AUsername, APassword: string;
const ARestoreAtLogon: Boolean ): Boolean;
var
NetResource: TNetResource;
dwFlags: DWORD;
lPwd, lUser: PChar;
begin
NetResource.dwType:=RESOURCETYPE_DISK;
NetResource.lpLocalName:=PChar(ADrive);
NetResource.lpRemoteName:=PChar(ADirectory);
NetResource.lpProvider:=nil;
if ARestoreAtLogon then dwFlags:=CONNECT_UPDATE_PROFILE
else dwFlags:=0;
if AUsername<>'' then lUser:=PChar(AUsername)
else lUser:=nil;
if APassword<>'' then lPwd:=PChar(APassword)
else lPwd:=nil;
Result:=WNetAddConnection2(NetResource, lPwd, lUser, dwFlags)=NO_ERROR;
end;
Delphi-Quellcode:
if not ConnectNetworkDrive('T:', '\\server-ad\ad','Nutzer','Passwort',false) then
begin
showmessage('Verbindungsfehler zum Netzwerk. Bitte wiederholen.');
exit;
end;