Discussion :

[Kira77]

Bonjour à tous,
J'ai un petit problème : j'ai crée un code VBscript permettant d'ouvrir cmd.exe en administrateur avec la commande RUNAS et de déplacer un fichier dans le répertoire windows mais le dernier SendKeys avec l'instruction move ne marche pas. Voici mon

Code :

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

1
2
3
4
5
6
7
8
9
set WshShell = WScript.CreateObject("WScript.Shell" ) 
WshShell.SendKeys "{ENTER}" 
WshShell.run "runas /user:nom-ordi\blabla cmd.exe" 
WScript.Sleep 1000 
WshShell.SendKeys "truc" 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 1000 
WshShell.SendKeys "move /-y C:\Users\blabla2\Desktop\netdom.exe c:\Windows" 
WSCript.Quit

Merci d'avance.

[hackoofr]

Dans ce genre de script je vous déconseille d'utiliser Sendkeys
pour savoir ou ça bloque je vous conseille de construire votre commande puis l'afficher avec un MsgBox puis si elle est correcte vous l'exécuter
Exemple :

Code :

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

1
2
3
4
set WshShell = WScript.CreateObject("WScript.Shell" ) 
Commande = "cmd /k runas /user:nom-ordi\ move /-y C:\Users\blabla2\Desktop\netdom.exe"
MsgBox Commande,64,"construction de la commande" 
WshShell.Run(Commande,1,True)

NB: ce script n'est pas testé. c'est juste à titre d'exemple pour voir la méthode qui vous explique comment vous déboguez plus simplement votre script

[Kira77]

Dans mon cas je suis obligé d'utiliser SendKey, car à la fin du runas, une nouvel invité de commande s'ouvre et la seule façon de simuler des actions clavier pour écrire ma commande move, c'est avec SendKey et quand je fais ça, la commande ne s'affiche pas et le script se termine.
Si tu as une solution autre, je suis preneur.


Edit: J'ai utiliser tes MsgBox et toute mes commandes sont bonnes