afficher image dans page html avec script vbsRésolu

Question

Bonjour, j'ai le code suivant et je souhaiterais afficher une image gif à la place de la MsgBox. Est ce faisable??? Merci beaucoup!

Renfield · Accepted Answer

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

Renfield · Answer

Les MsgBox personnalis&#233;es impliquent un Hook CBT....



faisables en VB, mais pas en VbScript, non.....

Renfield
Admin CodeS-SourceS - MVP Visual Basic

flopad · Answer

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!!

Renfield · Answer

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

flopad · Answer

Parfait merci beaucoup!!!
Par contre, une derni&#232;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&#233;ciser un intervalle de temps entre chaque s&#233;rie de ping, par exemple toutes les 2 minutes faire 3 ping...??

Merci

Renfield · Answer

tu peux appeler plusieurs fois ces instructions, a placer dans une fonction

flopad · Answer

Euh c'est &#224; dire...?? Tu peux me donner une structure succinte du code &#224; utiliser stp...?

Merci.

Renfield · Answer

fais simplement :



Dim wshShell

set wshShell = CreateObject("WScript.Shell")

strComputer = "."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\.oot\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&#233;pondu"

        Else

            MsgBox "Essai " & i & " - Le site n'a pas r&#233;pondu"

       End If

    Next

Next

Renfield
Admin CodeS-SourceS - MVP Visual Basic

flopad · Answer

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&#233;clarer apr&#232;s l'affichage de l'image dead2.gif??
En fait, concr&#232;tement, je afficher mon image puis envoyer mon mail si le routeur ne r&#233;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!

flopad · Answer

Et comment faire pour faire jouer un son en .wav (je vais ajouter ca apr&#232;s l'affichage de l'image dead2.gif), enfin quelle est la syntaxe? ?

MERCI MERCI!!

Afficher image dans page html avec script vbs

10 réponses