[R] Aide pour mon script a jout au domaine

[FernandG]

Bonsoir,

Je me permets de répondre à ton message, mais surtout de revoir un peu ton code. Ce qui m'a fait réagir c'est surtout de voir les WinWaitClose après des MsgBox, nullement besoin. D'autre part, je me suis permis d'optimiser un peu ton code. Je ne peux le vérifier mais sans aucun bouleversement dans mes modifications, il ne devrait poser problème.

De plus, je te recommande d'intégrer dans ton code le contenu des fichiers batchs : Groupe_admin_SAG.cmd & RADCONNECT.BAT

Ton code modifié et optimisé :

► Afficher le texte

Code : Tout sélectionner

#include <Constants.au3>
Dim $line
$domaine = "TEMP"
$titre = "Ajout au domaine " & $domaine
$user = InputBox($titre, "Nom d'utilisateur :", "", "", "220", "130", -1, -1, "10")
$pass = InputBox($titre, "Votre mot de passe :", "", "*", "220", "130", -1, -1, "10")
$sortie = RunWait(@Comspec & " /c netdom join " & @ComputerName & " /domain:" & $domaine & " /userd:" & $user & " /passwordd:" & $pass, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
While 1
    $line = StdoutRead($sortie)
    If @error Then ExitLoop
    If $line <> "" Then
        If StringInStr($line, "The command completed successfully.") Then
            MsgBox(64, $titre, 'Vous avez joint le domaine "' & $domaine & '".', 3)
            RunWait(@UserProfileDir & "\Administrator\Desktop\Finalisation\Groupe_admin_SAG.cmd", "", @SW_MINIMIZE)
            MsgBox(64, $titre, 'Ajout des groupes "Administrateurs" réussi.', 3)
            MsgBox(64, $titre, $line & " Lancer Radia.")
            RunWait(@WindowsDir & "\RADCONNECT.BAT")
            ProcessWaitClose("RadTray.exe")
            MsgBox(64, "Radia", "Terminé.", 3)
            Exit
        EndIf
    EndIf
WEnd
MsgBox(16, $titre, "Impossible de joindre " & @ComputerName & " au domaine.")
Exit

Conseils :
- Le NetDom est un utilitaire en ligne de commande, il est préférable de l'exécuter à l'aide de @ComSpec.
- Il vaut mieux lancer un programme à l'aide de la commande RunWait qu'un simple Run qui continuera à exécuter ton code. Le RunWait permet d'attendre que le programme lancé se termine pour continuer.
Evite, si tu le peux, le

Code : Tout sélectionner

WinWaitClose("C:\WINDOWS\system32\cmd.exe")

, imagine que tu aies ouvert une fenêtre DOS pour y faire un ping. D'où l'intérêt d'intégrer le contenu de tes fichiers batchs dans le code. Sinon contrôle avec le handle.

J'espère que cela pourra t'aider un peu. Mais sans le contenu des deux fichiers batch à toi de jouer.

Bonne soirée.

P.S. : Pour la ligne

Code : Tout sélectionner

MsgBox(64, $titre, $line & " Lancer Radia.")

Je ne comprends pas l'intérêt de mettre le $ligne.

P.S.2 : Si le compte qui lance le programme est "Administrator" remplace la ligne

Code : Tout sélectionner

RunWait(@UserProfileDir & "\Administrator\Desktop\Finalisation\Groupe_admin_SAG.cmd", "", @SW_MINIMIZE)

par

Code : Tout sélectionner

RunWait(@DesktopDir & "\Finalisation\Groupe_admin_SAG.cmd", "", @SW_MINIMIZE)