<?
$addr = '172.18.0.1'; // ip address
$start = 0; // start port
$stop = 1024; // stop port

for($i=$start;$i<$stop;$i++){
   @$fp = fsockopen($addr, $i, $errno, $errstr, 0.3);
   $status = ($fp) ? "opened" : "closed";
   echo "{$addr}:{$i} {$status}\n";
   @fclose($fp);
}
?>

netstat -an | grep LISTENING

Microsoft Windows XP [Версия 5.1.2600]
(С) Корпорация Майкрософт, 1985-2001.

C:\Documents and Settings\я>netstat -an | grep LISTENING
File STDIN:
  TCP    0.0.0.0:113            0.0.0.0:0              LISTENING
  TCP    0.0.0.0:135            0.0.0.0:0              LISTENING
  TCP    0.0.0.0:445            0.0.0.0:0              LISTENING
  TCP    0.0.0.0:1723           0.0.0.0:0              LISTENING
  TCP    89.222.183.222:139     0.0.0.0:0              LISTENING
  TCP    172.18.17.16:139       0.0.0.0:0              LISTENING

C:\Documents and Settings\я>

netstat -an | find "LISTENING"

C:\Programs\Type>grep
"grep" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\>grep
Turbo GREP 5.5 Copyright (c) 1992, 1999 Inprise Corporation
Syntax:  GREP [-rlcnvidzuwo] searchstring file[s] or @filelist
         GREP ? for help