Break On
Shell "PING "+@WKSTA
? @ERROR": "@SERROR
Shell "PING 192.168.222.3"
? @ERROR": "@SERROR

		Shell 'PortQry.exe -n '+$ipaddr+' -e 135 -nr -q'
		$PC = iif(@ERROR,'Not Windows','Windows')
		? $pc

break on

$wksta = @WKSTA

shell '%comspec% /c ping -n 2 $wksta | find /i "TTL=" >NUL 2>NUL'

if @ERROR = 0
 ?"$wksta is accessible!"
else
 ?"$wksta is not accessible!"
endif

exit 0

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 $_  

 
Function TNServerUp($server,$port)
  Dim $output,$,$fh,$line,$path
  $output='%temp%\output.txt'
  If Exist($output)
    Del $output
  EndIf
  Run '%comspec% /c telnet -f ' + $output + ' ' + $server + ' ' + $port
  Sleep 2
  $=EndProc('telnet.exe')
  Sleep 1
  $fh=FreeFileHandle()
  If Open($fh,$output)=0
    $line=ReadLine($fh)
    While @ERROR=0
      If Left($line,3)=220
        $TNServerUp=1
      EndIf
      $line=ReadLine($fh)
    Loop
    $=Close($fh)
  EndIf
  If Exist($output)
    Del $output
  EndIf
EndFunction

 

Quote:

---

Or - are you looking to test specifically whether telnet is available ?

-Shawn

---

This was what I was looking for.
I will try the code sent by Allen. I hope my problem will be solved.
Thanks a lot