paste this on a text file rename it .vbs and run it.
Code: Select all
'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
Get full forum access here! || Follow us || Rules || 1 fee, download them all!
Giin70 Said:"im busier than a 3 legged cat on a frozen pond scratching for a place to poop..."
He also Said:"Maybe we can ship yall off to mamby pamby land to look to self confidence, ya jackwagon."
Then"your about as useless as tits on a boar
And:"headspace and keyboard timing issue on end user end"
Always have a back up plan for your back up plan.
My Pc Specs: My Rig!
Giin70 Said:"im busier than a 3 legged cat on a frozen pond scratching for a place to poop..."
He also Said:"Maybe we can ship yall off to mamby pamby land to look to self confidence, ya jackwagon."
Then"your about as useless as tits on a boar
And:"headspace and keyboard timing issue on end user end"
Always have a back up plan for your back up plan.
My Pc Specs: My Rig!