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 >? >NextWow, I impressed but I think so he is just still waiting for fan serial yet... :)