This script ping different machines. If a machine\u00c2\u00a0dont answer a local event will ge generated. If you set strLog to 1 a event\u00c2\u00a0will\u00c2\u00a0be\u00c2\u00a0generated for every successful ping.\u00c2\u00a0 You will need to create a parameter named Hosts that contains all hosts you want to ping.<\/p>\n
ELSE End If \u00c2\u00a0<\/p>\n <\/code>\u00c2\u00a0<\/p>\n","protected":false},"excerpt":{"rendered":" This script ping different machines. If a machine\u00c2\u00a0dont answer a local event will ge generated. If you set strLog to 1 a event\u00c2\u00a0will\u00c2\u00a0be\u00c2\u00a0generated for every successful ping.\u00c2\u00a0 You will need to create a parameter named Hosts that contains all hosts you want to ping. ‘ ‘ If strLog = “1” then a event will be … Continue reading '
\n' If strLog = \"1\" then a event will be generated for
\n' success ping.
\n'
\n' This script use one parameter called \"Hosts\".
\n' Value for this can be like this
\n' ping.sunet.se,10.1.1.0
\n'
\n' Version 2.0<\/code> <\/code><\/p>\naMAchines = Split(ScriptContext.Parameters.Get(\"Hosts\"), \",\")
\nstrLog = \"0\"<\/code>For Each machine in aMachines
\nSet objPing = GetObject(\"winmgmts:{impersonationLevel=impersonate}\")._
\nExecQuery(\"select * from Win32_PingStatus where address = '\"_
\n& machine & \"'\")
\nFor Each objStatus in objPing
\nIf IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then<\/code> <\/code>Const EVENT_WARNING = 2
\nSet objShell = CreateObject(\"Wscript.Shell\")
\nobjShell.LogEvent EVENT_WARNING, _
\n\"Computer \" & machine & \" is not reachable (\" & strLog & \")\"<\/p>\n
\nIF strLog = 1 Then
\nConst EVENT_SUCCESS = 0
\nSet objShell = CreateObject(\"Wscript.Shell\")
\nobjShell.LogEvent EVENT_SUCCESS, _
\n\"Computer \" & machine & \" is reachable\"<\/p>\n
\nEnd If
\nNext
\nNext<\/p>\n