एक अन्य प्रश्न ' कोड-चैलेंज ' के लिए उपयुक्त है: समस्या का उत्तर देने के लिए कुछ स्रोत कोड निष्पादन योग्य हैं, लेकिन वे पूर्ण नहीं हैं।
क्या आपको एक vb स्क्रिप्ट मिलेगी जिसे कोई भी अपने कंप्यूटर पर अपेक्षित परिणाम के साथ निष्पादित कर सकता है?
systeminfo|find /i "original"
आप वास्तविक तारीख दे देंगे ... सेकंड की संख्या नहीं;) सैमी टिप्पणी के
रूप में , आपको आवश्यकता से अधिक देता है।
और यह केवल तभी काम करता है जब लोकेल अंग्रेजी हो: इसे भाषा से मेल खाना चाहिए।
स्वीडिश के लिए यह जर्मन के लिए " " और " " होगा। find /i "install"
ursprungligt
ursprüngliches
Windows PowerShell स्क्रिप्ट में, आप बस टाइप कर सकते हैं:
PS > $os = get-wmiobject win32_operatingsystem
PS > $os.ConvertToDateTime($os.InstallDate) -f "MM/dd/yyyy"
WMI ( Windows प्रबंधन इंस्ट्रूमेंटेशन ) का उपयोग करके
यदि आप WMI का उपयोग नहीं करते हैं, तो आपको अवश्य पढ़ना चाहिए और रजिस्ट्री मान परिवर्तित करें:
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"
इस पोस्ट के बाकी हिस्सों में आपको उसी जानकारी तक पहुंचने के अन्य तरीके दिए गए हैं। अपना ज़हर उठाएं ;)
VB.Net में जो कुछ ऐसा देगा:
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 स्क्रिप्टिंग भाषा), कि होगा:
;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