Получить текущую температуру процессора

strComputer = "."
 
set wbemServices = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature")
 
For Each wbemObject In wbemObjectSet
          WScript.Echo "InstanceName : " & wbemObject.InstanceName 
        WScript.Echo "CurrentTemperature : " & wbemObject.CurrentTemperature
Next

Const DQ = """", SP = " ", BS = "\", HKCU = &H80000001, HKLM = &H80000002, KQV = &H1, KSV = &H2
Const wbemFlagReturnImmediately = &h10, wbemFlagForwardOnly = &h20
 
Set colOS = GetObject("winmgmts:\root\cimv2").ExecQuery("Select * from Win32_OperatingSystem")
 
For Each oOS In colOS
    strOSLong = oOS.Version
Next
 
If Left(strOSLong, 1) = "6" Then
    If Not isAdminRights Then
        Set oShellApp = CreateObject("Shell.Application")
        oShellApp.ShellExecute WScript.FullName, DQ & WScript.ScriptFullName & DQ, "", "runas", 1
    End If
End If
 
Set objWMIService = GetObject("winmgmts:\\.\root\WMI")
Set colItems = objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
on error resume next
for each objItem in colItems
    WScript.Echo "Температура процессора (в цельсиях): " & (objItem.CurrentTemperature - 2732) / 10
next
WScript.Quit
 
Function isAdminRights()
    Set oReg = GetObject("winmgmts:root\default:StdRegProv")
    strKey = "System\CurrentControlSet\Control\Session Manager"
    intErrNum = oReg.CheckAccess(HKLM, strKey, KQV + KSV, flagAccess)
    isAdminRights = flagAccess
End Function