# This code configures the RemoteControl setting of a Terminal session.
# ------ SCRIPT CONFIGURATION ------

use Win32::OLE qw(in);

use constant DISABLE => 0;
use constant ENABLE_INPUT_NOTIFY => 1;
use constant ENABLE_INPUT_NO_NOTIFY => 2;
use constant ENABLE_NO_INPUT_NOTIFY => 3;
use constant ENABLE_NO_INPUT_NO_NOTIFY => 4;

$strComputer = '.';
$intSetting = ENABLE_NO_INPUT_NO_NOTIFY;
$strTerminal = 'RDP-Tcp';
# ------ END CONFIGURATION ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$colItems = $objWMI->ExecQuery('Select * from Win32_TSRemoteControlSetting Where ' . ' TerminalName = \'' . $strTerminal . '\'');
foreach my $objItem (in $colItems) {
    $intRC = $objItem->RemoteControl($intSetting);
    if ($intRC) {
        print "Error setting RemoteControl value\n";
    }
    else {
        print "Set RemoteControl value: $intSetting\n";
    }
}