اعرف متى قمت بتنزيل الويندوز في جهازك

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

1- أنشئ ملف من نوع txt (نوت باد)وسميه أي إسم تريده
وهــــذا الكـــود قم بنسخـــه ولصقه في الملف النصي
ــــــــــــــــــــــــــــــــــــــــــــــــــ ـــــــــــــــــــــــ
' منتدى اليمن اغلى/بحـــر.
'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
_______________________
بعد عمليه اللصق اذهب الى (ملف-حفظ باسم)اختار مكان الحفظ مثلاُ سطح المكتب
وبالاسم الي تريد ولاكن بشرط غير امتداد الملف الى (vbs)
مثلاُ ستحفظ الملف بالاسم التالي(D\B7R.VBS)

شكــــــــرا على الموضوع الـــــرائع

تحيتي الحسين الشامي

موضوع راقي ومميز,,
لك جزيل تقديري وودي وجل احترامي,,,


دمت بحمى الرحمن,,,


وبانتظار قادمك بكل شوووق وولهــ ,,,

تحياتي البرق اليماني