use Win32::NetAdmin;
# logged user
	print "-----------------------\nlogged users:\n";
	LoggedOnUsers("", \%hash)or die "LoggedOnUsers() failed: $^E";
        foreach (keys %hash) {
	     print "$_ ->".$hash{$_}."\n";
           
       }