Autre question elligeable pour un ' code-challenge ': voici quelques exécutables de code source pour répondre au problème, mais ils ne sont pas complets.
Trouverez-vous un script vb que n'importe qui peut exécuter sur son ordinateur, avec le résultat attendu?
systeminfo|find /i "original"
vous donnerait la date réelle ... pas le nombre de secondes;)
Comme le commente Sammy , donne plus que ce dont vous avez besoin.
Et cela ne fonctionne que si les paramètres régionaux sont l'anglais: il doit correspondre à la langue.
Pour le suédois, ce serait " " et " " pour l'allemand.find /i "install"
ursprungligt
ursprüngliches
Dans le script Windows PowerShell , vous pouvez simplement taper:
PS > $os = get-wmiobject win32_operatingsystem
PS > $os.ConvertToDateTime($os.InstallDate) -f "MM/dd/yyyy"
En utilisant WMI ( Windows Management Instrumentation )
Si vous n'utilisez pas WMI, vous devez lire puis convertir la valeur de registre:
PS > $path = 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion'
PS > $id = get-itemproperty -path $path -name InstallDate
PS > $d = get-date -year 1970 -month 1 -day 1 -hour 0 -minute 0 -second 0
## add to hours (GMT offset)
## to get the timezone offset programatically:
## get-date -f zz
PS > ($d.AddSeconds($id.InstallDate)).ToLocalTime().AddHours((get-date -f zz)) -f "MM/dd/yyyy"
Le reste de cet article vous donne d'autres moyens d'accéder à ces mêmes informations. Choisissez votre poison ;)
Dans VB.Net, cela donnerait quelque chose comme:
Dim dtmInstallDate As DateTime
Dim oSearcher As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
For Each oMgmtObj As ManagementObject In oSearcher.Get
dtmInstallDate =
ManagementDateTimeConverter.ToDateTime(CStr(oMgmtO bj("InstallDate")))
Next
Dans Autoit (un langage de script Windows), ce serait:
;Windows Install Date
;
$readreg = RegRead("HKLM\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION\", "InstallDate")
$sNewDate = _DateAdd( 's',$readreg, "1970/01/01 00:00:00")
MsgBox( 4096, "", "Date: " & $sNewDate )
Exit
Dans Delphy 7, cela ressemblerait à:
Function GetInstallDate: String;
Var
di: longint;
buf: Array [ 0..3 ] Of byte;
Begin
Result := 'Unknown';
With TRegistry.Create Do
Begin
RootKey := HKEY_LOCAL_MACHINE;
LazyWrite := True;
OpenKey ( '\SOFTWARE\Microsoft\Windows NT\CurrentVersion', False );
di := readbinarydata ( 'InstallDate', buf, sizeof ( buf ) );
// Result := DateTimeToStr ( FileDateToDateTime ( buf [ 0 ] + buf [ 1 ] * 256 + buf [ 2 ] * 65535 + buf [ 3 ] * 16777216 ) );
showMessage(inttostr(di));
Free;
End;
End;
En alternative, CoastN propose dans les commentaires :
Comme le system.ini-file
reste intact dans un déploiement Windows typique, vous pouvez réellement obtenir la date d'installation en utilisant le oneliner suivant:
(PowerShell): (Get-Item "C:\Windows\system.ini").CreationTime