управление сигналом DTR на COM порте - реализация bat\cmd или vbs (а лучше c++)

управление сигналом DTR на COM1 (Аппаратный перезапуск модемов (Watchdog таймер) iRZ MC52iT, MC52iWDT и iRZ MC52PU)
http://faq.radiofid.ru/topics/36-app...-i-irz-mc52pu/
Функция реализуется путём восьмикратного поднятия-опускания сигнала DTR в течение заданного времени. Рекомендуемые значения: 0.5 сек импульс, 0.5 сек пауза

Помогите, нужно реализовать на CMD(приоритет с использованием sleep.exe)/vbs, можно WMI а лучше на C++ (скомпилированный exe)
через CMD я так понимаю нельзя заблокировать порт (handle)

это не работает:

Скрытый текст

@ echo on
mode com1 dtr=off
mode com1
sleep 2
mode com1 dtr=on
sleep -m 500
mode com1 dtr=off
sleep -m 500
mode com1 dtr=on
sleep -m 500
mode com1 dtr=off
sleep -m 500
mode com1 dtr=on
sleep -m 500
mode com1 dtr=off
sleep -m 500
mode com1 dtr=on
sleep -m 500
mode com1 dtr=off
sleep -m 500
mode com1 dtr=on
sleep -m 500
mode com1 dtr=off
sleep -m 500
mode com1 dtr=on
sleep -m 500
mode com1 dtr=off
sleep -m 500
mode com1 dtr=on
sleep -m 500
mode com1 dtr=off
sleep -m 500
mode com1 dtr=on
sleep -m 500
mode com1 dtr=off
sleep 2
pause
exit

и этот

Скрытый текст

@ echo on

echo %time%
echo Wait 500 ms (n*0.01sec)...
for /l %%i in (1,1,8) do (
mode com1 dtr=on > nul
call :sleep 50
mode com1 dtr=off > nul
call :sleep 50
)
echo %time%
pause
exit /b

:sleep
:: пауза в сотых долях сек
setlocal
call :gettick
set /a finish=%errorlevel%+%1
if %finish% geq 8640000 set finish=0
:slplabel
call :gettick
if %errorlevel% lss %finish% goto slplabel
endlocal & exit /b

:gettick
:: долей сек, прошедших с начала дня
setlocal
set t=%time: =0%
set /a tick=1%t:~9,2%-100+(1%t:~6,2%-100)*100+(1%t:~3,2%-100)*6000+(1%t:~0,2%-100)*360000
pause
endlocal & exit /b %tick%

есть на vbs через OLE DynamicWrapperX - не работает

Скрытый текст

"SETDTR = 5 ' Set DTR high
CLRDTR = 6 ' Set DTR low
' открываем нужный нам порт COM1
hFile = Wrap.CreateFile("COM1", GENERIC_WRITE, FILE_SHARE_READ, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
' опускаем DTR
s = Wrap.EscapeCommFunction(hFile, 6)

cnt=1
' запускаем цикл до 8
Do While cnt<9
WScript.Sleep 500 'кол-во мc
s = Wrap.EscapeCommFunction(hFile, SETDTR)
WScript.Sleep 500 'кол-во мc
s = Wrap.EscapeCommFunction(hFile, CLRDTR)
cnt=cnt+1
Loop
Wrap.CloseHandle(hFile)"

Скрипт на perl и python :

Скрытый текст

Для Linux можно использовать следующий Perl-скрипт:
---------------------------DTR8X.pl----------------------------------------
#!/usr/bin/perl -w
# yum install perl-Device-SerialPort # Fedora
# apt-get install libdevice-serialport-perl # Debian
# ./DTR8X.pl /dev/ttyUSB0 # syntax
use Device::SerialPort;
my $device = '/dev/ttyS0'; # default device
my $milliseconds = 500; # 0.5s delay
my $count = 8;
$device = $ARGV[0] if ($#ARGV == 0); # get device from command line
my $port=new Device::SerialPort($device) || die "new($device): $! ";
for (my $i = 0; $i <= $count; $i++) { $port->pulse_dtr_off($milliseconds); }

Для обоих операционных систем подойдет скрипт на Python:
import serial
import time

s = serial.Serial()
s.port = 'com2'
s.timeout = 2
s.open()
s.setDTR(False)

for i in range(8):
s.setDTR(True)
time.sleep(0.5)
s.setDTR(False)