mnshome.info
marzenia się spełniają



  Включение и Выключение доступа по RDP скриптом
05.11.2014 11:38

Задача сводится в написании скрипта, способного включать и выключать доступ к RDP. Вот решение:

#!/usr/bin/perl -w
#
# rdp.cgi?status=on
# rdp.cgi?status=off
#
use strict;
use CGI;
my $q = new CGI;
print $q->header(-type => "text/plain; charset=cp866");
print 'RDP switcher 1.00/$Id: rdp.cgi 14 2014-11-05 09:24:17Z $', "\n";
my $status = $q->param('status') || 'off';
my $cmd = 'reg add "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server" /v fDenyTSConnections /t REG_DWORD /d %d /f';
print " --> ";
my $val = $status eq 'on' ? 0 : 1;
printf "%s\n", $val ? "OFF" : "ON";
system(sprintf($cmd, $val)) or printf("%s\n", $!);
print "Done. Bye\n";

статья хорошего человека: http://susl-ik.blogspot.de/2013/09/bat-rdp.html

 

THUD XYZZY PLUGH FRED WALDO GARPLY
GRAULT CORGE QUUZ QUX BAZ BAR FOO

День памяти перевода часов на летнее время

0
0
0
days
:
0
0
hrs
:
0
0
min
:
0
0
sec

поиск по дате...
поиск по содержимому...
GGCzat 1.00
Tagi
Artefakty
06.05.2016 10:42:36
Создать RESTfull обработчик как модуль
24.06.2017 17:34:47
MNSHOME: Переходить на Centos!
19.08.2015 11:35:42
Переезд разработчиков на тестовый MySQL сервере
28.12.2015 10:44:39
MDScore: Marionette.js
02.06.2015 13:52:56
С Даши за ECB/VTB24
30.10.2017 10:40:53
Создать функционал 2 в 1: mod_perl библиотеку для получения отчета по бэкапам за последние сутки
29.11.2017 10:38:08
Создать простые функции криптования AES256+Blowfish+base64
01.12.2017 10:37:43
SubProject: static-site
Thu, 28 Feb 2019 10:44:39 +0400

Linki zewnętrzne

#OPERA
Czytam
GRY
MnshomeInfo
Monitoring
Photo
Przyjaciele
Serwisy
fla-master

IP

Valid XHTML 1.0 Transitional

Valid CSS!


Copyright © 1998-2017 Serż Minus. All rights reserved


do góry