Afficher image dans page html avec script vbs [Résolu]

Messages postés
531
Date d'inscription
mercredi 28 septembre 2005
Dernière intervention
6 mars 2009
- 12 déc. 2005 à 13:46 - Dernière réponse :
Messages postés
531
Date d'inscription
mercredi 28 septembre 2005
Dernière intervention
6 mars 2009
- 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


</script>
Afficher la suite 

10 réponses

Meilleure réponse
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 13 déc. 2005 à 13:02
3
Merci
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

Merci Renfield 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 12 déc. 2005 à 14:20
0
Merci
Les MsgBox personnalisées impliquent un Hook CBT....



faisables en VB, mais pas en VbScript, non.....

Renfield
Admin CodeS-SourceS - MVP Visual Basic
Messages postés
531
Date d'inscription
mercredi 28 septembre 2005
Dernière intervention
6 mars 2009
- 12 déc. 2005 à 15:13
0
Merci
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 =.... ??

Merci encore pour votre aide!!
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 12 déc. 2005 à 15:27
0
Merci
si ton script est intégré dans une page HTML, libre a toi de faire la sortie que tu veux...

un document.write("<IMG SRC=..........
semblearait te convenir
Messages postés
531
Date d'inscription
mercredi 28 septembre 2005
Dernière intervention
6 mars 2009
- 13 déc. 2005 à 08:25
0
Merci
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...??

Merci
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 13 déc. 2005 à 09:42
0
Merci
tu peux appeler plusieurs fois ces instructions, a placer dans une fonction
Messages postés
531
Date d'inscription
mercredi 28 septembre 2005
Dernière intervention
6 mars 2009
- 13 déc. 2005 à 10:18
0
Merci
Euh c'est à dire...?? Tu peux me donner une structure succinte du code à utiliser stp...?

Merci.
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 13 déc. 2005 à 10:24
0
Merci
fais simplement :



Dim wshShell

set wshShell = CreateObject("WScript.Shell")

strComputer = "."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")



For i = 1 to 4

Set colPingedComputers = objWMIService.ExecQuery
("Select * from Win32_PingStatus Where Address = 'www.google.com'")

For Each objComputer in colPingedComputers

If objComputer.StatusCode = 0 Then

MsgBox "Essai " & i & " - Le site a répondu"

Else

MsgBox "Essai " & i & " - Le site n'a pas répondu"

End If

Next

Next

Renfield
Admin CodeS-SourceS - MVP Visual Basic
Messages postés
531
Date d'inscription
mercredi 28 septembre 2005
Dernière intervention
6 mars 2009
- 13 déc. 2005 à 12:55
0
Merci
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

MERCI!
Messages postés
531
Date d'inscription
mercredi 28 septembre 2005
Dernière intervention
6 mars 2009
- 13 déc. 2005 à 14:02
0
Merci
Et comment faire pour faire jouer un son en .wav (je vais ajouter ca après l'affichage de l'image dead2.gif), enfin quelle est la syntaxe? ?

MERCI MERCI!!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.