Backup INTRANET

[vincanto1955]

Salve a tutti, per cortesia avrei bisogno di un vostro aiuto per uno script che mi effettua il backup di alcune cartelle presenti sul server, se il backup lo faccio sul server tutto funziona ma ho difficoltà a trasferire iol tutto su di un pc con cartella condivisa con privilegio di scrittura e lettura (il tutto viene svolto all'interno di una INTRANET).
Lo script è il seguente:

'########################################
[B]var_per_BAC = "D:\_BACKUP" (funziona)
var_per_BAC = "\\15200pc052\backup" (non funziona)
var_per_01 = "C:\inetpub\wwwroot\proc_ISPESL_01\_CONTENITORE[/B]
'#####################################


SQL_N_backup = " SELECT TOP 1 * from AA_cartella where id_SEDE =" & in_id_SEDE & " order by CART_N_backup desc "
Set rs_N_backup = Connes.Execute(SQL_N_backup)

var_N_backup    =    cint(rs_N_backup("CART_N_backup")+1)

if len(var_N_backup) < 5 then
    if len(var_N_backup) = 1 then
    var_N_backup = "0000" & var_N_backup 
    elseIf len(var_N_backup) = 2 then
    var_N_backup = "000" & var_N_backup
    elseIf len(var_N_backup) = 3 then
    var_N_backup = "00" & var_N_backup
    elseIf len(var_N_backup) = 4 then
    var_N_backup = "0" & var_N_backup
    end if
else
var_N_backup = var_N_backup
end if

var_CART_bac    =var_N_backup&"_"&giorno&"_"&mese&"_"&anno
'######CREO LA CARTELLA PER IL BACKUP##########################
Set objFso = Server.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(var_per_BAC&"\"&var_CART_bac) Then
Response.Redirect(back & "?err=507&var_BK="&var_CART_bac)
else
objFso.CreateFolder(var_per_BAC&"\"&var_CART_bac)
End If

Set objFso = Nothing
'######CREO LA CARTELLA PER IL BACKUP##########
rs_N_backup.Close
Set rs_N_backup = Nothing
'########################################
var_B_sel_1        =    split(var_B_sel,",")
for ctInd=0 TO ubound(var_B_sel_1)

SQL_matr = " SELECT * from AA_cartella where id_SEDE =" & in_id_SEDE & " and id_CART = " & var_B_sel_1(ctInd)
Set rs_matr = Connes.Execute(SQL_matr)
while not rs_matr.eof

var_matr    =    rs_matr("CART_nome")

matr_server        =var_per_01&"\"&rs_matr("CART_nome")
matr_backup        =var_per_BAC&"\"&var_CART_bac&"\"&var_matr

    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    objFSO.copyFolder matr_server, matr_backup

    If not objFSO.FolderExists(matr_server) Then
        Response.Redirect(back & "?err=506")
        Response.End
        End If

    objFSO.DeleteFolder(matr_server)

    Set objFSO = Nothing

rs_matr.movenext
wend
rs_matr.Close
Set rs_matr = Nothing

next 

Vi sono grato per l'aiuto buona giornata