recup par vba date de mise en service PC neuf

chris

XLDnaute Barbatruc

• 2 Septembre 2013

• #2

Re : recup par vba date de mise en service PC neuf

Bonjour

A priori la date de création du dossier C:\WINDOWS est une bonne info sauf si le PC a été réinitialisé...

Edit : le code

Code:

Set Objet_Fichier = CreateObject("Scripting.FileSystemObject")
Set Fichier = Objet_Fichier.GetFolder("c:\windows")
y = Fichier.DateCreated

Coucou MJ13🙂

 

Dernière édition: 2 Septembre 2013

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 2 Septembre 2013

• #3

Re : recup par vba date de mise en service PC neuf

Bonjour Fred, Chris

Normalement avec SystemInfo en invite de commande, tu dois avoir tous les renseignements dont tu as besoin. A vérifier😕.

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 2 Septembre 2013

• #4

Re : recup par vba date de mise en service PC neuf

Merci à vous! Chris et MJ13
Vous êtes trop forts!!!

J'adopte la solution de Chris top pour le VBA.
(n'ayant point reussi à faire fonctionner l'autre)

A+
fred

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 2 Septembre 2013

• #5

Re : recup par vba date de mise en service PC neuf

Chris,( MJ 13), grâce à votre code, je récupère donc la date a laquelle Windows a été installée sur le PC.
(information interessante pour moi que je vais garder dans mon code).
Cette date ne reflette cependant pas toujours la 1ere date de mise en service de nos PC car il peuvent etre au cours de leur vie "refondus" (reinstallation complete) avec restaurations de tous nos fichiers anterieurs.

MJ13 et Ou Chris,

Auriez vous une autre idee pour accéder à l'information qui se rapprocherait au mieux de la 1ere date de mise en service du PC toujours par le VBA?
infos dans le bios?
info constructeur?
autre?
Peut etre dans le "SystemInfo" de MJ13 (comment le sonder par VBA?)
Merci encore pour votre aide

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 2 Septembre 2013

• #6

Re : recup par vba date de mise en service PC neuf

Re

Tu peux essayer de lancer un .bat avec ce code puis ouvrir le txt en VBA:

Code:

C:\Windows\System32\systeminfo >C:\_AC\test2.txt

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 2 Septembre 2013

• #7

Re : recup par vba date de mise en service PC neuf

interessant!
Je teste et reviens vers vous!
Fred

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 2 Septembre 2013

• #8

Re : recup par vba date de mise en service PC neuf

Génial!
ça marche!
il y a l'info de la Date d'installation originale! (et d'autres qui m'interessent en plus!)
Reste plus qu'à programmer tout ça pour que ça marche sous vba.
(Si vous avez des indication..mais je vais de suite essayer de m'y mettre comme un grand!)
Top!
A+
fred

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 2 Septembre 2013

• #9

Re : recup par vba date de mise en service PC neuf

Re

Sur mon PC la Date d'installation originale est postérieure à la création du dossier Windows : j'ai changé de disque et copié l'ancien sur le nouveau. C'est la date de copie qui est renvoyée comme Date d'installation originale.

Je crains que le PC ne garde pas de trace autre que ce que peux donner l'OS... et en cas de réinit d'un PC ou autre intervention lourde...

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 2 Septembre 2013

• #10

Re : recup par vba date de mise en service PC neuf

Re salut à vous 2,
çà y est j'ai programmé tout ça et ça marche.

Cependant je suis un peu decu car la donnée "Date d'installation originale" n'est finalement ni plus ni moins la derniere date d'install de windows....et il n'y a pas d'autre date...
Boooouuuuuuuhhh!

C'est pas grave.
Je vais continuer de chercher et si vous avez une autre idée, je suis évidemment preneur!

A+
Fred

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 2 Septembre 2013

• #11

Re : recup par vba date de mise en service PC neuf

ok.
merci Chris!

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 2 Septembre 2013

• #12

Re : recup par vba date de mise en service PC neuf

Re

"Date d'installation originale" n'est finalement ni plus ni moins la derniere date d'install de windows....

Cliquez pour agrandir...

Un peu logique, non 😕. sinon voir si il y a des scories des anciennes versions.

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 2 Septembre 2013

• #13

Re : recup par vba date de mise en service PC neuf

qu'est ce qu'un scories?
Où cela se trouve t'il?
Merci à vous
Fred

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 2 Septembre 2013

• #14

Re : recup par vba date de mise en service PC neuf

Bonjour tout le monde,
je ne sais pas si c'est vraiment ce que tu recherches mais ce code basé sur du WMI permet de récupérer la date d'installation du système d'exploitation sur un ordinateur :

Code:

Sub Date_installation_OS()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.Execquery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
    Debug.Print "Date d'installation: " _
       & objOperatingSystem.InstallDate
Next
End Sub

La date est ramenée en temps universel.
Les 4 1er chiffres correspondent à l'année, les 2 suivants au mois, les 2 suivants au jour, les 6 suivants aux heures, minutes et secondes. Viennent ensuite éventuellement les résidus des secondes suivis du nombre de minutes de décalage avec l'heure GMT.
A+

 

Dernière édition: 2 Septembre 2013

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 2 Septembre 2013

• #15

Re : recup par vba date de mise en service PC neuf

salut David
Je viens de tester et je confirme tes dire.
Pas mal aussi pour recuperer directement cette info.
Merci pour ton aide
A+
fred

 

Vote positif 0 Vote négatif