[R] Rendre execution invisible

[jcaspar]

B onjour à tous !

Je souhaiterais que l'exécution du code ci dessous soit invisible pour l'utilisateur
pouvez vous svp m'indiquer s'il est possible de lancer la console cmd de manière invisible ?

Merci d'avance pour vos idées et conseils
JeanMarc

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#Include <Misc.au3>
global $titre="cmd.exe (en tant qu'utilisateur"
global $machine=@computername
global $titre1="\administrateur)"

;~ if _Singleton("test",1) = 0 Then
;~     Msgbox(0,"Attention","Une occurence du script est en cours de fonctionnement")
;~     Exit
;~ EndIf

Run(@ComSpec & " /k  runas /user:administrateur cmd.exe","")
   sleep(100)
   send("xxxxx")
   send("{ENTER}")
   sleep(100)
WinActivate($titre &$machine & $titre1 ,"")
sleep(200)
send("cd \")
send("{ENTER}")
sleep(100)
send("cd "&@tempdir)
send("{ENTER}")
sleep(200)
send("acrobat.exe")
send("{ENTER}")
WinActivate($titre &$machine & $titre1 ,"")
send("exit")
send("{ENTER}")
WinActivate("C:\WINDOWS\system32\cmd.exe","")
send("exit")
send("{ENTER}")

[Dididj]

Bonjour,

en remplacent la ligne

Code : Tout sélectionner

Run(@ComSpec & " /k  runas /user:administrateur cmd.exe","")

par

Code : Tout sélectionner

Run(@ComSpec & " /k  runas /user:administrateur cmd.exe","",@SW_HIDE)

le cmd est lancer et aucune fenêtre ne s'affiche par contre je crois qu'il faut remplacer la commance "Send" par "ControlSend".

[jcaspar]

M erci de votre réponse !

j'ai bien testé cette possibilité...mais elle provoque une réaction anormale
cmd s'ouvre une multitude de fois ..etc ... le fichier executable se grise et devient
inacessible.....un fichier ea se rajoute .....

Peut être avez vous déjà rencontré ce problème ?
Jean Marc

[Dididj]

Je n'ai eu aucune problème ,je vais essayé de trouver une autre fonction.
Un fichier ea c'est quoi ?

J'edit si je trouve.

Édit :

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#Include <Misc.au3>
global $titre="cmd.exe (en tant qu'utilisateur"
global $machine=@computername
global $titre1="\administrateur)"

;~ if _Singleton("test",1) = 0 Then
;~     Msgbox(0,"Attention","Une occurence du script est en cours de fonctionnement")
;~     Exit
;~ EndIf

ShellExecute(@ComSpec ,"","","",@SW_HIDE)
   sleep(1000)
   controlsend("C:\Windows\system32\cmd.exe","","","xxxxx")
   controlsend("C:\Windows\system32\cmd.exe","","","{ENTER}")
   sleep(100)
Sleep(3000)
sleep(200)
   controlsend("C:\Windows\system32\cmd.exe","","","cd \")
   controlsend("C:\Windows\system32\cmd.exe","","","{ENTER}")
sleep(100)
   controlsend("C:\Windows\system32\cmd.exe","","","cd "&@tempdir)
   controlsend("C:\Windows\system32\cmd.exe","","","{ENTER}")
sleep(200)
   controlsend("C:\Windows\system32\cmd.exe","","","acrobat.exe")
   controlsend("C:\Windows\system32\cmd.exe","","","{ENTER}")
Sleep(3000)
   controlsend("C:\Windows\system32\cmd.exe","","","exit")
   controlsend("C:\Windows\system32\cmd.exe","","","{ENTER}")
WinActivate("C:\WINDOWS\system32\cmd.exe","")
   controlsend("C:\Windows\system32\cmd.exe","","","exit")
   controlsend("C:\Windows\system32\cmd.exe","","","{ENTER}")

Voila chez moi ça fonctionne parfaitement.

[jcaspar]

Merci de votre réponse !

Le script fonctionne mais il ne fait rien car lorsque l'on desactive la fonction hide on s'appercoit que seul la console
s'ouvre mais rien ne s'écrit ..donc aucune action n'est effectuée

Il semberait que la command controlsend ne fonctionne pas avec la console...

cf la documentation :ControlSend is only unreliable for command prompts ... diablerie que cela !

Continuons de chercher nous allons bien finir par trouver une solution ...

[Dididj]

Vu que je ne connais pas d'autre commande pour simuler une touche je vais me tourné vers une autre solution.
Si le cmd s'exécute avec la fenêtre mais a l'arrière plan cela peut-il convenir ?

[Iste]

Simuler les actions humaines et les bot graphiques ne doivent etre utilisé qu'en dernier recourt.

La, de ce que j'ai compris tu ouvre l'invite de commande pour executer acrobat.exe (qui se trouve a un endroit que tu connais)
Ben, pourquoi ne pas simplement utiliser shellexecute() ?
Si c'est pour une histoire de droit d'admin, le sujet a déja été abordé sur le forum

Pis meme, les

Code : Tout sélectionner

WinActivate("C:\WINDOWS\system32\cmd.exe","")
send("exit")
send("{ENTER}")

Bah, autant faire un Winclose()

[jcaspar]

M erci de votre aide !
l'essentiel étant que l'utilisateur ne soit pas dérangé et qu'il ne voit pas ce qui se passe ...

Je suis preneur pour toute nouvelle idée

[Iste]

Ben dans ce cas, dites nous ce que vous voulez faire exactement, et on pourra vous dire comment le faire.

Car "rendre invisible" un script, c'est pas la solution. Dididj a essayé au mieux, mais ca reste bancale.

On ne "rend" pas un script invisible, mais on le "crée" ainsi

'fin bref, voila

[jcaspar]

Bonsoir à tous !

Merci encore pour vos astuces et conseils.

Je souhaiterais executer ce code de manière à ce que la console ne soit pas visible
avec SW_HIDE (le script bug ..curieusement) voilà pourquoi je cherche une autre alternative ... et sans SW_HIDE tout va bien mais l'ouverture de console est visible.
Run(@ComSpec & " /k runas /user:administrateur cmd.exe","SW_HIDE")

Je suis tout à fait d'accord avec ceux qui me diront qu'il faut utiliser la fonction runas
mais à mon grand regret étant dans un domaine ...rien à faire malgré avoir testé toutes les solutions proposées dans le forum...

Dommage que runasset de l'ancienne version d'autoit ne sois plus implanté dans cette nouvelle version !

Code : Tout sélectionner

#NoTrayIcon
#Include <Misc.au3>
global $titre="cmd.exe (en tant qu'utilisateur"
global $machine=@computername
global $titre1="\administrateur)"


Run(@ComSpec & " /k  runas /user:administrateur cmd.exe","SW_HIDE")
   sleep(100)
   send("xxxxx")
   send("{ENTER}")
   sleep(100)
WinActivate($titre &$machine & $titre1 ,"")
sleep(200)
send("cd \")
send("{ENTER}")
sleep(100)
send("cd "&@tempdir)
send("{ENTER}")
sleep(200)
send("acrobat.exe")
send("{ENTER}")
WinActivate($titre &$machine & $titre1 ,"")
send("exit")
send("{ENTER}")
WinActivate("C:\WINDOWS\system32\cmd.exe","")
send("exit")
send("{ENTER}")
 

[orax]

Je suis tout à fait d'accord avec ceux qui me diront qu'il faut utiliser la fonction runas
mais à mon grand regret étant dans un domaine ...rien à faire malgré avoir testé toutes les solutions proposées dans le forum...

Dommage que runasset de l'ancienne version d'autoit ne sois plus implanté dans cette nouvelle version !

C'est étrange que ça ne marche pas puisqu'il y a bien un paramètre pour mettre un domaine.

J'ai vu aussi qu'il a les API CreateProcessAsUser et CreateProcessWithLogonW qui pourraient peut-être correspondre.

Sinon, vous pourriez utiliser 2 scripts (mais regroupés en un seul avec FileInstall).
Dans cet exemple : le script secondScript.exe sera exécuté avec les droits voulus. A moins que vous souhaitez absolument avoir accès à l'invite de commande du DOS...

Code : Tout sélectionner

Global $utilisateur = "xxx"
Global $mdp = "xxx"
Global $programme = @TempDir & "\secondScript.exe"

FileInstall("C:\secondScript.exe",$programme,1)

Run("runas /user:" & $utilisateur & " " & $programme, "c:\", @SW_HIDE)

; attends que RunAs soit entièrement chargé
While ControlGetText("C:\WINDOWS\system32\runas.exe", "", "") = ""
    Sleep(10)
WEnd

ControlSend("C:\WINDOWS\system32\runas.exe", "", "", $mdp & @CRLF, 1)

[jcaspar]

Super cette suggestion je vais tester !

Comment serait il possible d'utiliser les API CreateProcessAsUser et CreateProcessWithLogonW ?

Merci encore pour votre aide vous êtes trop fort !

Jean Marc

[orax]

C'est la fonction DllCall() pour pouvoir les utiliser ; mais je ne sais absolument pas si c'est bien celle-ci qu'il faudrait utiliser dans le cas présent et ça serait juste pour éviter de lancer le programme runas.exe.

Sinon, vous pourriez utiliser 2 scripts (mais regroupés en un seul avec FileInstall).

Eh... en fait, autant n'en lancer qu'un seul. Je ne sais plus pourquoi j'avais écrit ça.