You should use PPM to install the Win32::Lanman module.  It's much easier than 
running your own installation.  Installing Lanman with PPM should also install 
the Docs.  

You can get the docs by opening file \Perl\html\index.html with your browser.  
In the Modules section, under Win32, you should see a section for Lanman :-)

Kirk W. Batzer
Enterprise Systems and Operations
 
Rutgers University
65 Davidson Rd.
Piscataway, NJ 08854
Phone:  (732) 445-6266
Fax:    (732) 445-5493
Email:  [EMAIL PROTECTED]



-----Original Message-----
From: Lyle Kopnicky [mailto:[EMAIL PROTECTED] 
Sent: Thursday, June 09, 2005 2:03 PM
To: Kirk W. Batzer
Cc: [email protected]
Subject: Re: Win32::Lanman::WTSQueryConfig not working


Kirk W. Batzer wrote:

>Hi I looked in the Win32::Lanman documentation.  I didn't see anything on 
>"Win32::Lanman::WTSQueryConfig". However, there is a function/method called:  
>"Win32::Lanman::WTSQueryUserConfig".  Below is the example shown in the docs:
>  
>
Thanks, it now works, after changing to what I have below.  Please let 
me know where I can get the documentation!  I have searched in vain for it.

Regards,
Lyle Kopnicky

----

use strict;
use Win32::Lanman;

my $userName = $ARGV[0];
my %config;

if (Win32::Lanman::WTSQueryUserConfig('', $userName,
  [Win32::Lanman::WTSUserConfigAll], \%config)) {
    foreach (sort keys %config) {
        print "$_ => $config{$_}\n";
    }
} else {
    my $error = Win32::Lanman::GetLastError();
    my $errmsg = Win32::Lanman::FormatMessage($error);
    print "Failed to query user config info\n";
    print "error = $error\n";
    print "message = $errmsg\n";
}



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

Reply via email to