Date de mise en service d'un ordinateur

Fabrice a écrit :

Bonsoir,

Quelle piste utiliser pour récupérer la date de mise en service d'un
ordinateur ? (en VB6)

Merci de vos suggestions

Qu'entends tu exactement par date de mise en service ? Date
d'installation, date de démarrrage ?

Pour la date du dernier démarrage, avec WMI :

Private Sub GetBootTime()
Dim BootTime As Object
Dim OSobjs As Object, obj As Object

Set BootTime = CreateObject("WbemScripting.SWbemDateTime")
Set OSobjs = _
GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
For Each obj In OSobjs
BootTime.Value = obj.LastBootUpTime
MsgBox "Dernier démarrrage le : " & BootTime.GetVarDate
Next
End Sub


Pour la date d'installation, toujours avec WMI :

Private Sub GetInstallDate()
Dim InstallationDate As Object
Dim OSobjs As Object, obj As Object

Set InstallationDate = CreateObject("WbemScripting.SWbemDateTime")
Set OSobjs = _
GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
For Each obj In OSobjs
InstallationDate.Value = obj.InstallDate
MsgBox "Installé le : " & InstallationDate.GetVarDate
Next
End Sub

Plus de détails ici :

<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_operatingsystem.asp>

--
Cordialement,

Jacques.

Bonsoir,

j'entend la date d'achat ou de première mise en service de l'ordinateur.

Toutefois merci de ces premières informations et si cette précision est
connue merci d'avance

Bonne soirée
Fabrice


"Jacques93" <jacques@Nospam> a écrit dans le message de news:
e%23eKWCkFHHA.420@TK2MSFTNGP06.phx.gbl...

Fabrice a écrit :

Bonsoir,

Quelle piste utiliser pour récupérer la date de mise en service d'un
ordinateur ? (en VB6)

Merci de vos suggestions

Qu'entends tu exactement par date de mise en service ? Date
d'installation, date de démarrrage ?

Pour la date du dernier démarrage, avec WMI :

Private Sub GetBootTime()
Dim BootTime As Object
Dim OSobjs As Object, obj As Object

Set BootTime = CreateObject("WbemScripting.SWbemDateTime")
Set OSobjs = _
GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
For Each obj In OSobjs
BootTime.Value = obj.LastBootUpTime
MsgBox "Dernier démarrrage le : " & BootTime.GetVarDate
Next
End Sub


Pour la date d'installation, toujours avec WMI :

Private Sub GetInstallDate()
Dim InstallationDate As Object
Dim OSobjs As Object, obj As Object

Set InstallationDate = CreateObject("WbemScripting.SWbemDateTime")
Set OSobjs = _
GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
For Each obj In OSobjs
InstallationDate.Value = obj.InstallDate
MsgBox "Installé le : " & InstallationDate.GetVarDate
Next
End Sub

Plus de détails ici :

<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_operatingsystem.asp>

--
Cordialement,

Jacques.

Fabrice a écrit :

Bonsoir,

j'entend la date d'achat ou de première mise en service de l'ordinateur.

Toutefois merci de ces premières informations et si cette précision est
connue merci d'avance

C'est marqué sur la facture !

--
Cordialement,

Jacques.