MsgBox "Your computer reboots in " & TimeDiff & " seconds", VbInformation, AppName TimeDiff = DateDiff("s",Result,left(Time,8)) Wsh.Run "cmd /c Shutdown -r -t 00", false, 0 Wsh.RegWrite KeyA & "Times", left(Time,8), "REG_SZ" If MsgResult = vbcancel then WScript.Quit MsgResult = Msgbox (MsgA, vbOKCancel, AppName) PathFile = """" & WScript.ScriptFullName & """" KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime" KeyA = "HKEY_CURRENT_USER\Software\RestartTime\" MsgA = "Please close all running applications and click on OK." vbsĭouble click and it will reboot and tell you your boot timeĭim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff Copy the following into notebook and save as.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |