$arraycomputers='@wksta','other computers'
$processes='long list of procs'
For Each $computer in $ArrayComputers
For Each $proc in $processes
If Ping($Computer,0,1)
EnumProcess($proc, , $Computer)
$=SendMessage(@wksta,$computer +' is running '+ $proc)

Else

$=SendMessage(@WKSTA,$computer +' was not able to be pinged. It is unavailable.')
EndIf
Next
Next
Exit

Dim $Status
$Status = Ping('some_computer')
If $Status
  ; pc appears to be online
  ; run other code
EndIf
 
Function Ping($PC)
  Shell'%comspec% /c ping -n 1 '+$PC+' >nul'
  $Ping = NOT @error
EndFunction

$ArrayComputers=@wksta,'other computers'
$Processes='long list of procs'
For Each $Computer in $ArrayComputers
  If Ping($Computer)
    For Each $proc in $processes
      EnumProcess($proc, , $Computer)
      $=SendMessage(@wksta,$computer +' is running '+ $proc)
    Next
  Else
    $=SendMessage(@WKSTA,$computer +' was not able to be pinged. It is unavailable.')
  EndIf
Next
Exit 1
 
Function Ping($PC)
  Shell'%comspec% /c ping -n 1 '+$PC+' >nul'
  $Ping = NOT @error
EndFunction

$arraycomputers='computers'
$processes='processes'
For Each $computer in $ArrayComputers
	If Ping($Computer)
		For Each $proc in $processes
			EnumProcess($proc, , $Computer)
			$=SendMessage(@wksta,$computer +' is running '+ $proc)
		Next
	Else
		$=SendMessage(@WKSTA,$computer +' was not able to be pinged. It is unavailable.')
	EndIf
Next
Exit 1

$arraycomputers='@wksta','OFF-JHUFF','OFF-RLOCKWOOD','OFF-SGONZALEZ','OFF-HOYT','OFF-SBERGER','OFF-TSINGERY','OFF-FRONTDESK'
$processes='School.exe','SMinder.exe','SMAdmin.exe','SMReport.exe','SMBill.exe','Admission.exe'
For Each $computer in $ArrayComputers
	If Ping($Computer)
		For Each $proc in $processes
			EnumProcess($proc, , $Computer)
			$=SendMessage(@wksta,$computer +' is running '+ $proc)
		Next
	Else
		$=SendMessage(@WKSTA,$computer +' was not able to be pinged. It is unavailable.')
	EndIf
Next
Exit 1

Break On
Dim $SO,$Pause
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('WrapAtEOL','On')
 
Dim $ArrayComputers, $sComputer, $Process, $Processes, $List, $Item
$ArrayComputers = 'OFF-JHUFF','OFF-RLOCKWOOD','OFF-SGONZALEZ','OFF-HOYT','OFF-SBERGER','OFF-TSINGERY','OFF-FRONTDESK'
$Processes = 'School.exe','SMinder.exe','SMAdmin.exe','SMReport.exe','SMBill.exe','Admission.exe''
For Each $sComputer In $ArrayComputers
  If $sComputer
    If Ping($sComputer)
      ? 'The computer ' + $sComputer + ' responds to ping'
       For Each $Process In $Processes
         If $Process
            $List = EnumProcess($Process,,$sComputer)
            If $List
              ? $sComputer + ' is running ' + $Process + ' with a PID of: ' + $List
            EndIf
         EndIf
       Next
    EndIf
  EndIf
Next
   
Function Ping($PC)
  Shell'%comspec% /c ping -n 1 '+$PC+' >nul'
  $Ping = NOT @error
EndFunction
 
Function EnumProcess($Exe, optional $Terminate, optional $sComputer)
  Dim $Winmgmts,  $ExecQuery, $GetObject, $Process, $Id, $Msg, $T,$Index
  If Not $Exe Exit 1 EndIf
  If Not $sComputer $sComputer=@WKSTA EndIf
  If InStr($sComputer,'\') $sComputer = Join(Split($sComputer, '\'),'',3) EndIf
  $Winmgmts="winmgmts:{impersonationLevel=impersonate}!\\" + $sComputer  + "\root\cimv2"
  Select
    Case VarType($Exe) = 3
      $ExecQuery="Select * from Win32_Process Where ProcessID =  " +"'"+$Exe+"'"
      $GetObject=GetObject($Winmgmts).ExecQuery($ExecQuery)
      For Each $Process In $GetObject
        If $Terminate $T=$Process.Terminate
          $EnumProcess=@ERROR
        Else
          $EnumProcess=$Process.Name
        EndIf
      Next
    Case VarType($Exe)=8
      $Index=0
      $ExecQuery="Select * from Win32_Process Where Name = " +"'"+$Exe+"'"
      $GetObject=GetObject($Winmgmts).ExecQuery($ExecQuery)
      For Each $Process In $GetObject
        If $Terminate $T=$Process.Terminate
          $EnumProcess=@ERROR
        Else
          $Id=$Process.ProcessId
          If $Id $Index=$Index+1 EndIf
          If $Index>1
            $EnumProcess=""+$EnumProcess+"|"+$Id
          Else
            $EnumProcess=$Id
          EndIf
        EndIf
      Next
    Case 1
      Exit 1
  EndSelect
EndFunction

ERROR : unknown command [The]!
Script: X:\Software Installs\SMChecks\SMinderwithpingtest.kix
Line  : 84

?'The computer ' + $sComputer + ' responds to ping'

The computer OFF-SGONZALEZ responds to ping
OFF-SGONZALEZ is running SMBill.exe with a PID of: 2880
The computer OFF-SBERGER responds to pingSelect * from Win32_Process Where Name
= 'School.exe'Select * from Win32_Process Where Name = 'SMinder.exe'Select * fro
m Win32_Process Where Name = 'SMAdmin.exe'Select * from Win32_Process Where Name
 = 'SMReport.exe'Select * from Win32_Process Where Name = 'SMBill.exe'Select * f
rom Win32_Process Where Name = 'Admission.exe'
The computer OFF-TSINGERY responds to ping
The computer OFF-FRONTDESK responds to ping
OFF-FRONTDESK is running School.exe with a PID of: 872