Akku bzw Energiesymbol in der Taskleiste am Desktop-PC

#NoTrayIcon
#include <Constants.au3>
#include <TrayConstants.au3>
#include <Array.au3>
global $energy_profiles[1][2]
Opt("TrayMenuMode",3)  
Opt("TrayOnEventMode",1)  
TraySetIcon("powercpl.dll",-1)  
TraySetState(1)
$exititem = TrayCreateItem("E&xit")  
$energyoptions = TrayCreateItem("Energieoptionen anzeigen ...")  
TrayCreateItem("")  
TrayItemSetOnEvent($exititem,exitapp)
TrayItemSetOnEvent($energyoptions,start_energy_options)
enumprofiles()
While 1
	Sleep(500)
Wend

Func exitapp()
	exit
EndFunc

Func start_energy_options()
	Run("RunDll32.exe Shell32.dll,Control_RunDLL powercfg.cpl")  
EndFunc

Func enumprofiles()
	$pid = Run(@ComSpec & " /c powercfg.exe /list",@ScriptDir,@SW_HIDE,$STDOUT_CHILD)  
	ProcessWaitClose($pid)
	$stdout = StdoutRead($pid)
	$profiles = StringRegExp($stdout,":\s+([a-f\d-]+)\s+\(([^\)]+)\)",4)  
	Redim $energy_profiles[UBound($profiles)][2]
	for $i = 0 to UBound($profiles) -1
		$el = $profiles[$i]
		$itmid = TrayCreateItem("Profil: (" & OEM_to_ANSI($el[2]) & ")")  
		$energy_profiles[$i] = $itmid
		$energy_profiles[$i][1] = $el[1]
		TrayItemSetOnEvent($itmid,energyprofile_clicked)
	Next
	GetActiveEnergyScheme()
EndFunc

Func energyprofile_clicked()
	$guid = _ArraySearch($energy_profiles,@TRAY_ID)
	Run(@ComSpec & " /c powercfg.exe -setactive " & $energy_profiles[$guid][1],@ScriptDir,@SW_HIDE)  
	GetActiveEnergyScheme()
EndFunc


Func GetActiveEnergyScheme()
	$pid = Run(@ComSpec & " /c powercfg.exe /getactivescheme",@ScriptDir,@SW_HIDE,$STDOUT_CHILD)  
	ProcessWaitClose($pid)
	$stdout = StdoutRead($pid)
	$profile = StringRegExp($stdout,":\s+([a-f\d-]+)",3)  
	for $i = 0 to UBound($energy_profiles) - 1
		if $energy_profiles[$i][1] = $profile then
			TrayItemSetState($energy_profiles[$i],1)
		else
			TrayItemSetState($energy_profiles[$i],4)
		Endif
	Next
EndFunc

Func OEM_to_ANSI($text)
    $text = DllCall('user32.dll','Int','OemToChar','str',$text,'str','')  
    Return $text[2]
EndFunc