$=SendMessage(@wksta,$computer +' is running '+ $proc)

$check=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"+$scomputer+'\root\cimv2')
IF @error<>0
  ?'WMI Appears to be having trouble'
ENDIF

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-FRONTDESK','OFF-TSINGERY','OFF-JHUFF','OFF-SGONZALEZ','OFF-HOYT','OFF-SBERGER','OFF-RLOCKWOOD'
$Processes = 'School.exe','SMinder.exe','SMAdmin.exe','SMReport.exe','SMBill.exe','Admission.exe'
For Each $sComputer in $ArrayComputers
  If $sComputer
    If Ping($sComputer) Goto "EnumDisplay"
	
		:EnumDisplay
       For Each $Process in $Processes
         If $Process
            $List = EnumProcess($Process,,$sComputer)
            If $List
              MessageBox($sComputer + " was pinged and is running " + $Process + " with a PID of" + $List + ".","SMChecks",0)
            EndIf
         EndIf
       Next
    EndIf
  EndIf
Next

Break On
;SetConsole("hide")

$System = CreateObject("Kixtart.System")

;KD START

$Form = $System.Form()
$Form.BackColor = 224,223,227
$Form.Height = 477
$Form.Left = 209
$Form.MaximizeBox = "False"
$Form.Text = "SM Process Checker"
$Form.Top = 89
$Form.Width = 532
$UI_COMPNAMES = $Form.Controls.ListBox()
$UI_COMPNAMES.Height = 150
$UI_COMPNAMES.Left = 15
$UI_COMPNAMES.Text = ""
$UI_COMPNAMES.Top = 45
$UI_COMPNAMES.Width = 150
$UI_COMPNAMES.Sorted = 1

$COMPNAME_LABEL = $Form.Controls.Label()
$COMPNAME_LABEL.BackColor = 224,223,227
$COMPNAME_LABEL.FontBold = "True"
$COMPNAME_LABEL.FontUnderline = "True"
$COMPNAME_LABEL.Height = 20
$COMPNAME_LABEL.Left = 15
$COMPNAME_LABEL.Text = "Computer Name(s)"
$COMPNAME_LABEL.Top = 30
$COMPNAME_LABEL.Width = 114

$PROCGROUP = $Form.Controls.GroupBox()
$PROCGROUP.BackColor = 224,223,227
$PROCGROUP.Height = 141
$PROCGROUP.Left = 15
$PROCGROUP.Text = "Processes to Search For:"
$PROCGROUP.Top = 202
$PROCGROUP.Width = 268

$UI_SCHOOL = $PROCGROUP.Controls.CheckBox()
$UI_SCHOOL.BackColor = 224,223,227
$UI_SCHOOL.CheckAlign = 16
$UI_SCHOOL.Height = 24
$UI_SCHOOL.Left = 15
$UI_SCHOOL.Text = "School.exe"
$UI_SCHOOL.Top = 15
$UI_SCHOOL.Width = 104

$UI_SMINDER = $PROCGROUP.Controls.CheckBox()
$UI_SMINDER.BackColor = 224,223,227
$UI_SMINDER.CheckAlign = 16
$UI_SMINDER.Height = 24
$UI_SMINDER.Left = 15
$UI_SMINDER.Text = "SMinder.exe"
$UI_SMINDER.Top = 45
$UI_SMINDER.Width = 104

$UI_SMADMIN = $PROCGROUP.Controls.CheckBox()
$UI_SMADMIN.BackColor = 224,223,227
$UI_SMADMIN.CheckAlign = 16
$UI_SMADMIN.Height = 24
$UI_SMADMIN.Left = 15
$UI_SMADMIN.Text = "SMAdmin.exe"
$UI_SMADMIN.Top = 75
$UI_SMADMIN.Width = 104

$UI_SMREPORT = $PROCGROUP.Controls.CheckBox()
$UI_SMREPORT.BackColor = 224,223,227
$UI_SMREPORT.CheckAlign = 16
$UI_SMREPORT.Height = 24
$UI_SMREPORT.Left = 135
$UI_SMREPORT.Text = "SMReport.exe"
$UI_SMREPORT.Top = 15
$UI_SMREPORT.Width = 104

$UI_SMBILL = $PROCGROUP.Controls.CheckBox()
$UI_SMBILL.BackColor = 224,223,227
$UI_SMBILL.CheckAlign = 16
$UI_SMBILL.Height = 24
$UI_SMBILL.Left = 135
$UI_SMBILL.Text = "SMBill.exe"
$UI_SMBILL.Top = 45
$UI_SMBILL.Width = 104

$UI_ADMISSION = $PROCGROUP.Controls.CheckBox()
$UI_ADMISSION.BackColor = 224,223,227
$UI_ADMISSION.CheckAlign = 16
$UI_ADMISSION.Height = 24
$UI_ADMISSION.Left = 135
$UI_ADMISSION.Text = "Admission.exe"
$UI_ADMISSION.Top = 75
$UI_ADMISSION.Width = 104

$UI_ALLPROCS = $PROCGROUP.Controls.CheckBox()
$UI_ALLPROCS.BackColor = 224,223,227
$UI_ALLPROCS.CheckAlign = 16
$UI_ALLPROCS.FontItalic = "True"
$UI_ALLPROCS.Height = 21
$UI_ALLPROCS.Left = 75
$UI_ALLPROCS.Text = "Search for ALL"
$UI_ALLPROCS.Top = 105
$UI_ALLPROCS.Width = 105

$COMPLIST_LABEL = $Form.Controls.Label()
$COMPLIST_LABEL.BackColor = 224,223,227
$COMPLIST_LABEL.FontBold = "True"
$COMPLIST_LABEL.FontUnderline = "True"
$COMPLIST_LABEL.Height = 17
$COMPLIST_LABEL.Left = 270
$COMPLIST_LABEL.Text = "Search these computers:"
$COMPLIST_LABEL.Top = 30
$COMPLIST_LABEL.Width = 144

$UI_MOVETOLIST = $Form.Controls.Button()
$UI_MOVETOLIST.FontBold = "True"
$UI_MOVETOLIST.Height = 28
$UI_MOVETOLIST.Left = 205
$UI_MOVETOLIST.Text = ">>"
$UI_MOVETOLIST.Top = 60
$UI_MOVETOLIST.Width = 30
$UI_MOVETOLIST.OnClick = "MoveToListClick()"

$UI_MOVEFROMLIST = $Form.Controls.Button()
$UI_MOVEFROMLIST.FontBold = "True"
$UI_MOVEFROMLIST.Height = 28
$UI_MOVEFROMLIST.Left = 205
$UI_MOVEFROMLIST.Text = "<<"
$UI_MOVEFROMLIST.Top = 120
$UI_MOVEFROMLIST.Width = 30
$UI_MOVEFROMLIST.OnClick = "MoveFromListClick()"

$UI_SEARCHBUTTON = $Form.Controls.Button()
$UI_SEARCHBUTTON.FontBold = "True"
$UI_SEARCHBUTTON.Height = 23
$UI_SEARCHBUTTON.Left = 315
$UI_SEARCHBUTTON.Text = "Search"
$UI_SEARCHBUTTON.Top = 210
$UI_SEARCHBUTTON.Width = 75

$UI_CLEARLISTBUTTON = $Form.Controls.Button()
$UI_CLEARLISTBUTTON.Height = 23
$UI_CLEARLISTBUTTON.Left = 180
$UI_CLEARLISTBUTTON.Text = "Clear list"
$UI_CLEARLISTBUTTON.Top = 165
$UI_CLEARLISTBUTTON.Width = 75
$UI_CLEARLISTBUTTON.OnClick = "ClearListClick()"

$UI_CLEARALLBUTTON = $Form.Controls.Button()
$UI_CLEARALLBUTTON.Height = 23
$UI_CLEARALLBUTTON.Left = 315
$UI_CLEARALLBUTTON.Text = "Clear ALL"
$UI_CLEARALLBUTTON.Top = 255
$UI_CLEARALLBUTTON.Width = 75

$UI_CLOSEBUTTON = $Form.Controls.Button()
$UI_CLOSEBUTTON.Height = 23
$UI_CLOSEBUTTON.Left = 315
$UI_CLOSEBUTTON.Text = "Close"
$UI_CLOSEBUTTON.Top = 300
$UI_CLOSEBUTTON.Width = 75

$UI_COMPLIST = $Form.Controls.ListBox()
$UI_COMPLIST.Height = 150
$UI_COMPLIST.Left = 270
$UI_COMPLIST.ReadOnly = "True"
$UI_COMPLIST.Top = 45
$UI_COMPLIST.Width = 150
$UI_COMPLIST.Sorted = 1

;KD END

For $i = 0 To 100
 $UI_COMPNAMES.AddItem("HOST#$i")
Next

$Form.Show
While $Form.Visible
   $=Execute($Form.DoEvents())
Loop
Exit 1

Function MoveToListClick()

 If $UI_COMPNAMES.ListIndex <> -1
  $UI_COMPLIST.AddItem($UI_COMPNAMES.Text)
  $UI_COMPNAMES.RemoveItem($UI_COMPNAMES.ListIndex)
 Endif

EndFunction

Function MoveFromListClick()

 If $UI_COMPLIST.ListIndex <> -1
  $UI_COMPNAMES.AddItem($UI_COMPLIST.Text)
  $UI_COMPLIST.RemoveItem($UI_COMPLIST.ListIndex)
 Endif

EndFunction

Function ClearListClick()

 $UI_COMPLIST.Clear

EndFunction