We currently have close to 5,000 Windows PCs that vary from brand new to around 8 years old. They are a mixture to various brands, most being Dell, HP and Gateway. The majority came from a PC refurnisher so there is no inventory from invoice data.Our department has been asked to sort the machines by age so that the oldest machines can be replaced first. The K1000 lists BIOS age in the description on some machines, but not on most. Any suggestions on how to cull system ages using the K1000?
0 Comments   [ - ] Hide Comments


Please log in to comment

Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.
Answer this question or Comment on this question for clarity


You can run this as a script on the PC's then do a custom inventory :)

strComputer = "."
dim ReleaseDate
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colBIOS = objWMIService.ExecQuery _
("Select * from Win32_BIOS")
For each objBIOS in colBIOS
' Wscript.Echo "Release Date: " & objBIOS.ReleaseDate
ReleaseDate = objBIOS.ReleaseDate

FullDate = Left(ReleaseDate, 8)
RelYear = Left(FullDate, 4)
MonthDay = Right(FullDate, 4)
RelMonth = Left(MonthDay, 2)
RelDay = Right(FullDate, 2)

'To test the Year/Month/Date
'wscript.echo FullDate
'wscript.echo RelYear
'wscript.echo RelMonth
'wscript.echo RelDay

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_
strComputer & "\root\default:StdRegProv")

'Write it into a registry key so you can make a custom inventory
Return = objReg.SetStringValue(HKEY_LOCAL_MACHINE,"SOFTWARE\KACE","BIOSReleaseDate",RelYear & "-" & RelMonth & "-" & RelDay )
Answered 01/23/2012 by: rmeyer
Second Degree Blue Belt

  • How exactly did you write the custom inventory for this script?
Please log in to comment
Thank you so much René. We'll give that a go and will report back the results after it has been tested and deployed.

Answered 01/24/2012 by: jvincent
Orange Belt

Please log in to comment
I'd be interested in how that works for you, please let us know.
Answered 01/24/2012 by: ms01ak
Tenth Degree Black Belt

Please log in to comment