[jbk]

нашел вот такой скрипт vbs... но не получается копировать по сетевому пути \\server\profiles$? скрипт только удаляет файлы....

Скрытый текст

'============================================
'Перенос содержимого десктопа пользователя
'Мосийчук Сергей (klasik_cc@mailru), 17.08.2006
'Запускается обьектом груповой политики при выходе пользователя
'============================================

On Error Resume Next
Set SHELL = CreateObject ("WScript.Shell")
Set SF = SHELL.SpecialFolders
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(SF("Desktop"))
Set colSubfolders = objFolder.Subfolders
Set WshNet = CreateObject ("WScript.Network")
DDir = "\\server\Profiles$"

'Используя рекурсию сбрасываем атрибуты всех файлов во всех каталогах и подкаталогах десктопа.
'Необходимо для последующего их удаления.

Set objParentFolder = objFSO.GetFolder(SF("Desktop"))
ShowSubfolders objParentFolder
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set objSubFolder = objFSO.GetFolder(Subfolder.Path)
ShowSubFolders Subfolder
For Each efile in objSubFolder.Files
Set gFILE = objFSO.GetFile (efile)
gFILE.Attributes = 0
Next
Next
End Sub

'копируем с последующим удалением все каталоги десктопа (соответственно с их содержимым).
'Использование здесь CopyFolder вместо MoveFolder связано с возможностью метода CopyFolder перезаписывать файл,
'если такой существует в целевой папке.

For Each objSubfolder in colSubfolders
objFSO.CopyFolder objFSO.GetFolder(SF("Desktop"))+"\"+objSubfolder.Name, DDir+WshNet.UserName+"\"
objFSO.DeleteFolder objFSO.GetFolder(SF("Desktop"))+"\"+objSubfolder.Name
Next

'теперь перебираем все файлы которые находятся на рабочем столе, и если их тип не ярлык,
'то сбрасываем атрибут на 0, копируем и убиваем.

For Each efile in objFolder.Files
Set gFILE = objFSO.GetFile (efile)
fEXT = objFSO.GetExtensionName (efile.Path)
If LCase (fEXT)<>"lnk" then
gFILE.Attributes = 0
objFSO.CopyFile efile, DDir+WshNet.UserName+"\"
objFSO.DeleteFile efile
End If
Next

[Iska]

нашел вот такой скрипт... но не получается копировать по сетевому пути \\server\profiles$ »

Для начала уберите «On Error Resume Next». Возможно, после этого увидите что именно «не получается».

[jbk]

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

objFSO.CopyFolder objFSO.GetFolder(SF("Desktop"))+"\"+objSubfolder.Name, DDir+WshNet.UserName+"\" вот в этой строке ошибка - не найден путь..... какой именно путь не пойму.. исходный? рабочий стол пользователя?

[Iska]

Вставьте перед этой строкой следующее:

Код:

WScript.Echo objFSO.GetFolder(SF("Desktop"))+"\"+objSubfolder.Name
WScript.Echo DDir+WshNet.UserName+"\"

— увидите. Возможно, поможет.

[jbk]

Iska, помогло....

теперь понял, что мне еще нужно поменять в этом скрипте... может поможете?

у меня скрипт пишет в папку \\server\Profiles$\имя_профиля
при этом папка имя_профиля должна быть создана до исполнения скрипта вручную,
как бы дописать, чтобы сам скрипт создавал папку с именем профиля (%userprofile%) в папке \\server\Profiles$ в случае ее отсутствия
и копировал бы файлы с рабочего стола в папку: \\server\Profiles$\имя_профиля\Desktop

[jbk]

Допилил скрипт сам, правда убрал папку Desktop:

Скрытый текст

Код:

'============================================  
'Перенос содержимого десктопа пользователя  
'============================================  
 
On Error Resume Next  
Set SHELL = CreateObject ("WScript.Shell")  
Set SF = SHELL.SpecialFolders  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFolder = objFSO.GetFolder(SF("Desktop"))  
Set colSubfolders = objFolder.Subfolders  
Set WshNet = CreateObject ("WScript.Network")  
Set objNet = WScript.CreateObject("WScript.Network") 
Set FSO = CreateObject("scripting.filesystemobject")

sUserName = WshNet.UserName 
folderToCheckFor = "\\filesrv\profiles$\"+sUserName
If (FSO.FolderExists(folderToCheckFor)) = False Then 
FSO.CreateFolder(folderToCheckFor) 
End If 
 
'Используя рекурсию сбрасываем атрибуты всех файлов во всех каталогах и подкаталогах десктопа.  
'Необходимо для последующего их удаления.  
 
Set objParentFolder = objFSO.GetFolder(SF("Desktop"))  
ShowSubfolders objParentFolder  
Sub ShowSubFolders(Folder)  
For Each Subfolder in Folder.SubFolders  
Set objSubFolder = objFSO.GetFolder(Subfolder.Path)  
ShowSubFolders Subfolder  
For Each efile in objSubFolder.Files  
Set gFILE = objFSO.GetFile (efile)  
gFILE.Attributes = 0  
Next  
Next  
End Sub  
 
'копируем с последующим удалением все каталоги десктопа (соответственно с их содержимым).  
'Использование здесь CopyFolder вместо MoveFolder связано с возможностью метода CopyFolder перезаписывать файл,  
'если такой существует в целевой папке.  
 
For Each objSubfolder in colSubfolders  

'WScript.Echo objFSO.GetFolder(SF("Desktop"))+"\"+objSubfolder.Name
'WScript.Echo DDir+WshNet.UserName+"\"

objFSO.CopyFolder objFSO.GetFolder(SF("Desktop"))+"\"+objSubfolder.Name, folderToCheckFor+"/"  
objFSO.DeleteFolder objFSO.GetFolder(SF("Desktop"))+"\"+objSubfolder.Name  
Next  
 
'теперь перебираем все файлы которые находятся на рабочем столе, и если их тип не ярлык,  
'то сбрасываем атрибут на 0, копируем и убиваем.  
 
For Each efile in objFolder.Files  
Set gFILE = objFSO.GetFile (efile)  
fEXT = objFSO.GetExtensionName (efile.Path)  
If LCase (fEXT)<>"lnk" then  
gFILE.Attributes = 0  
objFSO.CopyFile efile, folderToCheckFor+"/"  
objFSO.DeleteFile efile  
End If  
Next

[jbk]

есть конечно недочет... убиваются так же ярлыки интернета.... как бы их оставить?

[Iska]

Если научитесь помимо тэга [spoiler] пользоваться тэгом [code] — подскажу .

Замените:

Скрытый текст

Код:

For Each efile in objFolder.Files
Set gFILE = objFSO.GetFile (efile)
fEXT = objFSO.GetExtensionName (efile.Path)
If LCase (fEXT)<>"lnk" then
gFILE.Attributes = 0
objFSO.CopyFile efile, folderToCheckFor+"/"
objFSO.DeleteFile efile
End If
Next

на:

Скрытый текст

Код:

For Each objFile In objFolder.Files
	Select Case LCase(objFile.Name)
		Case "lnk", "url"
			' Nothing to do
		Case Else
			objFile.Attributes = 0
			objFile.Copy folderToCheckFor & "\", True
			objFile.Delete True
	End Select
Next

Не проверялось.

[jbk]

ok, научусь)

представленный код не помог - убивает все, включая ярлыки.... и lnk, и url