[R] Alarme en cas de coupure réseau informatique

[Numaweb]

Bonjour à tous,

Je désire savoir s'il est possible via un script de surveiller mon réseau Ethernet en cas de coupure de celui-ci.
Le script émettrai un message et un son (même un bip bip bip) lors de la coupure du réseau informatique.
Selon ce principe là : http://i185.photobucket.com/albums/x61/ ... reseau.jpg

Je vous remercie d'avance pour votre aide.

Cordialement
Numa

[Tlem]

Tout est là : http://www.autoitscript.fr/forum/viewto ... =20&t=1031

Si vous n'avez qu'une seule connexion réseau (pas de Wifi ou autre) un ping sur 127.0.0.1 suffira.

[Numaweb]

Bonjour Thierry,

Merci pour cette piste et le liens, le ping du "127.0.0.1" ou le ping du "nom du PC" répondent "Réseau OK" même en cas de coupure du réseau,
par contre le ping de l'adresse Ip du Pc serait Ok, mais si l'adresse IP change régulièrement c'est cuit...

Je me demande si c'est possible de faire la surveillance au niveau de l'adresse Mac avec la commande ARP -A
Si ARP -A répond (avec une ligne) le réseau est OK, si pas de réponse = Coupure.
Ma logique est elle réaliste ?

Numa

[Tlem]

Effectivement, pour 127.0.0.1 ça ne fonctionne pas, mais si vous connaissez le nom d'une des machines du réseau ou tout simplement l'IP de la passerelle alors votre problème est résolu.

[BeCool]

Le ping de la passerelle est a mon avis la meilleur solution

[Tlem]

Si il y en à une ...
Cela n'a pas été précisé. Il y à encore dans certaines entreprises des zones non connectées par mesure de sécurité.
Par contre il y à souvent un serveur, donc ...

[BeCool]

Il y à encore dans certaines entreprises des zones non connectées par mesure de sécurité.

Je n'ai encore jamais vu ça.

Ce n'est pas obliger d'avoir un passerelle pour se connecter en WAN ? J'ai toujours cru que si ...

[Tlem]

Numaweb n'à jamais parlé de Wan, de passerelle ou d'internet.
Il à simplement parlé de réseau Ethernet et plus particulièrement de la connexion réseau du PC (qui affiche non connecté si coupure réseau) ...

[BeCool]

Qui dit connexion réseau dit forcement Ethernet au minimum. Non ?

[Tlem]

Certes, mais Ethernet ne veut pas dire Internet.
Utilisez Google pour voir la différence.

[BeCool]

Je sais ça. Je n'ai jamais dis le contraire

[Tlem]

Ben ... Votre réponse dans le contexte de ce que j'ai dit avant laisse un léger doute ...

[BeCool]

Alors c'est que je me suis mal exprime

Et si nous revenions au sujet principale au lieu de faire les trolls ?

[Tlem]

Ben vla une forme de solution sans faire appel à une passerelle sans serveur ou autre PC du réseau et qui correspond aux images du premier post :

Code : Tout sélectionner

; Code d'origine : http://www.autoitscript.com/forum/index.php?showtopic=78491&view=findpost&p=566838

Global $NetState = 1

HotKeySet("{ESC}", "Fin")
AdlibEnable("_GetNetworkConnect", 5000)

While 1
    If $NetState = 0 Then
        Beep(500, 250)
        Sleep(200)
        Beep(500, 250)
        Sleep(200)
        Beep(500, 250)
        Sleep(200)
        MsgBox(48, "Attention", "Plus de connexion réseau", 2)
    EndIf
    Sleep(50)
WEnd

Func _GetNetworkConnect()
    Local $tTYPE, $iData, $iResult

    $tTYPE = DllStructCreate("int")

    DllCall("sensapi.dll", "int", "IsNetworkAlive", "ptr", DllStructGetPtr($tTYPE))

    $iData = DllStructGetData($tTYPE, 1)

    ; Test Lan (0x1) ou Wan (0x2) ou AOL (0x3)
    If BitAND($iData, 0x1) or BitAND($iData, 0x2) or BitAND($iData, 0x3) Then
        $NetState = 1
    Else
        $NetState = 0
    EndIf
    
    Return $NetState
EndFunc   ;==>_GetNetworkConnect

Func Fin()
    Exit
EndFunc

[Numaweb]

Bonjour Thierry,
C'est magnifique, c'est exactement ce que je cherchai, merci beaucoup.
J'avais l'idée de faire des ping de la passerelle à intervalle régulier...mais ton script est plus sur.

Encore un grand merci à toute l'équipe, c'est génial !