Pertanyaan lain yang bisa diajukan untuk ' tantangan kode ': berikut adalah beberapa kode sumber yang dapat dieksekusi untuk menjawab masalah, tetapi tidak lengkap.
Apakah Anda akan menemukan skrip vb yang dapat dieksekusi oleh siapa pun di komputernya, dengan hasil yang diharapkan?
systeminfo|find /i "original"
akan memberi Anda tanggal aktual ... bukan jumlah detik;)
Seperti komentar Sammy , berikan lebih dari yang Anda butuhkan.
Dan ini hanya berfungsi jika lokal adalah bahasa Inggris: Ini harus sesuai dengan bahasa.
Untuk Swedia ini " " dan " " untuk Jerman.find /i "install"
ursprungligt
ursprüngliches
Di skrip Windows PowerShell , Anda cukup mengetik:
PS > $os = get-wmiobject win32_operatingsystem
PS > $os.ConvertToDateTime($os.InstallDate) -f "MM/dd/yyyy"
Dengan menggunakan WMI ( Instrumentasi Manajemen Windows )
Jika Anda tidak menggunakan WMI, Anda harus membaca lalu mengonversi nilai registri:
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"
Sisa dari posting ini memberi Anda cara lain untuk mengakses informasi yang sama. Pilih racunmu;)
Di VB.Net itu akan memberikan sesuatu seperti:
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
Dalam Autoit (bahasa skrip Windows), itu akan menjadi:
;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
Dalam Delphy 7, itu akan menjadi:
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;
Sebagai alternatif, CoastN mengusulkan dalam komentar :
Karena system.ini-file
tetap tidak tersentuh dalam penyebaran windows biasa, Anda sebenarnya bisa mendapatkan tanggal pemasangan dengan menggunakan oneliner berikut:
(PowerShell): (Get-Item "C:\Windows\system.ini").CreationTime