faire un PING et l'exploiter

Question

Salut &#224; Tous J'essaye d'effectuer un PING sur des Machines et d'exploite le resultat pour contniuer mon programme ou marque dans un fichier texte si le poste est eteint 
probleme je n'arrive pas a recuperer le resultat et l'exploit&#233;

'verification de la connection au poste'

function PingCheck
set WshShell = CreateObject ("Wscript.shell")
PING = WshShell.Run ("Ping.exe POTES" & 0,TRUE)
if PING = 0 then call WriteOPOFF end if
End function

function writeOPOFF
set WshShell = CreateObject ("Wscript.shell")
Set f = fso.GetFile(OPOFF)
Set ts = f.OpenAsTextStream(8, -2)
ts.Write TARGET
ts.close
End Function

NHenry · Answer

Bonjour


Je te propose de faire "Ping POTES > MonFic.txt"

et ensuite tu regarde le fichier MonFic.txt.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET)

aieeeuuuuu · Answer

oui ou sinon t'inspirer des nombreuses sources concernant le ping sur ce site !
 comme celle ci par exemple

http://www.vbfrance.com/code.aspx?id=25440

mais ce n'est qu'un exemple

Neo.balastik · Answer

35535  aieeeuuuuu > n'oublie pas que le code VB6 n'est en g&#233;n&#233;ral pas adapt&#233; au VBS.  Faire un ping en VBS n'est pas r&#233;alisable avec du code VB6.

Les solutions sont 
   - soit d'ex&#233;cuter un ping (via une commande shell) et envoyer l'echo vers un fichier texte et d'explotier celui-ci (comme le disait NHENRY)
- soit d'utiliser l'objet WScript.Shell avec la m&#233;thode Exec et l'exploitation de StdOut (voir exemple ci-dessous)
- soit de d&#233;velopper une DLL ActiveX en VB6 et d'utiliser celle-ci &#224; travers VBS avec CreateObject
- soit utiliser un composant tiers

Un exemple avec WScript.Shell
HostName = "[file://LeNomDuPC/ LeNomDuPC]"
Set objShell = WScript.CreateObject("WScript.Shell") 
Set objExecObject = objShell.Exec("cmd /c ping -n 4 -w 1000 " & HostName) 

Do While Not objExecObject.StdOut.AtEndOfStream 
      strText = objExecObject.StdOut.ReadLine() 
      If Instr(strText, "Reply") > 0 or Instr(strText, "R&#233;ponse") Then 
          Msgbox  "La machine &#224; r&#233;pondu"          
          Exit Do 
      End If
Loop 

Guy

aieeeuuuuu · Answer

oui, je n'avaispas vu qu'il s'agissait de vbs ;)

Faire un PING et l'exploiter

4 réponses

Discussions similaires