AutoIt Français

Code : Tout sélectionner

Global $szGPOName, $szDomainName

; Gestion des arguments de la ligne de commande.
If $CmdLine[0] = 1 Then  ; Si un seul argument, on sous entend que c'est la GPO.
    $szGPOName = $CmdLine[1] ; On stock la GPO dans $szGPOName
    $szDomainName = @LogonDomain ; On prend le nom de domaine en cours
ElseIf $CmdLine[0] = 2 Then  ; Si deux arguments, alors on test s'il y à bien l'argument Domain.
    $szGPOName = $CmdLine[1] ; On stock la GPO dans $szGPOName
    If StringInStr($CmdLine[2], "/Domain:") Then ; On vérifie qu'il y a l'argument /Domain: dans le deuxième paramètre
        $szDomainName = StringTrimLeft($CmdLine[2], 8)  ; on supprime les 8 caractère de gauche (/Domain:) et
                                                        ; on stock le reste dans $szDomainName
    Else
        _CommandLineArguments() ; Sinon on affiche la syntaxe de la ligne de commande et on sort
        Exit(0)
    EndIf
Else
    _CommandLineArguments() ; Si pas d'argument, on affiche la syntaxe de la ligne de commande et on sort
    Exit(0)
EndIf

Global $GPM = ObjCreate("GPMgmt.GPM")
Global $Constants = $GPM.GetConstants()
Global $GPMDomain = $GPM.GetDomain($szDomainName, "", $Constants.UseAnyDC)
Global $GPMGPO = $GPMDomain.CreateGPO()

If @error Then
    MsgBox(16, "Erreur", "Erreur N°" & @error & "lors de la création de la GPO")
    ; ConsoleWrite("Erreur N°" & @error) ; à utiliser au lieu de la MsgBox pour un script auto
    Exit(@error)
EndIf

$GPMGPO.DisplayName = $szGPOName
If @error Then
    $GPMGPO.Delete()
    MsgBox(16, "Erreur", "Erreur N°" & @error & "lors de la création de la GPO")
    ; ConsoleWrite("Erreur N°" & @error) ; à utiliser au lieu de la MsgBox pour un script auto
    Exit(@error)
EndIf

MsgBox(32, "Création de GPO", "La GPO " & $szGPOName & " a été crée.")
; ConsoleWrite("GPO " & $szGPOName & " crée.") ; à utiliser au lieu de la MsgBox pour un script auto
Exit(1)


; Boite de message pour afficher la syntaxe de la ligne de commande
Func _CommandLineArguments()
    MsgBox(16, "Erreur", "Utilisation de la ligne de commande :" & @CRLF & @CRLF & _
    "NomDeLaGPO" & @TAB & "Le nom de la GPO à créer (paramètre obligatoire)" & @CRLF & _
    "Domain" & @TAB & @TAB & "Nom DNS du domaine (Paramètre optionnel)" & @CRLF & @CRLF & _
    "Exemple :" & @CRLF & _
    @ScriptName & "NomDeLaGPO /Domain:Testdomain.mycompany.com")
EndFunc