تعرف علي تاريخ تنزيلك للويندوز المثبت علي جهازك
بالطريقة هذه ستعرف متى قمت نزلت الويندوز على الجهاز باليوم والساعة والدقيقة
1- أنشئ ملف من نوع txt وسميه أي إسم تريده
2- إنسخ الكود وإلصقة في المستند ليصبح هكذا
الكود:
*****************************************
' © 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
************************************************** *****
3- غير إمتداد الملف إلى vbs ليصبح كهذا
4- إنقرعلى الملف نقرا مزدوجاً لتظهر البيانات
بالطريقة هذه ستعرف متى قمت نزلت الويندوز على الجهاز باليوم والساعة والدقيقة
1- أنشئ ملف من نوع txt وسميه أي إسم تريده
2- إنسخ الكود وإلصقة في المستند ليصبح هكذا
الكود:
*****************************************
' © 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
************************************************** *****
3- غير إمتداد الملف إلى vbs ليصبح كهذا
4- إنقرعلى الملف نقرا مزدوجاً لتظهر البيانات
اعلان
