Discussion :

[splach]

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 :

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

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.

[cubitus91]

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

[splach]

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

[SfJ5Rpw8]

voir ici :

[VBS] Problème reponse PING

[splach]

Merci a tous!!!

Code :

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

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 :

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

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