; Arbeitsgruppennamen ändern
$NeueArbeitsgruppe = "MSHEIMNETZ" ; festlegen oder per Inputbox während des Ausführens ändern
;~ $NeueArbeitsgruppe = StringUpper(InputBox("Arbeitsgruppe", "Bitte neue Arbeitsgruppe eintragen: ", "MSHEIMNETZ"))
Send("{LWINDOWN}{PAUSE}{LWINUP}")
WinWaitActive("Systemeigenschaften")
Send("{RIGHT}")
Send("!n")
WinWaitActive("Computernamen ändern")
ControlFocus("Computernamen ändern", "", "Edit4")
Send("{SHIFTDOWN}{END}{SHIFTUP}")
If ControlGetText("Computernamen ändern", "", "Edit4") = $NeueArbeitsgruppe Then
	MsgBox(0, '', "Arbeitsgruppe ist bereits: " & $NeueArbeitsgruppe & ".")
	ControlClick("Computernamen ändern", "", "Button7")
	ControlClick("Systemeigenschaften", "", "Button4")
	Exit
EndIf
Send($NeueArbeitsgruppe)
ControlClick("Computernamen ändern", "", "Button6")
While 1
	If StringInStr(WinGetText("Computernamen ändern"), "Willkommen in der Arbeitsgruppe " & $NeueArbeitsgruppe) Then 
		ExitLoop
	Else
		Sleep(100)
	EndIf
WEnd
Send("{ENTER}") 
While 1
	If StringInStr(WinGetText("Computernamen ändern"), "Die Änderungen werden erst wirksam, wenn Sie den Computer neu starten.") Then 
		ExitLoop
	Else
		Sleep(100)
	EndIf
WEnd
Send("{ENTER}")
ControlClick("Systemeigenschaften", "", "Button3") ; Systemeigenschaften schließen
ControlClick("Geänderte Systemeinstellungen", "", "Button1") ; Ja (Neustart) = "Button1", Nein ist "Button2"