shell '%Comspec% /C ping -n 1 ' + $PC + ' | find /C "TTL=" > nul'
$Ping = not @error

$Timer = $Form.Timer(1000)
$Timer.onTimer = 'If Ping($Computer)
 $CheckBox1.Checked = "True"
Else
 $CheckBox1.Checked = "False"
EndIf 
'

DIM $Computers
$Computers = 'NL-KDKF7PM','NL-TKDBYB1L'
$Timer = $Form.Timer(5000) 
For $count=0 to ubound($Computers)
 $Timer.onTimer = $Timer.onTimer + 
  'If Ping(' + $Computers[$count] + ')
   $CheckPCk' + ($count+1) + '.Checked = "True"
  Else
   $CheckPCk' + ($count+1) + '.Checked = "False"
  EndIf'
Next

Quote:

---

k, your code is kinda not optimized...
you could consider using listview.

or, just doing the button creation into array would ease the coding a lot.

---

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

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

Break On
$System = CreateObject("Kixtart.System")


;************* Form **************
$Form = $System.Form()
$Form.Height = 350
$Form.Left = 37
$Form.Text = "Subnet Pinger"
$Form.Top = 22
$Form.Width = 250
;**************************************

$PanelTop = $Form.Panel()
$PanelTop.BorderStyle = 1  
$PanelTop.Dock = 1  
$PanelTop.Height = 35
$nul = $Form.Controls.Add($PanelTop)

$PanelBottom = $Form.Panel()
$PanelBottom.BorderStyle = 1  
$PanelBottom.Dock = 2  
$PanelBottom.Height = 25
$nul = $Form.Controls.Add($PanelBottom)

$PanelCenter = $Form.Panel()
$PanelCenter.BorderStyle = 1  
$PanelCenter.Dock = 5  
$nul = $Form.Controls.Add($PanelCenter)

$TextBox3 = $Form.TextBox('',5,5,145,20)

$Button4 = $Form.Button('Load Subnet',160,5,75,20)
$button4.OnClick = "LoadSubnet"

$ListView5 = $PanelCenter.ListView()
$ListView5.Dock = 5  
$ListView5.GridLines = "True"
$ListView5.AllowColumnReorder = "True"
$ListView5.FullRowSelect = "True"

$nul = $PanelCenter.Controls.Add($ListView5)
$nul = $ListView5.Columns.Add("IPAddress",100)
$nul = $ListView5.Columns.Add("Status",119)

$nul = $PanelTop.Controls.Add($TextBox3)
$nul = $PanelTop.Controls.Add($Button4)



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

Function LoadSubnet
	if not instr($TextBox3.Text,'.')
		$TextBox3.Text =join(split(@IPADDRESS0),'')
	endif
	$ListView5.Items.Clear
	if not instr($TextBox3.Text,"/")
		$TextBox3.Text = $TextBox3.Text +'/24'
	endif
	$arrIPs = EnumIPRange($TextBox3.Text)
	for each $ip in $arrIPs
		if Ping($ip)
			$item = $ListView5.Items.Add($IP)
		endif
	next

EndFunction

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

Function EnumIPRange($sIPaddress,optional $sNetMask)
    Dim $aiStartRange,$aiMaskBits,$aiEndRange[4],$iHostCount,$i
    Dim $cidr,$fac,$mask,$temp,$temp2,$a,$b
    Dim $iOctet1,$iOctet2,$iOctet3,$iOctet4
    Dim $tempArray[1],$arrOctect[4]

    if instr($sIPaddress,'/')
        $cidr=val(split($sIPaddress,'/')[1])
        $sIPaddress=split($sIPaddress,'/')[0]
        $sNetMask=''
        for $a = 1 to $cidr
            $mask=$mask+'1'
            next
        for $a = $cidr + 1 to 32
            $mask=$mask+'0'
            next
        for $a = 0 to 3
            $temp=substr($mask,$a*8+1,8)
            $temp2=0
            $fac=256
            for $b=1 to 8
                $fac = $fac / 2
                $temp2 = $temp2 + val(substr($temp,$b,1)) * $fac
                next
            if not $a=3
                $sNetMask=$sNetMask+$temp2+ '.'
            else
                $sNetMask=$sNetMask+$temp2
                endif
            next
        endif

    $iHostCount=1

    $aiStartRange=Split($sIPaddress,".")
    $aiMaskBits=Split($sNetMask,".")
    Redim Preserve $aiStartRange[4]
    Redim Preserve $aiMaskBits[4]

    For $i = 0 To 3
        $aiMaskBits[$i] =Val($aiMaskBits[$i]) & 255
        $aiStartRange[$i] =Val($aiStartRange[$i]) & $aiMaskBits[$i]
        $aiEndRange[$i] =$aiStartRange[$i]+(255-$aiMaskBits[$i])
        $iHostCount =$iHostCount*($aiEndRange[$i]-$aiStartRange[$i]+1)
        Next

    redim $temparray[$iHostCount]
    $i=0
    For $iOctet1 = $aiStartRange[0] To $aiEndRange[0]
        For $iOctet2 = $aiStartRange[1] To $aiEndRange[1]
            For $iOctet3 = $aiStartRange[2] To $aiEndRange[2]
                For $iOctet4 = $aiStartRange[3] To $aiEndRange[3]
                    $temparray[$i]=''+$iOctet1+'.'+$iOctet2+'.'+$iOctet3+'.'+$iOctet4
                    $i=$i+1
                    Next
                Next
            Next
        Next
    $EnumIPRange=$temparray
    EndFunction

 If Ping($system.tag)
  $system.Checked = "True"
 Else
  $system.Checked = "False"
 EndIf

"Pinging: " $system.tag ?
 If Ping($system.tag)
  "Response" ?
  $system.Checked = "True"
 Else
  "system is offline" ?
  $system.Checked = "False"
 EndIf