Discussion :

[d_dalcan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[hackoofr]

Avec ce :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[ProgElecT]

Salut

Ta ligne 4 de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hackoofr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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
'**************************************

[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