Программный доступ к сетевой папке

← →
mabia (2008-01-08 11:30) [0]

По условию расшаривается сетевая папка на серваке
NetShareAdd(), а вот как присвоить ей атрибут только по
чтению, или полный доступ. Спасибо заранее

← →
Anatoly Podgoretsky © (2008-01-08 11:48) [1]

> mabia (08.01.2008 11:30:00) [0]

Что за сервер, есть ли домен.

← →
mabia (2008-01-08 14:44) [2]

Сервер имеет домен 3 уровня, обращение как по имени так и
по ИПшнику. Сервер Windows2003

← →
Rouse_ © (2008-01-09 09:24) [3]

Через выставление прав доступа как и для обычной папки. Смотри описание функции SetFileSecurity()

← →
mabia (2008-01-09 10:12) [4]

Для Александра Багеля (Rouse_) Задача делается на основе двух
Ваших модулей, сканирование сети (с получением МАС адреса)
и разрешение доступа к сетевым ресурсам по условию. При этом
сетевой ресурс расшаривается динамически в зависимости от
условия.
ShareNT.shi2_netname := TmpNameNT; //Имя
ShareNT.shi2_type := STYPE_DISKTREE; //Тип ресурса
ShareNT.shi2_remark := ""; //Комментарий

ShareNT.shi2_permissions := ACCESS_ALL; //Доступ
Что в этой строке надо написать вместо ALL?

ShareNT.shi2_max_uses := DWORD(-1); //Кол-во максим. подключ.
ShareNT.shi2_current_uses := 0; //Кол-во тек подкл.
GetMem(TmpDirNT, TmpLength);
StringToWideChar(TmpDir, TmpDirNT, TmpLength);
ShareNT.shi2_path := TmpDirNT; //Путь к ресурсу
ShareNT.shi2_passwd := ""; //Пароль
NetShareAddNT(nil,2,@ShareNT, nil); //Добавляем ресурс

> Смотри описание функции SetFileSecurity()

Или даже более удобной на мой взгляд SetNamedSecurityInfo

> Что в этой строке надо написать вместо ALL?

Для NTFS ничего, я же сказал - выставлением прав...

Программный доступ к сетевой папке Найти похожие ветки