Листинг 6. Запуск сценария на удаленных машинах домена

Set objPCTXTFile = objFSO.OpenTextFile("c: est.txt", ForWriting, True)

' Получаем информацию о домене

Set objDomain = GetObject("WinNT://" & strDomain)

' Интересует объект компьютеры

objDomain.Filter = Array("Computer")

For Each pcObject In objDomain

    objPCTXTFile.WriteLine pcObject.Name

Next

objPCTXTFile.close

' Читаем компьютеры из созданного файла

Set readPCFile = objFSO.OpenTextFile(strPath & strPCsFile, ForReading)

i = 0

Do Until readPCFile.AtEndOfStream

strNextLine = readPCFile.Readline

objDictionary.Add i, strNextLine

i = i + 1

Loop

readPCFile.Close

' Запускаем процедуру сбора информации на каждом компьютере

For each DomainPC in objDictionary

strComputer = objDictionary.Item(DomainPC)

GetInstalledSoftware()

Next

Такая конструкция, конечно, имеет право на жизнь, несмотря на свою некоторую неуклюжесть. Однако для того чтобы с помощью такого цикла получить информацию со всех компьютеров сети, необходимо, чтобы в момент запуска сценария все машины были включены. Даже в небольшой компании добиться этого не просто. Всегда есть есть отсутствующие сотрудники, ноутбуки и удаленные филиалы, с которыми нет постоянного соединения.

Таким образом мы приходим к выводу, что вариант с одновременным опросом всех машин в сети нас не устраивает. К тому же с помощью такой реализации практически невозможно собрать информацию в сети, которая географически разнесена по разным регионам, когда в одном офисе рабочий день только начинается, а в другом – уже заканчивается.

Возможен еще другой вариант для запуска нашего сценария на пользовательских машинах – это Logon Script. Для доступа к нему необходимо в свойствах пользователя (или нескольких выбранных пользователей) в закладке Profile указать путь к файлу сценария (см. рис. 2).