FYI--

For those who don't have the module installed:

http://www.codestructure.com/docs.htm


-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Lyle Kopnicky
Sent: Thursday, June 09, 2005 12: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

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

Reply via email to