ливість отримати новий об'єкт, що має властивості, при зміні яких досягається поставлена ​​мета - адміністрування ресурсів. В обох проектах є загальна операція - перерахування комп'ютерів домену. Вона реалізується шляхом оголошення змінних типу IADsContaner і IADsComputer, заповнення контейнера, за допомогою фільтра, елементами масиву комп'ютерів і висновок відповідних мережевих імен в комбінований список робочих форм: Dim cont As IADsContainer
Dim contName As String
Dim computer As IADsComputer
contName = Computerdomain
Set cont = GetObject ("WinNT :/ /" & contName)
cont.Filter = Array ("Computer")
For Each computer In cont
cbo1.AddItem computer.Name
Next
Рядки, що починаються з DIM, оголошують змінні IADsContainer - це тип інтерфейсу ADSI, саме мінлива cont і буде об'єктом, використовуючи властивості якого отримуємо можливість перерахувати комп'ютери (тип IADsComputrer) в домені з ім'ям computerdomain. У тілі циклу перерахуємо всі комп'ютери домену і внесемо їх імена в комбінований список. Аналогічно пов'язуємо та ін об'єкти, властивості яких можуть і будуть використані для завдань адміністрування.
Можна перерахувати всі комп'ютери, а потім використовувати умова для визначення необхідної черги друку (виконується на сервері друку) на основі її точного імені, як це і реалізовано у наданій програмі. p> Dim ComputerName As String
Dim ComputerDomain As String
Dim PrintQueueName As String
Dim PrintQueue As IADsPrintQueue
ComputerDomain = "Target_Computer_ Domain"
ComputerName = "Target_ Зітри ter_Name"
PrintQueueName = " Target_Print_Queue"
Set PrintQueue = GetObject ("WinNT :/ /" & ComputerDomain & "/" _ p> & ComputerName & "/" & PrintQueueName & ", printqueue ")
У даному прикладі чергу друку, що обробляється на комп'ютері з ім'ям В« Target_Сотрі ter_ NameВ», що знаходиться в домені В« Target_ Computer_ DomainВ»
і іменована як В« Target_ Print_ QueueВ» буде "пов'язана" і звернутися до неї можна буде через об'єкт PrintQueue. Припустимо, необхідно призупинити процес друку. Для цього можна, змінивши в коді тільки тип змінної, що відповідає за ім'я об'єкта PrintQueue на IADsPrintQueueOperation і продовжуючи код застосувати рядок: PrintQueue.Pause, аналогічно можна відновити друк і т.д.
На другому етапі- В«Робочому проектуванніВ» здійснюється технічна реалізація обраних найкращих варіантів і розробляється документація В«Робочий проектВ». Найбільш відповідальною роботою, виконуваної на цьому етапі, є В«Кодування та складання програмної документаціїВ». Т.к. в ...
