Récupérer la date d'installation de windows [Résolu]

Signaler
Messages postés
537
Date d'inscription
mardi 17 mars 2009
Statut
Membre
Dernière intervention
22 juillet 2020
-
Messages postés
537
Date d'inscription
mardi 17 mars 2009
Statut
Membre
Dernière intervention
22 juillet 2020
-
Bonjour,
Je voudrais récupérer la date d'installation de Windows.
Est ce qu'il y a un moyen simple pour l'afficher avec VB6 ?
D'avance merci,

3 réponses

Messages postés
29592
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 septembre 2020
337
Bonjour,

La date de modification ou de création du répertoire Windows... ne donne pas la date d'installation de l'OS... (du moins... ça ne correspond pas du tout pour moi )

Par contre... avec WMI il est possible de l'avoir.

Voici un exemple en VBScript :

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




Sinon tu as toujours la piste de la ligne de commande dans l'inivte msdos

C:\>systeminfo |find "installation"
Date d'installation originale: 10/12/2013, 16:29:39


Messages postés
537
Date d'inscription
mardi 17 mars 2009
Statut
Membre
Dernière intervention
22 juillet 2020

Merci
ç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.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
227
Bonjour,
D'installation, dis-tu ?
Il suffit de lire la date de création du dossier Windows.
La fonction filedatetime de VB6 retournant la date de dernière modification, elle est à éviter. Il te faut alors utiliser la fonction GetFileTime de la librairie kernel32 de l'Api de Windows
Elle est exposée ici :
http://allapi.mentalis.org/apilist/GetFileTime.shtml
tu y trouveras un exemple qui utilise une boîte de dialogue (dont tu n'as aucun besoin, toi). Analyse cet exemple et prends-y ce qui t'intéresse.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
227
Ceci étant dit :
Je ne vois pas ce que tu comptes faire avec la récupération de cette date.
A tout hasard : si tu comptes t'en servir pour "protéger" une application (en en subordonnant le fonctionnement à cette date, relevée à l'installation de ton appli), tu ne te protègeras que des enfants de coeur. Tous les autres (ceux qui ont l'habitude de tricher) mettront moins de 3 minutes pour te contrecarrer.