ping automatisiert alle 15 Minuten

[mludwig 10]

Hi,

 

wie Ihr schon an der Überschrift sehen könnt, suche ich eine Möglichkeit, alle 15 Minuten per Taskplaner einen ping an eine bestimmte Adresse (internes LAN) zu starten.

 

Ich habe mir den AT-Daemon angeschaut ("at" in cmd.exe), aber der scheint genauso wie der Windows-Taskplaner zu grobkörnig zu sein (Jobs nur 1x pro Tag möglich).

 

Ist dem wirklich so, oder bin ich nur zu dämlich?

Falls ja, was gibt es für Möglichkeiten, dass ich mein Ziel erreichen kann?

Gibt es andere Taskplaner??

 

Michael

[IThome 10]

Schau Dir mal SCHTASKS an ...

[grungelegende 10]

Der Task Scheduler kann Tasks auch öfters ausführen, nur im Wizard kann man es nicht einstellen. Klick den Wizard durch so dass der eintrag im Task Scheduler erstellt wird und in den Eigenschaften des Tasks kannst du das dann einstellen. Ansonsten schreib eben ein Batchfile.

[marka 587]

Du hast, wenn Du in den geplanten Tasks noch mal die Eigenschaften des "Autoping" anschaust, die Möglichkeit, bei der Zeitplanung ein Wiederholungsinterwall einzustellen. (Registerkarte Zeitplan, erweitert)

[blub 115]

es gibt doch so schöne Möglichkeiten mit WMI:

 

---------------------

'created by blub@mcseboard.de 15.8.06

'Skript um die Erreichbarkeit mittels ping festzustellen

 

Option Explicit

Dim arrcomputers, strSeconds, strResult, strComputer

 

 

'************************hier die Parameter setzen*********************

arrComputers = Array("Rechner1","192.168.2.1") 'Rechnernamen

strSeconds = 900 ' Zeitabstand in Sekunden

'*********************************************

Do

For Each strComputer In arrComputers

strResult=FunPingstatus(strComputer)

funoutput strComputer,strResult

Next

WScript.Sleep 1000*strSeconds

Loop

 

Function FunPingstatus(strComputer)

Dim wmiquery, objcomputer, colPingedComputers

Dim objWMIService_PingStatus, wmiNS

 

wmiNS="\root\cimv2"

wmiquery="Select * from Win32_PingStatus Where Address = " & "'" & strcomputer& "'"

 

Set objWMIService_PingStatus = GetObject("winmgmts:\\" & "."& wmiNS)

Set colPingedComputers = objWMIService_PingStatus.ExecQuery (wmiquery)

 

For Each objComputer in colPingedComputers

select case objComputer.StatusCode

case 0 Funpingstatus="0 success" ' 'Host erreichbar

case 11001 Funpingstatus="11001 Buffer Too Small"

Case 11002 Funpingstatus="11002 Destination Net Unreachable"

Case 11003 Funpingstatus="11003 Destination Host Unreachable"

case 11004 Funpingstatus="11004 Destination Protocol Unreachable"

case 11005 Funpingstatus="11005 Destination Port Unreachable"

case 11006 Funpingstatus="11006 No Resources"

case 11007 Funpingstatus="11007 Bad Option"

case 11008 Funpingstatus="11008 Hardware Error"

case 11009 Funpingstatus="11009 Packet Too Big"

case 11010 Funpingstatus="11010 Request Timed Out"

case 11011 Funpingstatus="11011 Bad Request"

case 11012 Funpingstatus="11012 Bad Route"

case 11013 Funpingstatus="11013 TimeToLive Expired Transit"

case 11014 Funpingstatus="11014 TimeToLive Expired Reassembly"

case 11015 Funpingstatus="11015 Parameter Problem"

case 11016 Funpingstatus="11016 Source Quench"

case 11017 Funpingstatus="11017 Option Too Big"

case 11018 Funpingstatus="11018 Bad Destination"

case 11032 Funpingstatus="11032 Negotiating IPSEC"

case 11050 Funpingstatus="11050 General Failure"

end select

Next

End Function

 

Function funOutput(strComputer, strResult)

Dim vb2tab : vb2tab=vbTab+vbtab

WScript.Echo strcomputer + vb2tab + strResult +vb2tab & now 'Ausgabe hier beliebig formatieren

End Function