To All Our Members this is a script I have wrote out for you to anyone intrested in seing
1/ Orignial Install Date
2/ Time of Install Date
3/ Days passed since that Install date
This can be useful or just intresting to see how long you have had your o/s for
here is the code;
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objOS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each strOS in objOS
dtmInstallDate = strOS.InstallDate
strReturn = WMIDateStringToDate(dtmInstallDate)
Wscript.Echo strReturn
Next
sAgeInDays = DateDiff("d", strReturn, Now)
WScript.Echo "That was " & sAgeInDays & " days ago."
Function WMIDateStringToDate(dtmInstallDate)
WMIDateStringToDate = CDate(Mid(dtmInstallDate, 5, 2) & "/" & _
Mid(dtmInstallDate, 7, 2) & "/" & Left(dtmInstallDate, 4) _
& " " & Mid (dtmInstallDate, 9, 2) & ":" & _
Mid(dtmInstallDate, 11, 2) & ":" & Mid(dtmInstallDate, _
13, 2))
End Function
copy and paste this code into notepad.exe and save the file as install date and time.vbs
the .vbs is the most inportant bit it must be at the end enjoy people and let us know what you think
or
Download Here: install_date_and_time.rar