Утилита по смене OWNERA - нужны тестеры

[skoltogyan]

Опробована на NW6.5.
Язык: Perl
НЕ ИСПОЛЬЗУЕТ UCS/UCX.
Использует VFS.
Должен работать на той ОС, где есть: VFS .
Теоретичекси можно запускать и с рабочей станции, например с Win , используя ActivePerl. Для этого надо будет внести изменение в скрипте, указывающие расположение каталого _ADMIN.

пример запуска с консоли NW сервера:
пример1:
perl sys:\perl\scripts\chngownr.pl volume:dir\dir1 .cn=user1.ou=org1.o=ogo.t=tree. .cn=user3.o=ogo.t=tree.

что делает: начиная с volume:dir\dir1 и ниже сканирует ВСЕ файлы и каталоги. Если находит файл или каталог , владелец которого:
.cn=user1.ou=org1.o=ogo.t=tree.
, то меняет владельца на:
.cn=user3.o=ogo.t=tree.



пример2:
perl sys:\perl\scripts\chngownr.pl volume:dir\dir1 "unknown user" .cn=user3.o=ogo.t=tree.

что делает:
ачиная с volume:dir\dir1 и ниже сканирует ВСЕ файлы и каталоги. Если находит файл или каталог БЕЗ ВЛАДЕЛЬЦА
, то назначает его владельцем:
.cn=user3.o=ogo.t=tree.

---------------------------------------------------------------------------
Собственно скрипт тут:
ftp://ftp1.ami.ua/novell/chngownr.zip

попробуйте.
мысли и замечания приветствуются.
---------------------------------------------------------------------------

[Музалёв Николай]

Предлагается вариант ДВА: "..... - нужны пользователи":
программка SKOKO

Альтернативой проходит вариант ТРИ: ".... - требуются покупатели"
утилита Setowner (JRB-набор):

Код: Выделить всё

Setowner can change the ownership of individual files, selected files in a directory tree, all files and directories in a directory tree, or can treat each subdirectory as a separate tree and set ownership to
the user corresponding to the subdirectory name e.g. for vol1:users\hewey set ownership to hewey,
for vol1:users\dewey set ownership to dewey etc.