كيفية حساب مدة تشغيل-اعادة تشغيل الحاسوب

بسم الله الرحمان الرحيم
كيفية حساب مدة تشغيل-اعادة تشغيل الحاسوب موضوع
هذه الطريقة تمكن من معرفة هل الحاسوب بطيئ في بدء التشغيل

3- Text Document إنشاء مستند جديد من نوع
و كتابة الأسطرالتالية

Option Explicit
On Error Resume Next

Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff

MsgA = "Pour chronométrer le redémarrage, veuillez fermer toutes les applications en cours et cliquer sur OK."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"
AppName = "Restart-Time"

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,, "REG_SZ"
Wsh.RegWrite KeyB, PathFile, "REG_SZ"
Wsh.Run "cmd /c Shutdown -r -t 02", false, 0
else
Wsh.RegDelete KeyA & "Times"
Wsh.RegDelete KeyA
Wsh.RegDelete KeyB
TimeDiff = DateDiff("s",Result,left(Time,)
MsgBox " Votre PC redémarré en " & TimeDiff & " secondes", VbInformation, AppName
end if
wscript.Quit

قم بحفظ الملف باسم
Le Temps de Démarrage.vbs

اذهب الى مكان حفظ الملف
ودوبل كليك على الملف راح يعطيك رسالة اضغط oui

وانتظر حتى يتم اعادة تشغيل لكمبيوتر
وعند الدخول للويندوز راح يجيك رسالة فيها مدة اعادة تشغيل الحاسب