I cannot seem to find the module on CPAN?

Any ideas where I can get the module?

-----Original Message-----
From: Price, Steve A [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 08, 2002 8:44 AM
To: 'Charles McIntyre'; '[EMAIL PROTECTED]'
Subject: RE: logged on user



Win32::Lanman::NetWkstaGetInfo( $machine, \%info)
$info{'logged_on_users'} should contain the number of users logged into the
machine $machine

not tested, just taken from the pod.

regards

Steve


-----Original Message-----
From: Charles McIntyre [mailto:[EMAIL PROTECTED]]
Sent: 07 February 2002 23:23
To: [EMAIL PROTECTED]
Subject: logged on user


I'm trying to write a script that will return 1 if a user is logged on to a 
Win2000 workstation.  I don't need to know their name, just if someone is 
logged on or not.  I've tried using Win32::NetAdmin::LoggedOnUsers, but it 
doesn't give any result.

        Win32::NetAdmin::LoggedOnUsers($computer, \%result);
        $key = keys %result;
        print "$computer: $key $result{$key}\n";

Is my code wack, or am I missing something?  Are there some security issues 
with RestrictAnonymous (the workstations are set at 0), or other registry 
security settings?

Any other modules, clues?

Thanks!!!

Charles

___________________________

Charles McIntyre
PC/UNIX Support Engineer
Instructional Computing, UCSC
ph: 831/459-5746

got a question? see http://ic.ucsc.edu/help

_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


                Email Disclaimer

The information in this email is confidential and may be legally privileged.
It is intended solely for the addressee.  Access to this email by anyone
else 
is unauthorised.
If you are not the intended recipient, any disclosure, copying, distribution

or any action taken or omitted to be taken in reliance on it, is prohibited
and may be unlawful.  When addressed to our clients any opinions or advice
contained in this email are subject to the terms and conditions expressed in

the governing KPMG client engagement letter.

_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to