Code:
Break on
;Uses NetView() UDF from http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=12;t=000059
Call "C:\KiXScripts\netview.udf"
$netview = netview("@LDOMAIN")
if @error = 0
	for each $computer in $netview
		$ShellCMD="C:\KiXScripts\portchek -h "+$computer+" 36794"
			Shell $ShellCMD
		If @error
			"No listener on port 36794 of "+$computer ?
		Else
			"YIKES! LISENER FOUND ON PORT 36794 OF "+$computer  ?
			Beep
		EndIf
	next
endif


"That all folks!"?
Get $_
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.