Листинг 3

:: MigrationCompare.bat
@Echo off
@Title Diruse Comparison Script
:: Set your Diruse location here.
:: Введите путь к утилите DirUse
SET DiruseLOC=C:Diruse.exe
:: Set your output file location here.
:: Задайте путь к выходному файлу
Set OutputLog=D:RoboMigrationCompareLog.csv
:: Set your share list location here.
::Задайте путь к списку разделяемых ресурсов
Set ShareList=D:RoboMigrationShares.txt
:: Set your source server location here.
:: Задайте сервер-источник
Set SourceSrvr=ServerA
:: Set your destination server location here.
:: Задайте сервер-приемник
Set DestSrvr=ServerB
:: Note: Shares with spaces or ampersands in share names are not supported by this script.
:: Ресурсы, в имени которых присутствуют пробелы и символ &, не поддерживаются
::*************************************************
ECHO Source Location, Source Size (KB), Source File Count, Dest Location, Dest Size (KB), 
Dest File Count, Results>»%OutputLog%»
For /F «tokens=*» %%i in (%ShareList%) do (Set Share=%%i) & (Call :Checkem)
::Run ends here
@Title Diruse Comparison Run Completed
Goto :EOF
:Checkem
:: ******* Should not need to modify below here **********************
::*******не изменяйте эти строки*********************************
SET RES=OK
SET SrcSZ=0
SET SrcFC=0
SET DestSZ=0
SET DestFC=0
@Title %Share% source diruse in progress
for /F «tokens=1,2,3,4» %%i in (?%DiruseLOC% /K «\%SourceSrvr%\%Share%»^|find « TOTAL:»?) 
do (Set SrcSZ=%%i) & (Set SrcFC=%%j)
@Title %Share% destination diruse in progress
for /F «tokens=1,2,3,4» %%i in (?%DiruseLOC% /K «\%DestSrvr%\%Share%»^|find « TOTAL:»?) do 
(Set DestSZ=%%i) & (Set DestFC=%%j)
if NOT «%SrcSZ%»==»%DestSZ%» SET RES=Warning!
if NOT «%SrcFC%»==»%DestFC%» SET RES=Warning!
ECHO «\%SourceSrvr%\%Share%» %SrcSZ% %SrcFC% «\%DestSrvr%\%Share%» %DestSZ% 
%DestFC% %RES%
ECHO 
«\%SourceSrvr%\%Share%»,%SrcSZ%,%SrcFC%,»\%DestSrvr%\%Share%»,%DestSZ%,%Dest
FC%,%RES%>>»%OutputLog%»
GOTO :EOF