![]() ![]() ( a ) "Racing" startup speed is a joke, I have a computer that takes 3 days to boot because I want it to surface-scan and defrag before Windows loads, it's one of my archive servers, and I use one of the others while any one of them reboots and cleans the lint out of it's navel. 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. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |