Рассылка сообщений внутри сети

Админ

21.11.12

✎

11:59

есть сеть около 17 компов
задача:
с сервера отправлять сообщения на компы юзеров.
ОБЯЗАТЕЛЬНЫЕ требования:
1)Программа должна либо сворачивать окна(включая досовские), либо выводить своё окно поверх, либо уведомлять о приходя сообщения звуком
3)Работа под вин XP.
5)простая отправка сообщений на все компы(чтоб не пришлось отправлять каждому)
Рассматриваю и платные программы. Такие функции как net send не рассматриваю.

1 Irek-kazan

21.11.12

✎

12:00

джаббер? аська?

2 le_

21.11.12

✎

12:05

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

3 ice777

21.11.12

✎

12:06

(2) а если политиками запрещена?

4 le_

21.11.12

✎

12:07

(3) Разрешить.

5 le_

21.11.12

✎

12:08

+ (2) Можно батник или wsh-скрипт написать, чтобы каждый раз не вбивать получателей.

6 sanen

21.11.12

✎

12:10

пользователь попросил более удобное средство.

7 viktor_vv

21.11.12

✎

12:16

Используем такой чат.

wiki:Intranet_Chat

Протсой и достаточно удобный.

8 le_

21.11.12

✎

12:43

(6) Вполне удобно.

Machines = "vasya,petya,voffka"
 
msg = InputBox("Введите сообщение")
 
if msg <> "" then
 
    Set Sh = CreateObject("WScript.Shell")
 
    Machines = Split(Machines, ",")
 
    For Each machine in machines
 
        Sh.Run "net send " & machine & " " & """" & msg  & """", 0, 0
 
    Next
 
end if