- Offizieller Beitrag
Für eine automatisierte Änderung der Arbeitsgruppe läßt sich die "NetDom.exe" ( per Batch: call netdom.exe member /joinworkgroup ARBEITSGRUPPE ) verwenden. Da man die aber nicht standardmäßig an Bord hat, hier eine Lösung über die Systemeinstellungen mittels "Send" und "Controlclick". Einen direkteren Weg konnte ich nicht finden.
Also falls es mal jemand braucht.
Spoiler anzeigen
; 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"