1) Just copy the code below & save it as .vbs extension(e.g operating.vbs) in notepad .2)Now double-click on this & know your oparting sytem installed date and Time.' © 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 colOperatingSystemsMsgBox "Install Date: " & getmydat (objOperatingSystem.InstallDate)Next Function getmydat(wmitime)dtmInstallDate.Value = wmitimegetmydat = dtmInstallDate.GetVarDateEnd function
' © 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 colOperatingSystemsMsgBox "Install Date: " & getmydat (objOperatingSystem.InstallDate)Next Function getmydat(wmitime)dtmInstallDate.Value = wmitimegetmydat = dtmInstallDate.GetVarDateEnd function
©webcrown - All of the rights reserved.
Template Modified by webtricks | Go to Top
Post a Comment