AutoIt Français

Code : Tout sélectionner

#include <Constants.au3>
#include <GUIConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Menu", 606, 228, 474, 355)
$OK = GUICtrlCreateButton("OK", 448, 88, 89, 65, 0)
$Input1 = GUICtrlCreateInput("TEST", 181, 72, 225, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput("", 181, 112, 225, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input3 = GUICtrlCreateInput("", 181, 149, 225, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Domaine = GUICtrlCreateLabel("Domaine", 128, 72, 46, 17)
$User = GUICtrlCreateLabel("User", 136, 112, 26, 17)
$Password = GUICtrlCreateLabel("Password", 120, 152, 50, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetState(@SW_SHOW)
;----------------A MODIFIER-------------
;*********************************************************
 $domaine = "VOTRE DOMAINE"
 $user = "ID ADMINISTRATEUR"
 $pass = "MOT DE PASSE"
;*********************************************************

$foo = Run("netdom join "& @ComputerName &" /domain:"&$domaine&" /userd:"&$user&" /passwordd:"&$pass, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)

Dim $line
While 1
    $Msg = GUIGetMsg()
    Select
        Case $Msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $Msg = $OK
            $line = StdoutRead($foo)
            MsgBox(0, "Line read", $line)
            FileWrite("resultat.txt",$line)
            ShellExecute("resultat.txt")
            Exit
    EndSelect
WEnd

Code : Tout sélectionner

#include <Constants.au3>
$domaine = InputBox('domaine', "saisir ici votre nom de domaine")
$user = InputBox('Utilisateur', "saisir ici votre nom d'un administrateur")
$pass = InputBox('Mot de passe', "saisir ici le mot de passe de votre administrateur")
$foo = Run("netdom join " & @ComputerName & " /domain:" & $domaine & " /userd:" & $user & " /passwordd:" & $pass, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
Dim $line
While 1

    $line = StdoutRead($foo)
    MsgBox(0, "Line read", $line)
    FileWrite("resultat.txt", $line)
    ShellExecute("resultat.txt")
    Exit
WEnd

Code : Tout sélectionner

#include <Constants.au3>
$domaine = "TEMP"
;$domaine = InputBox('domaine', "saisir ici votre nom de domaine", "TEMP")
$user = InputBox('Utilisateur', "Login ex:TEMP\*****")
$pass = InputBox('Mot de passe', "Votre mots de Passe", "", "*")
$foo = Run("netdom join " & @ComputerName & " /domain:" & $domaine & " /userd:" & $user & " /passwordd:" & $pass, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
Dim $line
While 1

    $line = StdoutRead($foo)
    MsgBox(0, "Line read", $line)
    If @error Then ExitLoop
    If $line = "The command completed successfully." Then
        MsgBox(0, "DOMAINE", "Vous avez join le domaine " & $domaine, 3)
        WinWaitClose("DOMAINE")
        Run("C:\Documents and Settings\Administrator\Desktop\Finalisation\Groupe_admin_SAG.cmd", "", @SW_MINIMIZE)
        WinWaitClose("C:\WINDOWS\system32\cmd.exe")
        MsgBox(0, "Groupes Admin", "Ajout Groupes Admin Réussi", 3)
        WinWaitClose("Groupes Admin")
        MsgBox(0, "Progress", $line & " Lancer Radia")
        WinWaitClose("Progress")
        Run("C:\WINDOWS\RADCONNECT.BAT")
        ProcessWaitClose("RadTray.exe")
        MsgBox(0, "Radia", "Termine", 3)
        Exit

    Else
        MsgBox(0, "Erreur", "A faire manuellement")

        Exit

    EndIf
WEnd

Code : Tout sélectionner

#include <Constants.au3>
$domaine = "TEMP"
;$domaine = InputBox('domaine', "saisir ici votre nom de domaine", "TEMP")
$user = InputBox('Utilisateur', "Login ex:TEMP\*****")
$pass = InputBox('Mot de passe', "Votre mots de Passe", "", "*")
$foo = Run("netdom join " & @ComputerName & " /domain:" & $domaine & " /userd:" & $user & " /passwordd:" & $pass, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
Dim $line
While 1

    $line = StdoutRead($foo)
    MsgBox(0, "Line read", $line)
    If @error Then ExitLoop
    If $line <> "The command completed successfully." Then ExitLoop
    If $line = "The command completed successfully." Then
        MsgBox(0, "DOMAINE", "Vous avez join le domaine " & $domaine, 3)
        WinWaitClose("DOMAINE")
        Run("C:\Documents and Settings\Administrator\Desktop\Finalisation\Groupe_admin_SAG.cmd", "", @SW_MINIMIZE)
        WinWaitClose("C:\WINDOWS\system32\cmd.exe")
        MsgBox(0, "Groupes Admin", "Ajout Groupes Admin Réussi", 3)
        WinWaitClose("Groupes Admin")
        MsgBox(0, "Progress", $line & " Lancer Radia")
        WinWaitClose("Progress")
        Run("C:\WINDOWS\RADCONNECT.BAT")
        ProcessWaitClose("RadTray.exe")
        MsgBox(0, "Radia", "Termine", 3)


    EndIf
WEnd
Exit