[vbs] dernier arrêt & dernier démarrage de windows

Soyez le premier à donner votre avis sur cette source.

Vue 4 219 fois - Téléchargée 399 fois

Description

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 !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
51
Date d'inscription
mercredi 29 septembre 2004
Statut
Membre
Dernière intervention
7 juillet 2010

Bonjour,

Au cas où le prefetcher serait désactivé (ça arrive...), on peut utiliser la ligne de commande suivante :
net statistics workstation
qui donne le dernier démarrage de la machine.
Sinon, pour info, sur mon Windows 7 Pro SP1, je n'ai pas les clés ExitTime et StartTime.
Par contre, je les ai bien sous XP Pro SP3.
Messages postés
14821
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 septembre 2021
156
Bonsoir,

Ta source serait mieux en Snippet www.codyx.org
Et uniquement avec la partie VBS pure.

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.