22°C
завтра: 17°C
Погода в Перми
22°C
вечером23°C
ночью16°C
завтра17°C
Подробно
 63,98
−0.3558
Курс USD ЦБ РФна 20 июня
63,9794
−0.3558
 71,64
−0.5914
Курс EUR ЦБ РФна 20 июня
71,6377
−0.5914
  • Пишу примерно это:
    Set wshFso = WScript.CreateObject("Scripting.FileSystemObject")
    Set wshNet = WScript.CreateObject( "WScript.Network")
    user = wshNet.UserName
    comp = wshNet.ComputerName
    Folder = "c:\backup\" & user
    if wshFso.FolderExists(Folder) = false then
    wshFso.CreateFolder(user)
    wshFso.CreateFolder(user & "\desktop")
    wshFso.CopyFolder "\\" & comp &"\c$\documents and settings\" & user & "рабочий стол\*.*","c:\backup\"& user &"\desktop"
    end if

    Ругается на предпоследнюю строчку...путь не найден...


    п.с. вот что значит, когда не дают денег на нормальную систему создания бэкапов...

    ВАЗ 2112-2001 г.в./NISSAN PRIMERA-2002 г.в./DODGE CALIBER-2008 г.в./KIA RIO-2013 г.в.

  • wshFso.CopyFolder "\\" & comp &"\c$\documents and settings\" & user & "\рабочий стол\*.*","c:\backup\"& user &"\desktop"

    Wir werden alle sterben

  • :смущ: :respect:

    Поправил...но проблема осталась...и как мне кажется она заключается в C$...не хочет он работать со системной шарой...

    ВАЗ 2112-2001 г.в./NISSAN PRIMERA-2002 г.в./DODGE CALIBER-2008 г.в./KIA RIO-2013 г.в.

  • wshFso.CopyFolder "\\" & comp &"\c$\documents and settings\" & user & "\рабочий стол","c:\backup\"& user &"\desktop"

    Надо убрать "\*.*" ты же директорию копируешь, а не файлы

    Wir werden alle sterben

  • Пробовал все:
    рабочий стол
    рабочий стол\
    рабочий стол\*.*
    Не канает...перерыл кучу скриптов...нигде нет доступа именно к скрытой шаре...к обычной все работает....

    ВАЗ 2112-2001 г.в./NISSAN PRIMERA-2002 г.в./DODGE CALIBER-2008 г.в./KIA RIO-2013 г.в.

  • У мя работает конкретно этот подправленый скрипт...
    Но учти, что у обычных узверей доступа на C$ нет.


    В ответ на: Set wshFso = WScript.CreateObject("Scripting.FileSystemObject")
    Set wshNet = WScript.CreateObject( "WScript.Network")
    user = wshNet.UserName
    comp = wshNet.ComputerName
    Folder = "c:\backup\" & user
    if wshFso.FolderExists(Folder) = false then
    wshFso.CreateFolder(user)
    wshFso.CreateFolder(user & "\desktop")
    wshFso.CopyFolder "\\" & comp &"\c$\documents and settings\" & user & "\рабочий стол","c:\backup\"& user &"\desktop"
    end if

    Wir werden alle sterben

  • Вери Вери сенкс.... :respect: :respect:

    Как всегда все в мелочах....именно эти 2 ошибки и давали глюк...

    ВАЗ 2112-2001 г.в./NISSAN PRIMERA-2002 г.в./DODGE CALIBER-2008 г.в./KIA RIO-2013 г.в.

Записей на странице:

Перейти в форум

Модератор: