#! c:/perl/bin/perl.exe -slw
use strict;

use Win32;
use Win32::NetAdmin qw(LoggedOnUsers);
use Win32::AdminMisc;

use CGI qw (:standard);

my $data = param('hostname') || Win32::NodeName();
my $user = Win32::AdminMisc::GetLogonName();

print "\n\nHello $user,...\n";
print "Remote Hostname is => $data\n";

my $IP = Win32::AdminMisc::GetHostAddress($data);

print "Remote TCP/IP Address is => $IP\n";


### THIS BIT BELOW DOESN’T SEEM TO WORK!###

if (! LoggedOnUsers( "$data", my %user_ref))
{
	print "\n\n Not happening\n\n";
}
else
{
	print "\n\nwahey\n\n";
}