C'est encore moiiiii

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
	Dim WS,MyCmd,Resultat
	Set WS = CreateObject("WScript.shell")
	Function Executer(StrCmd,Console)    
'La valeur 0 pour cacher la console MS-DOS
    If Console = 0 Then 
	MyCmd = "CMD /C " & StrCmd & " "
        Resultat = WS.run(MyCmd,Console,True)
        If Resultat = 0 Then
            'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
'La valeur 1 pour montrer la console MS-DOS
    If Console = 1 Then
	MyCmd = "CMD /K " & StrCmd & " "	
        Resultat = WS.run(MyCmd,Console,False)
        If Resultat = 0 Then
            'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
    Executer = Resultat
End Function

Avec cette commande, comment je peux faire pour l'executer en tant qu'admin ??
J'ai vu runas /user:Administrateur mais je ne sais pas ou je dois la mettre exactement et si la syntaxe est bonne

Merci d'avance