Break On
$Op=SetOption('NoVarsInStrings','On')
$System = CreateObject("Kixtart.System")


;KD START

$Form = $System.Form()
$Form.BackColor = 212,208,200
$Form.FontSize = 8,25
$Form.Height = 585
$Form.Left = 90
$Form.Text = "Kandidaten PC's"
$Form.Top = 12
$Form.Width = 354

global $_pingers
MakeKamer('NL-KDKF7PM',"Kamer 1 (203)",'SHELL "\\nlmoon\apps\KandPC\NL-KDKF7PK-Kamer1.bat"')
MakeKamer('NL-TKDBYB1L',"Kamer 2 (204)",'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYB1L-Kamer2.bat"')
MakeKamer('some',"Kamer 3 (205)",'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYA7P-Kamer3.bat"')
MakeKamer('someother',"Kamer 4 (206)",'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYA8W-Kamer4.bat"')
MakeKamer('yep',"Kamer 5 (207)",'SHELL "\\nlmoon\apps\KandPC\NL-KDKK0HY-Kamer5.bat"')
MakeKamer('basta',"Kamer 6 (208)",'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYB1K-Kamer6.bat"')
MakeKamer('blaah',"Kamer 7 (209)",'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYA7W-Kamer7.bat"')
MakeKamer('weirdWKSTAnames',"Kamer 8 (210)",'SHELL "\\nlmoon\apps\KandPC\NL-TKDBYB1X-Kamer8.bat"')
MakeKamer('aintThey',"Kamer 9 (211)",'SHELL "\\nlmoon\apps\KandPC\NL-KGX150-Kamer9.bat"')

 
$Label1 = $Form.Controls.Label()
$Label1.BackColor = 212,208,200
$Label1.FontBold = "True"
$Label1.FontSize = 12,25
$Label1.Height = 36
$Label1.Left = 30
$Label1.Text = "Klik op knop om PC op te starten"
$Label1.Top = 15
$Label1.Width = 280

$Button3 = $Form.Controls.Button()
$Button3.FontSize = 8,25
$Button3.Height = 23
$Button3.Left = 210
$Button3.Text = "TestPC-Aan"
$Button3.Top = 150
$Button3.Width = 75
$Button3.OnClick = 'SHELL "\\nlmoon\apps\KandPC\NL-KDKF7PM.bat"'
$Button12 = $Form.Controls.Button()
$Button12.FontSize = 8,25
$Button12.Height = 24
$Button12.Left = 210
$Button12.Text = "TestPC-overname"
$Button12.Top = 195
$Button12.Width = 111
$Button12.OnClick = 'SHELL "C:\Program Files\RealVNC\vncviewer.exe NL-KDKF7PM"'

$Timer = $Form.Timer(5000) 
$Timer.onTimer = 'PingEmAll()'

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

Function MakeKamer($pcName, $inputName,$inputClick)
dim $button,$checkBox
 if isDeclared($_GamerButton_TOP) ;is this the first time this udf is called?
  $_GamerButton_TOP = $_GamerButton_TOP + 45
 else
  ;it is, lets make the var and define the start location for the button.
  Global $_GamerButton_TOP
  $_GamerButton_TOP = 105
 endif

 $button = $Form.Controls.Button()
 $button.FlatStyle = 3
 $button.FontSize = 8
 $button.Height = 24
 $button.Left = 0
 $button.Text = $inputName
 $button.Top = $_GamerButton_TOP
 $button.Width = 95
 $button.OnClick = $inputClick
 
 $CheckBox = $Form.Controls.CheckBox()
 $CheckBox.BackColor = 212,208,200
 $CheckBox.CheckAlign = 16
 $CheckBox.CheckState = 0
 $CheckBox.FontSize = 8
 $CheckBox.Height = 21
 $CheckBox.Left = 105
 $CheckBox.Text = $pcName
 $CheckBox.Top = $_GamerButton_TOP
 $CheckBox.Width = 100
 $CheckBox.tag = $pcName ;pinger uses this tag.

 redim $_pingers[ubound($_pingers)+1]
 $_pingers[ubound($_pingers)] = $CheckBox
endfunction

Function PingEmAll()
dim $system
For each $system in $_pingers
 If Ping($system.tag)
  $system.Checked = "True"
 Else
  $system.Checked = "False"
 EndIf
Next
EndFunction

Function Ping($PC)
DIM $PC
shell '%Comspec% /C ping -n 1 ' + $PC + ' | find /C "TTL=" > nul'
$Ping = NOT @ERROR
EndFunction