>Yup, one small error. <STDIN> includes the newline at the end of
>the I.P. address. Try:
>
>use Win32::NetAdmin;
>$host = <STDIN>;
>chomp($host);
Well, I seem to be getting further along than I have been, and for that I thank
you. However, I'm getting some really odd output.
Here is my script:
-------------------------------
#!c:/perl/bin/perl.exe
use Win32::NetAdmin qw(LoggedOnUsers);
chomp($host = <STDIN>);
LoggedOnUsers($host, \%userinfo) ||
die $!;
while($key, $value = each %userinfo)
{
print $key, " ", $value, "\n";
}
--------------------------------
When I run this with the name of a student workstation I get no output.
When I run it locally on my own workstation I get a very long column of two-digit
numbers with a space in front of each of them: sort of like this:
29
43
17
22
etc...
Is this another one of those newbie mistakes?
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
