Masquer la fenêtre des commandes Shell (Dos)

**abdeleln** · 24/04/2009, 09h47

Bonjour,

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

Code :

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

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

Pourriez vous (please

) m'indiquer comment caché ou masqué la fenêtre DOS

Merci

**orducom1** · 24/04/2009, 12h51

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

)

Une commande du genre

Code :

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

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

**SfJ5Rpw8** · 24/04/2009, 22h26

Sinon tu as dans la

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 ...

**wnx83** · 25/04/2009, 10h57

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

Script.vbs

Code :

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

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.