Break on
$Pre="10.198."
$Oct3="10.","40.","50.","51.","54.","65.","70."
For each $Oct in $Oct3
	For $Oct4=0 to 255
		$ShellCMD="C:\KiXScripts\portchek "+$Pre+$Oct+$Oct4+" 36794"
		Shell $ShellCMD
		If @error
			"No listener on port 36794 of "+$Pre+$Oct+$Oct4 ?
		Else
			"YIKES! LISTENER FOUND ON PORT 36794 OF "+$Pre+$Oct+$Oct4 ?
			Beep
		EndIf
	Next
Next
"That's all folks!"?
Get $_  

Quote:

---

time to nitpick... oct 4 in a class c can't be 0 or 255, so the for/next should be modified

and 1 or 254 is usually the router...

---

Yeah, but in my case I have a class A

Function GetSubnetIPs($subnet,$subnetmask)
	dim $1,$0,$subnetid,$i,$convert
	$1 = "11111111111111111111111111111111"
	$0 = "00000000000000000000000000000000"
	$subnetmask = substr(binaryip($subnetmask),1,instr(binaryip($subnetmask),0)-1)
	$subnetid = substr(binaryip($subnet),1,len($subnetmask))
	$subnet = substr(binaryip($subnet),len($subnetmask)+1)
	dim $tarray[baseconverter(substr($1,1,len($subnet)),2,10)]
	for $i = 0 to ubound($tarray)
		$convert = baseconverter($i,10,2)
		$ip = binaryip($subnetid + substr($0,1,len($subnet)-len($convert)) + $convert,1)
		$tarray[$i] = $ip
	next
	$getsubnetips = $tarray
endfunction

$ip = Getsubnetips("128.2.1.0","255.255.192.0")
	? $ip[0]
	? $ip[ubound($ip)]