Probleme mit GUI und Checkbox

[autoit]

#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

$var1 = _StringReverse(@ComputerName)

[/autoit] [autoit][/autoit] [autoit]

If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(35, "Was macht diese Datei ???", "Passwörter für Admin und Service - Benutzer werden gesetzt." & @CRLF & @CRLF & "Die bekannten Domänen-Gruppen werden den lokalen Administratoren hinzugefügt", 30)
Select
Case $iMsgBoxAnswer = -1 ;Timeout

case 2 ; Cancel

[/autoit] [autoit][/autoit] [autoit]

Case 6 ; YES
_a()
case 7 ; No
_b()
EndSelect

[/autoit] [autoit][/autoit] [autoit]

Func _a()
Run("net user user1 " & StringLower($var1) & "h", "C:\", @SW_HIDE)
Global $z = StringRight(@ComputerName, 4)
ConsoleWrite(addDigits($z) & @CRLF)
Run("net user user" & addDigits($z), "C:\", @SW_HIDE)
Run("net localgroup Administratoren Domänengruppe /add", "C:\", @SW_HIDE)
Run("net localgroup Administratoren Domänengruppe /add", "C:\", @SW_HIDE)
Run("net localgroup Administratoren Domänengruppe /add", "C:\", @SW_HIDE)
Run("net localgroup Administratoren Domänengruppe /add", "C:\", @SW_HIDE)
Run("control userpasswords2", "", @SW_HIDE)
EndFunc ;==>_a

[/autoit] [autoit][/autoit] [autoit]

Func addDigits($zahl)
Local $zahlen_A = StringSplit($zahl, "")
Local $x = 0
For $i = 1 To UBound($zahlen_A) - 1
$x += $zahlen_A[$i]
Next
Return $x
EndFunc ;==>addDigits

[/autoit] [autoit][/autoit] [autoit]

Func _b()
Run("xacls d: /t /c /G Administratoren:F System:F /Y", "C:\", @SW_HIDE)
Run("xacls c:\Ordner1 /t /c /G Administratoren:F System:F /Y", "C:\", @SW_HIDE)
Run("xacls c:\Ordner2 /t /c /G Jeder:F /Y", "C:\", @SW_HIDE)
EndFunc ;==>_b

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit]