Gewünschte Funktion wird nicht ausgeführt

Ich fange gerade an, mich mit GUIs zu befassen und habe testweise ein einfaches Script gebastelt, um den internen PC-Laustprecher aus- und einzuschalten.
Bevor die Frage aufkommt, wieso ausgerechnet das und übr die Registry: ich muss später Registrywerte über ein GUI ändern können, was ich hiermit nun einfach mal versuche.
Leider wird beim Klick auf eine der beiden Schaltflächen die eine Funktion nicht ausgeführt, während die andere fehlerfrei ihre Arbeit verrichtet, und ich komme leider nicht dahinter, wieso das so ist.

Vielleicht kann mir jemand von Euch 'nen Tip geben.
Das Script wir folgt:

Local $UserName = "sa_testuser"
Local $Password = "password"
Local $ScriptOn = RegWrite("HKEY_CURRENT_USER\Control Panel\Sound","Beep","REG_SZ","yes")
Local $ScriptOff= RegWrite("HKEY_CURRENT_USER\Control Panel\Sound","Beep","REG_SZ","no")
Local $workingdir = "\\myserver\Public"

$beepcheck = RegRead("HKEY_CURRENT_USER\Control Panel\Sound\", "Beep")

GUICreate("PC-Lautsprecher umschalten", 350, 100)
GuiCtrlCreatePic("Speaker.Gif",0,0, 32,33)
GUICtrlCreateLabel("Was möchten Sie mit dem internen PC-Lautsprecher tun ?", 10, 35)
$aktivieren = GUICtrlCreateButton("Einschalten", 10, 60, 80)
$deaktivieren = GUICtrlCreateButton("Ausschalten", 110, 60, 80)
GUISetState(@SW_SHOW)

While 2
$msg = GUIGetMsg()

Select
Case $msg = $aktivieren
RunAs($UserName, "mydomain",$Password, 0, $ScriptOn, $workingdir)
If $beepcheck = "yes" Then
MsgBox(0,"Lautsprecheraktivierung erfolgreich","Der interne Lautsprecher wurde nun eingeschaltet.")
Else
MsgBox(0,"Fehler ! Der Lautsprecher ist immer noch aus.","Das Einschalten des Lautsprechers war nicht erfolgreich. Bitte wenden Sie sich an den Support.")
EndIf
ExitLoop
Case $msg = $deaktivieren
RunAs($UserName, "mydomain",$Password, 0, $ScriptOff, $workingdir)
If $beepcheck = "no" Then
MsgBox(0,"Lautsprecherdeaktivierung erfolgreich","Der interne Lautsprecher wurde nun abgeschaltet.")
Else
MsgBox(0,"Fehler ! Der Lautsprecher ist immer noch an.","Das Abschalten des Lautsprechers war nicht erfolgreich. Bitte wenden Sie sich an den Support.")
EndIf
ExitLoop
EndSelect
WEnd

Exit

Klickt man nun auf "Einschalten", erhält man nur die Meldung, dass der Lautsprecher immer noch aus ist und die Umstellung nicht erfolgreich war, während der Klick auf "Abschalten" erfolgreich ist.
Wieso ?

Hi,

Du liest $beepcheck nur vor der Schleife aus.

Innerhalb der Schleife überprüfst Du den Wert von $beepcheck vor der Schleife.

Du musst nach dem Setzen des Regkeys diesen zum auswerten auch wieder neu auslesen. Ebbenfalls solltest Du innerhalb Deiner Schleife ein sleep (50) setzen.

;-))

Stefan

Hi Stefan und danke für Deine schnelle Antwort !

Genau, ich lese den Regkey vor der Schleife aus und schreibe den Inhalt in die Variable "$beepcheck".
Innerhalb der Schleife überprüfe ich nach dem Ändern des Schlüssels den Wert, indem ich prüfe ob sich der Status von $beepcheck und somit der Wert des Registryschlüssels geändert hat.
Was muss ich in diesem Fall ändern ? Für die zweite Schaltfläche ("abschalten") funktioniert diese Vorgehensweise ja.

Hi,

in der while Schleife ersetze $beepcheck durch RegRead("HKEY_CURRENT_USER\Control Panel\Sound\", "Beep")

Anfang Skript: Mit $beepcheck = RegRead ("HKEY_CURRENT_USER\Control Panel\Sound\","Beep") weist Du dieser Variablen den Wert zu, der zu diesem Zeitpunkt dort steht ( z.Bsp. "no"). Wird bei Dir der Fall sein.

Da Du innerhalb der Schleife die Variable $beepcheck aber nicht neu zuweist, hat $beepcheck innerhalb der Schleife immer den Wert "no".

;-))

Stefan

Ein großes Danke in die Runde !

Dann hatte ich offenbar einen Denkfehler bezüglich $beepcheck. Aber nun wird's mir langsam klar - denke ich.

"RunAs" habe ich mit reingenommen, weil die User hier keine Änderungen in der Registry vornehmen dürfen.
Um Fehler auszuschließen, führe ich diese Änderung unter dem Kontext des Service-Accouts aus.

Ich werde aber auch mal die Variante ohne versuchen.

Jedenfalls schonmal danke für die Tips !

*** EDIT ***

Habe nach dem Ausführen des ursprünglichen Scripts einen Blick in die Registry geworfen. Der Eintrag für "Beep" wird nicht geändert. Daher gibt $Beepcheck im Grunde auch den richtigen Wert - hier also "no" - aus.
Trotz "RegWrite("HKEY_CURRENT_USER\Control Panel\Sound","Beep","REG_SZ","yes")" bleibt der Eintrag auf "no". Offensichtlich wird also dieser Befehl nicht sauber ausgeführt, während "RegWrite("HKEY_CURRENT_USER\Control Panel\Sound","Beep","REG_SZ","no")" funktioniert, was ich daran sehe, dass nach der manuellen Änderung in der Registry zu "yes" der Wert nach dem Klicken des Buttons "Abschalten" auf "no" steht.