Ändern Arbeitsgruppe

    • 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
    [autoit]

    ; 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"

    [/autoit]