لمعرفة تاريخ تنصيب الويندوز على الجهاز

[Marco]

سلام ونعمة على جميع اعضاء منتدانا الغالى


احيانا بننسى امتى نزلنا الويندوز

انا معايا طريقة تعرفنا احنا امتى نزلنا الويندوز بكل سهولة


أول شي أنشأ ملف من نوع txt بأي اسم تريده

تاني شي غير امتداد الملف ل vbs

تالت شي انسخ الكود هاد واحفظ ونشغل الملف

كود PHP:

' © 2006 Ramesh Srinivasan. 
'Returns the Operating System installation date. 
strComputer = "." 
Set dtmInstallDate = CreateObject( _ 
  "WbemScripting.SWbemDateTime") 
Set objWMIService = GetObject("winmgmts:" _ 
  & "{impersonationLevel=impersonate}!\\" _ 
  & strComputer & "\root\cimv2") 
Set colOperatingSystems = objWMIService.ExecQuery _ 
  ("Select * from Win32_OperatingSystem") 
For Each objOperatingSystem in colOperatingSystems 
  MsgBox "Install Date: " & getmydat (objOperatingSystem.InstallDate) 
Next 

Function getmydat(wmitime)  
  dtmInstallDate.Value = wmitime 
  getmydat = dtmInstallDate.GetVarDate 
End function 


بعد ما نفتح الملف هيطلعلنا بالشكل ده

[sandra]

شكرااااااااااااا ربنا يبارككم

[Marco]

المشاركة الأصلية كتبت بواسطة sandra

شكرااااااااااااا ربنا يبارككم

ربنا يخليكى يااااارب