Steve,
The Win32::Lanman library has this function.
James
>From the Lanman POD:
WTSEnumerateSessions($server, \@sessions)
Enumerates all sessions on the WTS server \\testserver.
if(!Win32::Lanman::WTSEnumerateSessions("\\\\testserver", \@sessions))
{
print "Sorry, something went wrong; error: ";
# get the error code
print Win32::Lanman::GetLastError();
exit 1;
}
foreach $session (@sessions)
{
foreach $key (keys %$session)
{
print "$key=${$session}{$key}\n";
}
}
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
