Sub Something
'Init the Shell queue
Dim Queue As ShellQueue
Dim ConcurrentJobs As Int = 25
Queue.Initialize(ConcurrentJobs, 5000, Me, "mtc")
For i = 0 To 255
Queue.AddToQueue("cmd.exe", _
Array("/c", "ping", $"192.168.0.${i}"$, "-n", "4"), _
"C:/Windows/System32/", _
False, _
$"192.168.0.${i}"$)
Next
Queue.StartQueue
End Sub
Sub Queue_JobCompleted(Job As ShellQueueJob)
Dim Offline As Boolean = Job.StdOut.ToLowerCase.Contains("request timed out") Or Job.StdOut.ToLowerCase.Contains("unreachable")
If Not(Offline) Then
Log($"${Job.tag} : Online"$)
Else
Log($"${Job.tag} : OFFLINE / UNREACHABLE"$)
End If
End Sub
Sub Queue_QueueFinished
Log($"Queue Finished"$)
End Sub