'VBScript to look for age of a machine Computer = "." Set objWMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2") Set Bios = objWMIService.ExecQuery ("Select * from Win32_BIOS") For Each objBIOS in BIOS BiosDate = CDate(Mid(objBIOS.ReleaseDate,1,4)+"/" + Mid(objBIOS.ReleaseDate,5,2)+"/"+Mid(objBIOS.ReleaseDate,7,2)) Next MAge = DateDiff("m",BiosDate,Date) ' number of months if MAge>12 then YAge = CInt(MAge/12) ' Age by years MAge = MAge-12*CInt(YAge) ' And months CAge = CStr(YAge) + " Years" + CStr(MAge) + " Months" ElseIf MAge=12 then CAge = "1 Years" else CAge = CStr(MAge) + " Months" End If WScript.Echo "This computer is " + CAge + " old"