[R] Ajout droit admin

[Serge63]

après cette ligne :

$user = InputBox('Utilisateur', "Login ex:Domain\*****", "domain\")

teste si $user a été renseigné

si oui, tu fais ton traitement
si non, tu ne fais rien

par exemple :

► Afficher le texte

Code : Tout sélectionner

;Popup User
$user = InputBox('Utilisateur', "Login ex:Domain\*****", "domain\")

[b][color=#FF0000]If $user <> "" Then[/color][/b]
    ProgressOn("LocalGroup_Admin_Install", "Progression", "0 %")
    For $i = 0 To 100 Step 100
        Sleep(500)
        ProgressSet($i, $i & " %")


        $sFilePath1 = "\\server1\dossier1\dossier2\Droit_admin\admin.xls"
        Local $oExcel = _ExcelBookOpen($sFilePath1, 0)

        ; Recherche
        Local $search_keyword = @ComputerName & "\" & $user
        Local $search_cell = $oExcel.Columns("A" ).Find($search_keyword)


        If (IsObj($search_cell) = 1) Then ; Si la recherche à abouti
            MsgBox(0, "Find success", "La recherche de " & Chr(34) & $search_keyword & Chr(34) & " dans le fichier de derogation est ok")
            RunAsWait("administrator", @ComputerName, "123456", 0, @ComSpec & ' /c net localgroup Administrators /add ' & $user, @SystemDir, @SW_HIDE)
        Else
            Exit
        EndIf

    Next
    ProgressSet(100, "Fini", "Complet")
    Sleep(500)
    ProgressOff()


    FileClose($sFilePath1)
[b][color=#FF0000]EndIf[/color][/b]

[africanism]

Merci a toi ca fonctionne