maxim43g, Давайте порассуждаем, и я задам несколько наводящих вопросов.
Если мы запускаем скрипт, то он предлагает ввести строку, для того, чтобы разослать ее по сети.
Все хорошо, только команда msg которую "дергает" скрипт не умеет делать широковещательной болтовни.
msg
Код:
U:\>msg
Послано сообщение пользователю.
MSG {<пользователь> | <имя сеанса> | <ID сеанса> | @<имя файла> | *}
[/SERVER:<сервер>] [/TIME:<секунд>] [/V] [/W] [<сообщение>]
<пользователь> Имя пользователя.
<имя сеанса> Имя сеанса.
<ID сеанса> Идентификатор сеанса.
@<имя файла> Файл, содержащий список имен пользователей, сеансов или
идентификаторов сеансов, которым отправляется сообщение.
* Отправить сообщение всем сеансам на указанном сервере.
/SERVER:<сервер> Сервер (по умолчанию - текущий).
/TIME:<секунд> Интервал ожидания подтверждения от получателя.
/V Отображение информации о выполненных действиях.
/W Ожидание ответа от пользователя, полезно вместе с /V.
<сообщение> Отправляемое сообщение. Если не указано, выдается запрос
или принимается ввод из STDIN.
В скрипте мы указываем текст, который хотим отправить.
Из под кого мы хотим отправить? Из под пользователя adm16.
Теперь самый главный вопрос - куда мы хотим отправить? По каким адресам (именам компьютеров)? Откуда взять этот список?
Читаем скрипт, и комментарии. Явных строк с комментариями не много, да поможет на translate.google.com
'Asks the user to type the message -- Просит пользователя набрать сообщение (пока холодно)
'Determines the scope of the message being sent -- 'Определяет область отправляемого сообщения (теплее)
StrComputer = "777"
' Routine to read a file containing a list of computers -- Рутина, чтобы прочитать файл, содержащий список компьютеров (горячо)
Set
objSA = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
intLines = 0
Set objArquivoTexto =
objSA.OpenTextFile(
strComputer, ForReading) (бинго!)
----
Скрипт отрабатывает верно. Но только он не может жить автономной жизнью, ему необходимо "окружение" в виде дополнительного файла с названиями ПК.
