Afficher image dans page html avec script vbs [Résolu]
flopad531
Messages postés mercredi 28 septembre 2005Date d'inscription
6 mars 2009
Dernière intervention
-
12 déc. 2005 à 13:46 - Dernière réponse : flopad531
Messages postés mercredi 28 septembre 2005Date d'inscription
6 mars 2009
Dernière intervention
- 13 déc. 2005 à 14:02
Bonjour, j'ai le code suivant et je souhaiterais afficher une image gif à la place de la MsgBox. Est ce faisable???
Merci beaucoup!
<script language=vbscript>
dim wshShell
set wshShell = CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colPingedComputers = objWMIService.ExecQuery _
("Select * from Win32_PingStatus Where Address = 'XXX.XX.X.XX'")
For Each objComputer in colPingedComputers
If objComputer.StatusCode = 0 Then
MsgBox "Le site a répondu"
Else
MsgBox "Le site n'a pas répondu"
End If
Next
il te suffit d'appeler ton code d'envoi de mail dans la partie 'else' de ta condition...
If objComputer.StatusCode = 0 Then
document.write("<IMG SRC=./images/live2.gif")
Else
document.write("<IMG SRC=./images/dead2.gif")
' ENVOI DE MAIL....
End If
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
flopad531
Messages postés mercredi 28 septembre 2005Date d'inscription
6 mars 2009
Dernière intervention -12 déc. 2005 à 15:13
0
Utile
Et sinon sans MsgBox, est ce qu'il est possible de juste faire un echo ou qque chose du style pour afficher une phrase? Ou sinon une image en faisant un truc du genre <img src =.... ??
flopad531
Messages postés mercredi 28 septembre 2005Date d'inscription
6 mars 2009
Dernière intervention -13 déc. 2005 à 08:25
0
Utile
Parfait merci beaucoup!!!
Par contre, une dernière question; est ce qu'il est possible de dire combien de ping on veut faire en utilisant le code ci-dessus et aussi de préciser un intervalle de temps entre chaque série de ping, par exemple toutes les 2 minutes faire 3 ping...??
flopad531
Messages postés mercredi 28 septembre 2005Date d'inscription
6 mars 2009
Dernière intervention -13 déc. 2005 à 12:55
0
Utile
OK merci!!
Maintenant, je vais ajouter un code qui permet d'envoyer un mail en vbs, mais comment est ce que je peux le déclarer après l'affichage de l'image dead2.gif??
En fait, concrètement, je afficher mon image puis envoyer mon mail si le routeur ne répond pas...
If objComputer.StatusCode = 0 Then
document.write("<IMG SRC=./images/live2.gif")
Else
document.write("<IMG SRC=./images/dead2.gif")
End If
