On Error * >lcComputer = "." >loWMIService = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2") >colItems = loWMIService.ExecQuery("Select * from Win32_Fan") >For Each loItem in colItems >?"Active Cooling: " + loItem.ActiveCooling >?"Availability: " + loItem.Availability >?"Device ID: " + loItem.DeviceID >?"Name: " + loItem.Name >?"Status Information: " + loItem.StatusInfo >? >NextI only get as far as the name - and I don't see any serial number in your code