set beginpool=1
set endpool=255
set subnet=\\192.168.1.
set storepath=D:\Archive\

net use h: /delete
CLS
FOR /L %%I in (%beginpool%,1,%endpool%) do (
net use h: %subnet%%%I\d$ /user:srt\Administrator lokosrt
robocopy h: %storepath%%subnet%%%I archive.rar /mt:128 /xo /xx /r:5 /w:3
net use h: /delete
)