Отправка сообщения с помощью net send:

dim message, accept
message = "ВНИМАНИЕ! Через 10 минут произойдет отключение сервера. Просим сохранить данные и завершить работу с ресурсами сервера."
accept = MsgBox("Отправить предупреждение о выключении сервера?", 65, "Подтверждение")
if accept = 1 then
Set WshShell = CreateObject("WScript.Shell")WshShell.Run "net.exe send /users " & message
end if

PIN регистрации DECT трубок в KX-TDA30

С первого разу не нашел, где в консоли KX-TDA поставить PIN для регистрации DECT трубок (с системника-то нет проблем: прог. [692]).
Но заметил, что (если не прав - поправьте) он совпадает с PIN системного телефона, который правится в консоли в соответствующем экстеншене...