Сообщение пользователям терминала.

Поделюсь скриптом для оповещения пользователей терминала.
Cкрипт выдает сообщение ВСЕМ ПОЛЬЗОВАТЕЛЯМ из файла alarm.txt, если он существует.
Первая строка файла alarm.txt задает дату и время в формате «дд.мм.гггг чч:мм:cc» до которого будет выводиться сообщение. Все остальные строки попадают в сообщение.
Длинна сообщения ограничена: 240 символов(примерно 3 строки по 80 знаков).
Для выдачи сообщения только пользователю, запустившему скрипт, используется параметр /one.
Может запускаться из общего скрипта групповой политики c параметром /one, или отдельно, или планировщиком.

alarm.vbs

Option Explicit
‘On Error Resume Next

Dim objShell, objExec, objFileSys, mesages, msg1, file_name, alarm_file, End_time, Real_time, diff_time

Set objFileSys=WScript.CreateObject(«Scripting.FileSystemObject»)
Set objShell=WScript.CreateObject(«Wscript.Shell»)

file_name=»c:\auto\alarm.txt»

if objFileSys.FileExists(file_name) Then
set alarm_file=objFileSys.OpenTextFile(file_name)
End_time=alarm_file.ReadLine
Real_time=now()
Diff_time=DateDiff(«n»,real_time,end_time)
if Diff_time>=0 Then
If Wscript.Arguments.Named.Exists(«one») then
mesages=alarm_file.ReadAll
MsgBox mesages, 4144, «Информационное сообщение»
else
msg1=alarm_file.ReadAll
mesages=»msg * «+msg1
objShell.exec(mesages)
end if
End if
alarm_file.close
End if

Один комментарий к “Сообщение пользователям терминала.”

  1. Приветик. Я хотела спросить. Я вот пишу бывает вам комментарии они появляются но потом когда через минутку захожу их уже нет. Почему так не понятно ?

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *