একটি ' কোড-চ্যালেঞ্জ ' এর জন্য উদ্দীপ্ত আরেকটি প্রশ্ন: সমস্যার উত্তর দেওয়ার জন্য এখানে কিছু উত্স কোড এক্সিকিউটেবল রয়েছে, তবে সেগুলি সম্পূর্ণ নয়।
আপনি কি কোনও ভিবি স্ক্রিপ্ট পাবেন যা প্রত্যাশিত ফলাফল সহ যে কেউ তার / তার কম্পিউটারে সম্পাদন করতে পারে?
systeminfo|find /i "original"
আপনি প্রকৃত তারিখ ... না সেকেন্ডের সংখ্যা দিতে হবে;)
হিসাবে স্যামি মন্তব্য , find /i "install"
চেয়ে আপনার যা দরকার আরো দেয়।
এবং এটি কেবলমাত্র লোকেলটি ইংরেজী হলেই কাজ করে: এটির সাথে ভাষার মিল থাকা দরকার।
সুইডিশ ভাষায় এটি জার্মান " ursprungligt
" এবং " ursprüngliches
" হবে।
উইন্ডোজ পাওয়ারশেল স্ক্রিপ্টে, আপনি কেবল টাইপ করতে পারেন:
PS > $os = get-wmiobject win32_operatingsystem
PS > $os.ConvertToDateTime($os.InstallDate) -f "MM/dd/yyyy"
ডাব্লুএমআই ( উইন্ডোজ ম্যানেজমেন্ট ইনস্ট্রুমেন্টেশন) ব্যবহার করে )
আপনি যদি ডাব্লুএমআই ব্যবহার না করেন তবে আপনাকে অবশ্যই পড়তে হবে এবং নিবন্ধের মানটি রূপান্তর করুন:
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"
এই পোস্টের বাকি অংশগুলি আপনাকে সেই একই তথ্য অ্যাক্সেসের অন্যান্য উপায় দেয়। আপনার বিষ বাছুন;)
ভিবি.নেটে এমন কিছু দেবে:
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
ইন Autoit (ক উইন্ডোজ স্ক্রিপ্টিং ভাষা), যে হতে হবে:
;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
ডেলিফাই 7-এ, এটি হবে:
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;
বিকল্প হিসাবে, কোস্টএন প্রস্তাব দেয় মন্তব্যগুলিতে দিয়েছে :
system.ini-file
সাধারণ উইন্ডো মোতায়েনের ক্ষেত্রে যেমন অচ্ছুত থাকে, আপনি নীচের অনলাইনারটি ব্যবহার করে ইনস্টল-ডেটটি পেতে পারেন:
(PowerShell): (Get-Item "C:\Windows\system.ini").CreationTime