Voila un Vbscript qui vous montre comment afficher le Dernier Arrêt & le Dernier Démarrage de Windows par 2 méthodes différentes.
1ère Méthode : un peu complexe car c'est un mélange entre le Vbscript et quelques commandes en DOS pour afficher le Dernier Arrêt & le Dernier Démarrage de Windows dans une Console.
2ème Méthode : plus simple dans le même script en utilisant le ws.RegRead et les affichier dans un MsgBox.
Source / Exemple :
Titre = "Dernier Arrêt & Dernier Démarrage de Windows by © Hackoo 2012"
'Méthode 1 un peu complexe :)
Set ws = CreateObject("wscript.Shell")
Command1 = "cmd /c reg query ""HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Prefetcher"" > %tmp%\Prefetcher.txt"
Command2 = "cmd /c @echo off & Color 9B & Title Start and Exit Time by © Hackoo 2012 & mode con cols=60 lines=20 & for /f ""tokens=3"" %i in ('Type %tmp%\Prefetcher.txt ^| find ""ExitTime""') do @echo Dernier arret de Windows ............ : %i & for /f ""tokens=3"" %i in ('Type %tmp%\Prefetcher.txt ^| find ""StartTime""') do @echo Dernier demarrage de Windows ........ : %i & Pause "
Exec1 = ws.run(Command1,0,True)'Le Paramètre 0 pour ne pas afficher la console du DOS
Exec2 = ws.run(Command2,1,True)'Le Paramètre 1 pour afficher la console du DOS
'************************************************************************************
'Méthode 2 plus simple :)
ExitTime = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Prefetcher\ExitTime"
StartTime = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Prefetcher\StartTime"
Msgbox Ws.RegRead(ExitTime),64,Titre
Msgbox Ws.RegRead(StartTime),64,Titre
Conclusion :
Vos Commentaires et vos remarques et surtout vos Notes :) sont les bienvenues !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.