Perl для системного администрирования

       

Работа с разделяемыми ресурсами через ADSI



Работа с разделяемыми ресурсами через ADSI

Теперь займемся более интересными задачами ADSI, адресованными посвященным. Можно применять ADSI, чтобы предоставить к совместное пользование часть локального дискового пространства на машине:

use Win32::OLE;

SADsPath = "WinNT://ComputerName/1 anira'iserver":

$c = Win32: :ClEI->GotObjecT

$s = $c->Create("filesnare".Sshareramo): $s->{path} = 'C:\directory1:

Перед тем как перейти к другим задачам, хочу воспользоваться случаем и напомнить вам о необходимости обратиться к документации SDK перед работой с каким-либо из этих ADSI-объектов. Кое-какие не<>;ки-данности могут оказаться полезными. Если вы заглянете и раздел Acti ve Directory Service Interfaces 2.5—>ADSI Reference—> ADSI Interfaces—> Persistent Object Interfaces—> lADsFileShare файла помощи ADSI 2.5, то увидите, что объект f liesnare имеет свойство CurrentUser-Count, которое соответствует количеству пользователей, подсоединенных в настоящее время к разделяемому ресурсу. Этот нюанс может очень сильно пригодиться.



Содержание раздела