Bonjour,
Afin de tester la laison entre deux PC jai utilisé en boucle le srcipte suivant
Mais j'ai toujours la fenêtre de commande DOS qui s'affiche sur mon écran
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
Pourriez vous (please) m'indiquer comment caché ou masqué la fenêtre DOS
Merci![]()
Partager