use strict;
use Win32::Lanman;

my $target = 'client01';
Win32::Lanman::WTSLogoffSession($target, 0);

# See also:
# WTSEnumerateSessions() 
# WTSQuerySessionInformation()
# WTSDisconnectSession()