Comment passer l'argument SW_HIDE avec Runas

Version imprimable

Bonjour,

Je dois créer un script avec un runas en masquant les fenêtres Dos lancées dans le script.
La ligne en commentaire fonctionne correctement mais avec le runas je n'arrive pas à passer l'argument "SW_HIDE,true"
Voici le script :
Code:

1 2 3 4 5 6 7 8 9 ' WshShell.Run "C:\Down\XP\Install_TV_Cmd_Line.bat", SW_HIDE,true Set WshShell = WScript.CreateObject("WScript.Shell") strcmd="""C:\Down\XP\Install_TV_Cmd_Line.bat""" pass = "xxxx" User = "xxxx\administrateur" Wshshell.run "runas.exe" & " /U:" & user & " " & strcmd wscript.sleep(1000) Wshshell.sendkeys pass & "{ENTER}"
Quelqu'un peut-il m'aider ?

En vous remerciant d'avance de votre aide.

10/04/2018, 15h53
hackoofr

:salut:
Avec ce :

Code:

WshShell.Run "C:\Down\XP\Install_TV_Cmd_Line.bat",0,true

:roll:
10/04/2018, 16h49
d_dalcan

Merci de bien vouloir m'aider Hachoofr,

Oui ça je sais, c'est comme ma ligne commentée qui fonctionne, mais comment l'intégrer au script ?

Merci d'avance
10/04/2018, 17h15
ProgElecT

Salut

Ta ligne 4 de ton code

Code:

strcmd="""C:\Down\XP\Install_TV_Cmd_Line.bat""" & ",0,true"

RunAs

:salut:
Voici une commande "NET SESSION" qui requiert un privilége d'administrateur
Si on execute cet example sans les droits admin on obtient une erreur Accés refusé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Const SW_HIDE = 0
Dim ws,Command,LogFile,return
LogFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) & "txt"
set ws = createobject("wscript.shell")
Command = "cmd /c NET SESSION > "& LogFile &" 2>&1"
msgbox Command
return = ws.run(command,SW_HIDE,True)
ws.run DblQuote(LogFile)
'**************************************
Function DblQuote(Str)
    DblQuote = chr(34) & Str & chr(34)
End function
'**************************************

Par contre si on l'exécute comme ceci avec les droits admin :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
'Run as Admin
If Not WScript.Arguments.Named.Exists("elevate") Then
   CreateObject("Shell.Application").ShellExecute DblQuote(WScript.FullName) _
   , DblQuote(WScript.ScriptFullName) & " /elevate", "", "runas", 1
    WScript.Quit
End If
Const SW_HIDE = 0
Dim ws,Command,LogFile,return
LogFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) & "txt"
set ws = createobject("wscript.shell")
Command = "cmd /c NET SESSION > "& LogFile &" 2>&1"
msgbox Command
return = ws.run(command,SW_HIDE,True)
ws.run DblQuote(LogFile)
'**************************************
Function DblQuote(Str)
    DblQuote = chr(34) & Str & chr(34)
End function
'**************************************

13/04/2018, 16h16
d_dalcan

OK et merci à tous les deux.

Impossible de lancer le script en masquant les fenêtres et en mode administrateur en même temps, j'ai beau tout essayer, c'est toujours l'un ou l'autre.
Tant pis, je n'en prendrai qu'un sur deux.
Merci quand même à vous

d_dalcan