Heure de démarrage windows 10

Heure de démarrage windows 10 - VB/VBA/VBS - Programmation

Marsh Posté le 22-05-2018 à 22:05:52    

Bonsoir,
Je rencontre quelques difficultés, j'ai fait un script qui me permet d'écrire dans un fichier l'heure à laquelle mon pc démarre.
Quand j'utilise une variable qui me fait prendre l'heure courante il n'y a pas de problème (mais je suis obligé de mettre une tache planifiée au démarrage).
Je souhaite pouvoir interroger cette fonction à n'importe quel moment, or le bout de script que j'ai déconne, je ne sais pas ce qu'il récupère mais si je démarre mon pc 3 fois de suite j'ai toujours la même heure ....
 
Voici une partie de mon script qui me permet de faire ca :
 

Code :
  1. '''''''''''''''''''''''''''''''''''''''''''''''''''
  2. 'Heure de démarrage du pc nomdupc
  3. '''''''''''''''''''''''''''''''''''''''''''''''''''
  6. Set objWMIService = GetObject _
  7. ("winmgmts:\\nomdupc\root\cimv2" )
  9. Function WMIDateStringToDate(dtmBootup)
  10. WMIDateStringToDate = CDate(Mid(dtmBootup, 5, 2) & "/" & _
  11. Mid(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) _
  12. & " " & Mid (dtmBootup, 9, 2) & ":" & _
  13. Mid(dtmBootup, 11, 2) & ":" & Mid(dtmBootup,13, 2))
  14. End Function
  15. Set colOperatingSystems = objWMIService.ExecQuery _
  16. ("Select * from Win32_OperatingSystem" )
  17. For Each objOS in colOperatingSystems
  18. dtmBootup = objOS.LastBootUpTime
  19. Demarrage = WMIDateStringToDate(dtmBootup)
  20. Wscript.Echo "Le système est actif depuis le " & Demarrage
  21. Next


 
J'ai remplacé l'écriture ds le fichier par un msbox pour faire les tests, sur un windows 7 aucun soucis, par contre je rencontre le soucis sur windows 10
 

Reply

Marsh Posté le 22-05-2018 à 22:05:52   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed