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 ? Next