Пишу примерно это:
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

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


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

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

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

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

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

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

У мя работает конкретно этот подправленый скрипт...
Но учти, что у обычных узверей доступа на 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

Вери Вери сенкс....

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