cputemp.vbs------------------------------ Set fs = CreateObject("Scripting.FileSystemObject") Set outFile = fs.CreateTextFile("CPUtemp.txt", True) Set wbemServices = GetObject("winmgmts:" & "\\localhost\root\wmi") Set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature") For each Item in wbemObjectSet outFile.WriteLine "CPU Temperature: " & (Item.CurrentTemperature - 2732) / 10 & "°C" Next outFile.Close cputemp.vbs------------------------------