script necessitant un ping!

Bonjour

me voila confronter a un petit soucis!

dans le cadre de mon travail, je dois lister l ensemble des licences utilisées sur le réseau de la boite.

dans ce but j ai besoin de savoir qu elle machine sont connecter ou pas sur le réseau. Pour cela " escusez sa risque de ne pas etre simple a suivre" je ping l ensemble de la plage d address ip ( ce qui me permet au passage de ressortir les adresses ip occupé et libre ) et la est mon probleme.

je n arrive pas a traiter la sortie de mes ping (je vous montre une partie de mon code ).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

DIM objShell DIM pingar Set objShell = CreateObject("Wscript.Shell") Set objExcel = CreateObject("Excel.Application") Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("iplist.txt") objExcel.Visible = True objExcel.Workbooks.Add intRow = 2 pingar = 1 msgbox pingar objExcel.Cells(1, 1).Value = "address IP" objExcel.Cells(1, 2).Value = "Results"   Do While Not (InputFile.atEndOfStream) IpAddrress = InputFile.ReadLine objExcel.Cells(intRow, 1).Value = IpAddrress msgbox pingar & "1" if pingar = objShell.Run("cmd /k ping.exe -n 1 "& IpAddrress & "", 1, TRUE ) then objExcel.Cells(intRow, 2).Value = "On Line" msgbox pingar & "11" else objExcel.Cells(intRow, 2).Value = "Off Line" msgbox pingar & "111" end if intRow = intRow + 1 Loop   objExcel.Range("A1:B1").Select objExcel.Selection.Interior.ColorIndex = 19 objExcel.Selection.Font.ColorIndex = 11 objExcel.Selection.Font.Bold = True objExcel.Cells.EntireColumn.AutoFit

---

ici, le resultat du ping est toujours negatif! dans ce code on peut voir que je le test a 1 mais j ai essayer de ne mettre que IF et le ping mais aucun resultat si quelqu un pouvais me montrer mon erreur voir comment la resoudre cela serais parfais.

Salut,
Au lieu de prendre les plages d adresses tu peus récupérer les informations de ton Active directory ca sera mieux que les plages.
en ce qui concerne ton erreur regarde la valeur renvoyer par ton ping
donc la valeur de la variable pingar.
Cdt

Si seulement je pouvais faire mumuse avec un active directory .... snif!
non nt4 en action et moins je le touche mieux je me porte!!!

donc voila la reformulation de ma question! ( je sais y en avais besoin )

je cherche un exemple permettant de pinguer en utilisant WMI.

et la question subsidiaire comment integrer ou plutot actionner a partir du vbs un bouton html envoyant un post?

merci enormement pour vos reponse

amicalement swann

voir ici :

[VBS] Problème reponse PING

Merci a tous!!!

Citation:

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

strComputer = "10.169.6.16"   'Ping version Win2000 Set objShell = CreateObject("WScript.Shell") Set objScriptExec = objShell.Exec( _ "ping -n 2 -w 1000 " & strComputer) strPingResults = LCase(objScriptExec.StdOut.ReadAll) If InStr(strPingResults, "perdus = 0") Then msgbox (strComputer & " repond au ping !") Else msgbox (strComputer & " na pas repondu au ping!") End If

---

Voila, ce code fonctionne je l'ai récupéré et mis en forme a partir du site MicroSoft.

---

le problem est que ceci ouvre des fenetres dos tout le temps je cherche une commande ping qui s executerais en background!!!

par exemple:

Code:

---

WshShell.Run("ping -n 1 " & HostName, 0, True)

---

mais ceci retourne constament 1 car il test l execution et pas le resultat d'apres ce que j ai compris!!! ou en utilisant le WMI mais je dois avouer que je suis pas tres doué!!!

pensez vous qu il soit possible de rebooter un element actif tel un routeur automatiquement? J ai essayer WOL sa ne marche pas cependant il y a un lien sur la page du routeur peut t on l activer par vbscript?
un coup de main serais apreciable

encore une fois merci pour vos reponce