Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Отображение сообщения на всех пользователей

Ответить
Настройки темы
VBS/WSH/JS - Отображение сообщения на всех пользователей

Пользователь


Сообщения: 121
Благодарности: 3

Профиль | Отправить PM | Цитировать

Доброго времени суток!

Возник такой вопрос. Есть интересный скрипт для завершения работы компьютера:

Код: Выделить весь код
Dim vbOK,Inf,intDo, Cancel  
'Dim Message, Title  
vbOK = 1  
Inf = 64  
Cancel = 2  
Message = "Время выключать компьютер!"  
Title   = "Подтвердите действие"  
Set WSHShell = WScript.CreateObject("WScript.Shell")  
WSHShell.Run("shutdown /s /t 15 /f")  
intDo =  WSHShell.Popup(Message,0,Title,vbOK + Inf)  
if intDo = Cancel Then   
WSHShell.Run("shutdown /a")     
WScript.Quit()  
End if
В скрипте все устраивает кроме одного. сообщение отображается у пользователя от которого запущен данный скрипт. А необходимо что бы у всех либо у того пользователя который вошел в систему.

Заранее благодарен!

Отправлено: 17:15, 21-04-2011

 

Аватара для BigBoo

Старожил


Автор проектов


Сообщения: 474
Благодарности: 120

Профиль | Отправить PM | Цитировать

SanyaJoker, попробуйте так:
Код: Выделить весь код
strComputer = "."  
strNamespace = "Root\CIMV2"  
strClass = "Win32_OperatingSystem"  
Set objClass = GetObject("WinMgmts:{(Shutdown,RemoteShutdown)}!\\" & strComputer & "\" & strNamespace & ":" & strClass)  
Set colInstances = objClass.Instances_     

For Each objInstance In colInstances  	
  iAnswer = MsgBox("Выключить компьютер сейчас?", vbQuestion + vbOKCancel, "Завершение работы...")  	
  If iAnswer = vbOK Then   		
    objInstance.Shutdown()  	
  End if   
Next

Отправлено: 22:04, 21-04-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 121
Благодарности: 3

Профиль | Отправить PM | Цитировать

BigBoo, все равно не появляется

Последний раз редактировалось SanyaJoker, 22-04-2011 в 18:57.

Отправлено: 12:45, 22-04-2011 | #3


Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать

сообщение всем отправить как раз можно:
Код: Выделить весь код
msg * "Текст сообщения"
... а вот получить подтверждение о выборе пользователя уже никак, так как "отправитель" и "получатель" работают в разных контекстах безопасности... Для этого нужно иметь скрипт-"агент", который постоянно крутится под пользователем, обрабатывает нужные события и сообщает скрипту-"серверу" о результатах.

Отправлено: 05:33, 25-04-2011 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Отображение сообщения на всех пользователей

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - [решено] Подскажите как настроить отображение файлов во всех папках списком? Flurt Microsoft Windows 7 23 09-12-2020 00:57
Интернет - [решено] Некорректное отображение сайтов на всех браузерах CJ F.A.N. Microsoft Windows 2000/XP 16 31-01-2012 16:01
2008 R2 - Календари всех пользователей - директору разом exo Windows Server 2008/2008 R2 0 15-04-2011 14:28
Пароли для всех пользователей Deskin Microsoft Windows NT/2000/2003 10 20-03-2009 09:49
[решено] Выкинуть всех пользователей. Butunin Klim Microsoft Windows NT/2000/2003 3 31-08-2006 16:47


« Предыдущая тема | Следующая тема »


 
Переход