Set dtmInstallDate = CreateObject( "WbemScripting.SWbemDateTime") Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems MsgBox "Date d'installation => " & formatDateTime (objOperatingSystem.InstallDate) Next Function formatDateTime(wmitime) dtmInstallDate.Value = wmitime formatDateTime = dtmInstallDate.GetVarDate End function
C:\>systeminfo |find "installation"
Date d'installation originale: 10/12/2013, 16:29:39
Modifié par cameron_skynet le 12/09/2014 à 09:30
ça fonctionne
j'ai juste déplacé cette ligne :
Set dtmInstallDate = CreateObject("WbemScripting.SWbemDateTime")
dans la fonction sinon j'avais une erreur 424
Function formatDateTime(wmitime)
Set dtmInstallDate = CreateObject("WbemScripting.SWbemDateTime")
dtmInstallDate.Value = wmitime
formatDateTime = dtmInstallDate.GetVarDate
End Function
Il y avait peut être une manière plus correcte de le faire mais en tout cas, ça fonctionne.
Un grand merci à Jordane45 et ucfoutu.
Effectivement, la date de création du dossier windows ne correspond pas toujours.