Executer fenetre DOS en Admin avec Runas

Version imprimable

C'est encore moiiiii

Code:

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

18/06/2015, 16h38
goro_830

ou runas /noprofile /user:Administrateur mot de passe: *******

Mais tjs la meme problematique, je le place a quelle ligne exactement ?

Code:

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 = "runas /profile /user:Administrateur 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 = "runas /profile /user:Administrateur 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

Ca vous parait bon ?

25/06/2015, 15h34
goro_830

Alors je m'aide moi même lol

Essaie :

Code:

MyCmd = "CMD /C " & StrCmd & " runas /user:domaine\nomducompte "

Ca vous parait bien ?