Отправка сообщения с помощью 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