Здравствуйте, уважаемые

Вопрос такой: как сравнить размеры 2-х каталогов между собой?

dir /c выдает инфо о размере каталога
как этим можно воспользоваться

Кратко
Хочу сравнить размеры двух каталогов, находящихся двух на разных серверах.
И в случае, если их размеры одинаковы, то выслать сообщение на почту.

Спасибо Biz©!!!

вот рабочий вариант:

2.bat:

@echo off
if "%2" == "c:\temp1" (
echo Usage: cmpds dir1 dir2
goto :EOF
)
call :getsize "c:\temp1"
set size1=%tot%
call :getsize "c:\temp2"
set size2=%tot%
echo dir1 = %size1%
echo dir2 = %size2%
echo Total:
if "%size1%" == "%size2%" (c:\perl\bin\perl.exe c:\mail\1.pl) else @echo %1 =/= %2
set tot=
set size1=
set size2=
goto :EOF
:getsize
set /a tot=0
for /f "delims=" %%I in ('dir /s/b/a %1') do @call :1 "%%I"
rem echo total=%tot%
goto :EOF
:1
if not "%~z1" == "" set /a tot=tot+%~z1
goto :EOF

вот файл 1.pl:

use Net::SMTP;
$smtp = Net::SMTP->new('mail.com'); # connect to an SMTP server
$smtp->mail( 'user@mail.com'); # use the sender's address here
$smtp->to('user@mail.com'); # recipient's address
$smtp->data(); # Start the mail

# Send the header.
$smtp->datasend("To: user@mail.com\n");
$smtp->datasend("From: user@mail.com\n");
$smtp->datasend("\n");

# Send the body.
$smtp->datasend("Hello admin!\n");
$smtp->datasend("Backup complete successfully\n");
$smtp->dataend(); # Finish sending the mail
$smtp->quit; # Close the SMTP connection


Для того чтобы отправить сообщение по почте, установил Active Perl.
Надеюсь кому окажется полезным.

еще вопрос:

почему этот же скрипт совершенно не хочет выполняться под Win 2003 Enterprise Edition ?

эта строка как я понимаю не работает корректно, когда размеры каталогов превышают гигабайты

if not "%~z1" == "" set /a tot=tot+%~z1

cron не помогает