[Ageron]

/savecred - это я так понял сохранненый пароль, »

да
/savecred Использовать учетные данные, сохраненные пользователем.

но в другом домене нет учетки admin16, там используется другая, соответсвенно и пароль админа другой. »

пропишите в скрипт нужного пользователя

[maxim43g]

пропишите в скрипт нужного пользователя »

прописывал, ничего не дало.

[lxa85]

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) (бинго!)
----
Скрипт отрабатывает верно. Но только он не может жить автономной жизнью, ему необходимо "окружение" в виде дополнительного файла с названиями ПК.

[maxim43g]

Скрипт отрабатывает верно. Но только он не может жить автономной жизнью, ему необходимо "окружение" в виде дополнительного файла с названиями ПК. »

в сети где скрипт отрабатывает верно нет никакого иного файла, только этот скрипт.
хорошо, допустим я создам .txt файл с названиями компьютеров (верно?)
можно как то автоматически этот список создать?
StrComputer = "777" - что означает эта строка?

[Iska]

что означает эта строка? »

Имя текстового файла, конечно же. Находящегося в текущем для скрипта каталоге.

хорошо, допустим я создам .txt файл с названиями компьютеров (верно?) »

Неверно. Либо Ваш файл должен называться строго «777» (без «.txt»), либо приводите его имя в скрипте в соответствие с тем, как Вы его назовёте.

[lxa85]

можно как то автоматически этот список создать? »

Не зная строения сети - сложно сказать.
Возможно сканеры типа LanScope или аналоги смогут составить для вас список доступных компьютеров.

[maxim43g]

помогите пожалуйста, почему на одном компьютере скрипт отрабатывается верно и отсылается сообщения компьютерам из списка, а на другом после ввода сообщения не происходит абсолютно ничего?