Hogy tudom leolvasni autoittal a processzor és a ram terheltségét?

Köszi, de már megkaptam a választ, csak a korábbi haszontalan írásaitokkal együtt azt is törölték véletlenül, de elmentettem így megvan:

Func _Processor_Usage()

Local $s_Text = ''

Dim $Obj_WMIService = ObjGet('winmgmts:\\' & @ComputerName & '\root\cimv2');

If (IsObj($Obj_WMIService)) And (Not @error) Then

Dim $Col_Items = $Obj_WMIService.ExecQuery('SELECT * FROM Win32_PerfFormattedData_PerfOS_Processor')

Local $Obj_Item

For $Obj_Item In $Col_Items

Local $s_Text = $Obj_Item.PercentProcessorTime & '%'

Next

Return String($s_Text)

Else

Return 0

EndIf

EndFunc