> -Original Message-
> From: Adam Stern [mailto:[EMAIL PROTECTED]
> Sent: 14 October 2005 14:19
> To: Ramlakhan, Dave; [EMAIL PROTECTED]
> Cc: Perl-Win32-Admin@listserv.ActiveState.com
> Subject: RE: Remote User
>
>
> That is a lot shorted than the code I
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: 13 October 2005 21:53
> To: Perl-Win32-Admin@listserv.ActiveState.com
> Subject: Re: Remote User
>
>
> Adam Stern <[EMAIL PROTECTED]> wrote:
> >Is there a way to tell who is currently logged into another
>
This works for me:
#!/usr/bin/perl
# file: /home/dr00/scripts/network/portscan.pl
use IO::Socket;
my $host = shift || 'localhost:';
for ($port=1 ; $port < 1024 ; $port++) {
my $server = $host . ":" . $port;
if (my $fh = IO::Socket::INET->new($server)) {
pr
