Script das mich informiert wenn ein Server offline ist?

  • VBScript

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von axi92.

    Script das mich informiert wenn ein Server offline ist?

    Kann man ein Script laufen lassen das alle Minuten einen oder mehrere Server prüft ob diese online sind wenn nicht kommt eine Meldung das der betreffende Server ofline ist.

    Derzeit habe ich das:

    VB.NET-Quellcode

    1. On Error Resume Next
    2. 'Use IP address or computer name
    3. strComputer = "INTS"
    4. strPingStatus = PingStatus(strComputer)
    5. If strPingStatus = "Success" Then
    6. Wscript.Echo "Success pinging " & strComputer
    7. Else
    8. Wscript.Echo "Failure pinging " & strComputer & ": " & strPingStatus
    9. End If
    11. '*****************************************************************************
    13. Function PingStatus(strComputer)
    15. On Error Resume Next
    16. strWorkstation = "."
    17. Set objWMIService = GetObject("winmgmts:" _
    18. & "{impersonationLevel=impersonate}!\\" & strWorkstation & "\root\cimv2")
    19. Set colPings = objWMIService.ExecQuery _
    20. ("SELECT * FROM Win32_PingStatus WHERE Address = '" & strComputer & "'")
    21. For Each objPing in colPings
    22. Select Case objPing.StatusCode
    23. Case 0 PingStatus = "Success"
    24. Case 11001 PingStatus = "Status code 11001 - Buffer Too Small"
    25. Case 11002 PingStatus = "Status code 11002 - Destination Net Unreachable"
    26. Case 11003 PingStatus = "Status code 11003 - Destination Host Unreachable"
    27. Case 11004 PingStatus = _
    28. "Status code 11004 - Destination Protocol Unreachable"
    29. Case 11005 PingStatus = "Status code 11005 - Destination Port Unreachable"
    30. Case 11006 PingStatus = "Status code 11006 - No Resources"
    31. Case 11007 PingStatus = "Status code 11007 - Bad Option"
    32. Case 11008 PingStatus = "Status code 11008 - Hardware Error"
    33. Case 11009 PingStatus = "Status code 11009 - Packet Too Big"
    34. Case 11010 PingStatus = "Status code 11010 - Request Timed Out"
    35. Case 11011 PingStatus = "Status code 11011 - Bad Request"
    36. Case 11012 PingStatus = "Status code 11012 - Bad Route"
    37. Case 11013 PingStatus = "Status code 11013 - TimeToLive Expired Transit"
    38. Case 11014 PingStatus = _
    39. "Status code 11014 - TimeToLive Expired Reassembly"
    40. Case 11015 PingStatus = "Status code 11015 - Parameter Problem"
    41. Case 11016 PingStatus = "Status code 11016 - Source Quench"
    42. Case 11017 PingStatus = "Status code 11017 - Option Too Big"
    43. Case 11018 PingStatus = "Status code 11018 - Bad Destination"
    44. Case 11032 PingStatus = "Status code 11032 - Negotiating IPSEC"
    45. Case 11050 PingStatus = "Status code 11050 - General Failure"
    46. Case Else PingStatus = "Status code " & objPing.StatusCode & _
    47. " - Unable to determine cause of failure."
    48. End Select
    49. Next
    50. End Function

    Nutz die Ping-Klasse in einem System.Timers.Timer (oder lagere den Vorgang in einen eigenen Thread mit einer While-Schleife aus und nutze Threading.Thread.Sleep()) und Prüfe die Eigenschaft Status vom Rückgabewert von Ping.Send/SendAsync. Sollte der einfachste Weg sein.

    @xtts02 Oh sorry, lesen muss man können ._.

    Dann bin ich leider raus, von VBS hab' ich keine Ahnung.

    Wie benutze ich das?

    Edit: Ich will einen Text der Aufgeht und kein Icon, oder brauche ich ein Icon um eine Textblase aufgehen zu lassen?
    Genau das möchte ich:


    Achja soll ich dafür ein neues Thema machen, das schießt ja schon am Titel vorbei.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „axi92“ ()

    Neues Thema halte ich nicht für nötig, aber ich bin kein Mod.

    Ja, das NotifyIcon ist zwingen notwendig, um einen Balloontip (so nennt man das Ding) anzuzeigen, da das Balloontip sozusagen vom Icon ausgeht.

Facebook
Telefonspende