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

[D\b7r]

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

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)

[امير صنعاء]

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

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

[البرق اليماني]

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


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


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

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