[Dave Dee]

So teste ich mein Computer wie schnell er startet.

Erstelle neue Textdatei und kopiere von "Option" bis "Quit" den Text.
Benenne die Textdatei in "Reboot Time.vbs" um.
Schließe alle Anwendung und Klick auf "Reboot Time.vbs"

oder fertige Datei

http://ul.to/c6aoxkv5

Diese Startzeit ist optional da sie von Hardware, Programme und anderen Faktoren
beeinflusst werden.

Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
MsgA = "Bitte schließen Sie alle geöffneten Anwendungen, und klicken Sie auf OK."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Run\RestartTime"
AppName = "[GeekPolice] Reboot Time"
Set Wsh = CreateObject("WS*****.Shell")
PathFile = """" & WS*****.S*****FullName & """"
Result = wsh.RegRead(KeyA & "Times")
if Result = "" then
MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
If MsgResult = vbcancel then WS*****.Quit
Wsh.RegWrite KeyA & "Times", left(Time,, "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,)
MsgBox "Ihr Computer benötigte " & TimeDiff & " Sekunden", VbInformation, AppName
end if
ws*****.Quit

Mein Resultat:

Ihr Computer benötigt 81 Sekunden

getestet unter Win7 x86 Pro

Die Ergebnisse die ich hier gelesen habe unter 15 bzw. unter 30 Sekunden
sind für mich Utopie ????

Viel Spaß beim testen.

für den smilie muss eine acht eingetragen werden

Wsh.RegWrite KeyA & "Times", left(Time,acht), "REG_SZ"
TimeDiff = DateDiff("s",Result,left(Time,acht))

acht in Zahl