Masquer la fenêtre des commandes Shell (Dos)

Bonjour,

Afin de tester la laison entre deux PC jai utilisé en boucle le srcipte suivant

Code:

---

1 2 3 4 5 6 7 8 9 10

strComputer = "xxx.xxx.xxx.xxx" Set objScriptExec = objShell.Exec( _ "ping -n 2 -w 1000 " & strComputer) strResults = LCase(objScriptExec.StdOut.ReadAll) If InStr(1, strResults, "perdus = 0") Then ...... Else ......   End If

---

Mais j'ai toujours la fenêtre de commande DOS qui s'affiche sur mon écran:cry:

Pourriez vous (please :)) m'indiquer comment caché ou masqué la fenêtre DOS :oops:

Merci :D

Regarde du coté de http://www.darkpaws.com/utilities/

il y a un utilitaire qui se nomme 'hide.exe" à utiliser à la place de "cmd.exe" (pour ce code en tout cas 8-))

Une commande du genre

Code:

---

c:\hide.exe "cscript c:\monscript.vbs"

---

devrait résoudre ton problème.

Emeric

PS : Un antivirus peux détecter ce fichier comme étant potentiellement infectant. C'est Faux ! Il est sûr et utilisé chez mon client ("grand compte") pour effectuer les déploiements de pacquage de façon silencieuse. Une MAJ de Symantec détecte ce fichier seulement parce qu'il est aussi utilisé par les hackers ... mais l'exécutable en lui même est sûr

Sinon tu as dans la :faq:

http://vb.developpez.com/faqvbs/?page=III.4#wmiPing

la méthode utilisant WMI ne devrai te permettre d'éviter le problème de fenêtre DOS ...

Salut, pour lancer un bat (MonAppli.bat) discretement :

Script.vbs

Code:

---

1 2 3 4

DIM oWsh, commande Set oWsh = WScript.CreateObject("WScript.Shell") commande = "MonAppli.bat" oWsh.Run commande,0

---

Je ne mis connait pas en Vbs,je ne sait pas comment l'adapter a ton code, je sait simplement qu'un batch lancer avec ce code sera exécuter invisiblement.

http://vb.developpez.com/faqvbs/?page=IV.1#wshRun

Citation:

---

intWindowStyle : 1 : Active la fenêtre dans sa taille et position d'origine

---

Donc à 0 cela ne l'active pas.

Pour les autres valeurs possibles regardez ici.