Using VBScript – WMI – to query cooling fan statistics
The following script displays status information for all (monitorable) cooling fans on a Windows system. This includes power supply fans, cpu fans, case fans, etc. On Error Resume NextSet objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\.\root\cimv2″)Set colItems = objWMIService.ExecQuery(“Select * from Win32_Fan”) For Each objItem in colItems   Wscript.Echo “Name: ” & objItem.Name   Wscript.Echo “Active Cooling: ” & [...]
