Компьютерный портал
| Расширенный
Время загрузки ОС
  • Страница 1 из 1
  • 1
Модератор форума: fixap  
Restart-time
harikovich
Аватар harikovich

Почетный

Сообщений: 3595

Создаем текстовый файл
Код
Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
MsgA = "Please close all running applications and click on OK."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"
AppName = "RudeBoySes @ www.ForumW.Org"
Set Wsh = CreateObject("WScript.Shell")
PathFile = """" & WScript.ScriptFullName & """"
Result = wsh.RegRead(KeyA & "Times")
if Result = "" then
MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
If MsgResult = vbcancel then WScript.Quit
Wsh.RegWrite KeyA & "Times", left(Time,8), "REG_SZ"
Wsh.RegWrite KeyB, PathFile, "REG_SZ"
Wsh.Run "cmd /c Shutdown -r -t 00", false, 0     
else
Wsh.RegDelete KeyA & "Times"
Wsh.RegDelete KeyA
Wsh.RegDelete KeyB
TimeDiff = DateDiff("s",Result,left(Time,8))
MsgBox "Your computer restarts in " & TimeDiff & " seconds", VbInformation, AppName
end if
wscript.Quit
Сохраняем как .vbs , запускаем

После перезагрузки
Bushmen
Отредактировано Bushmen - 12.02.2012, 18:30
Аватар Bushmen


Сообщений: 10

А своими словами можешь объяснить что происходит при применении скрипта? и как отменить если что не так?
harikovich
Аватар harikovich

Автор темы
Почетный

Сообщений: 3595

Bushmen, Скрипт пишет в реестр два ключа, уводит компьютер в рестарт, затем показывает время старта и стирает ключи реестра.
bugmenot
Нет аватара


Сообщений: 49

Цитата (harikovich)
Скрипт пишет в реестр два ключа, уводит компьютер в рестарт, затем показывает время старта и стирает ключи реестра. »

Спасибо! пригодится
  • Страница 1 из 1
  • 1
Поиск:
В связи с введением в действие Постановления Правительства Российской Федерации от 14.11.2023 № 1905 т.н. "о запрете популяризации VPN" с 1 марта 2024 года - любое обсуждение способов обхода блокировок и VPN на портале запрещено!
Windows 11
Windows 10
Windows 8.1
Популярное
Опрос
Нравятся ли вам изменения произошедшие в Windows 10?
Всего ответов: 8484

Статистика Форума
Последние обновления тем
Популярные темы
Новые пользователи
26.05.2024|20:34
26.05.2024|15:56
26.05.2024|13:34
26.05.2024|12:15
26.05.2024|11:54
25.05.2024|20:11
25.05.2024|19:23
25.05.2024|13:32
25.05.2024|06:55
24.05.2024|14:57