VBS/WSH/JS - Очистка рабочего стола/моих документов

[jbk]

ok, научусь)



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

[Iska]

Iska, да код не мой, я вообще ничего не понимаю в программировании).... изменил как мог для себя...



On Error Resume Next в рабочем скрипте, я закомментил....



если добавлю Option Explicit

то тогда вообще не понимаю что и как делать.....

[jbk]

jbk, пробуйте:



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

[spoiler]Код:

[/spoiler]

Код: Выделить всё

Option Explicit
Dim objFSO
Dim strDestFolder
Dim strUserNameDestFolder
Dim strSourceFolder
Dim strFullDestFolder
Dim objFolder
Dim objFile
strDestFolder = "\\server\Profiles$"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strDestFolder) Then
	strUserNameDestFolder = objFSO.BuildPath(strDestFolder, WScript.CreateObject("WScript.Network").UserName)
	If Not objFSO.FolderExists(strUserNameDestFolder) Then
		objFSO.CreateFolder strUserNameDestFolder
	End If
	strSourceFolder = WScript.CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
	strFullDestFolder = objFSO.BuildPath(strUserNameDestFolder, objFSO.GetFileName(strSourceFolder))
	If Not objFSO.FolderExists(strFullDestFolder) Then
		objFSO.CreateFolder strFullDestFolder
	End If
	With objFSO.GetFolder(strSourceFolder)
		.Copy strFullDestFolder, True
	End With
	strSourceFolder = WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop")
	strFullDestFolder = objFSO.BuildPath(strUserNameDestFolder, objFSO.GetFileName(strSourceFolder))
	If Not objFSO.FolderExists(strFullDestFolder) Then
		objFSO.CreateFolder strFullDestFolder
	End If
	With objFSO.GetFolder(strSourceFolder)
		.Copy strFullDestFolder, True
		For Each objFolder In .SubFolders
			'WScript.Echo "[" & objFolder.Path & "]"
			.Attributes = 0
			.Delete True
		Next
		For Each objFile In .Files
			Select Case LCase(objFSO.GetExtensionName(objFile.Name))
				Case "lnk", "url"
					' Nothing to do
				Case Else
					With objFile
						'WScript.Echo objFile.Path
						.Attributes = 0
						.Delete True
					End With
			End Select
		Next
	End With
Else
	WScript.Echo "Can't find destination folder [" & strDestFolder & "]."
	WScript.Quit 1
End If
Set objFSO = Nothing
WScript.Quit 0

[Aelksey Kha]

Добрый день Iska.



У меня вопрос по скрипту, который вы опубликовали.



Я разместил данный скрипт в GPO при выходе пользователя из системы.

Все успешно переносится в папку на сервер, но не удаляется информация из папки мои документы и возникает окно с ошибкой 800a0046.



В чем может быть дело.



Так же на рабочем столе не сохраняются lnk, rdp и url. У некоторых пользователей полностью, у некоторых частично.



Еще почему то Windows 10 очень долго думает при выходе из системы и при перезагрузке с этим скриптом.



Помогите решить вопрос.



Заранее огромное спасибо.

[Iska]

Цитата Aelksey Kha:



У меня вопрос по скрипту, который вы опубликовали.

VBS/WSH/JS - Очистка рабочего стола/моих документов

По

VBS/WSH/JS - Очистка рабочего стола/моих документов

?




Цитата Aelksey Kha:



Я разместил данный скрипт в GPO при выходе пользователя из системы.

VBS/WSH/JS - Очистка рабочего стола/моих документов

Без изменений (кроме пути, разумеется)?




Цитата Aelksey Kha:



но не удаляется информация из папки мои документы и возникает окно с ошибкой 800a0046.

VBS/WSH/JS - Очистка рабочего стола/моих документов

Покажите скриншот окна ошибки («Alt-PrintScreen») или его содержимое («Ctrl-C»).




Цитата Aelksey Kha:



Так же на рабочем столе не сохраняются lnk, rdp и url. У некоторых пользователей полностью, у некоторых частично.

VBS/WSH/JS - Очистка рабочего стола/моих документов

«.lnk» и «.url» в корне Рабочего стола не должны удаляться. Чтобы не удалялись также «.rdp», добавьте это расширение:



Код:

Код: Выделить всё

				Case "lnk", "url", "rdp"

Цитата Aelksey Kha:



Еще почему то Windows 10 очень долго думает при выходе из системы и при перезагрузке с этим скриптом.

VBS/WSH/JS - Очистка рабочего стола/моих документов

У меня нет Windows 10. «Думать» там особо нечему, кроме копирования. Если копирование занимает свыше 10 минут (по умолчанию; для Windows 8.1 и, надо думать, выше — появилось ещё такое:

Logon scripts do not run for five minutes after a user logs on to a Windows 8.1-based computer

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

[Aelksey Kha]

Iska, спасибо за ответ и размещенный скрипт, то что требовалось он делает, но только жаль что есть ошибки(



1) Да все верно, именно этот скрипт.

Огромное вам спасибо еще раз за размещение.



2) Я изменил путь к серверу соответственно.



3) После запуска скрипта выскакивает окно. Я во вложении разместил скрин.

Попытался подшаманить и убрал строку



[q=Iska]strSourceFolder = WScript.CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

strFullDestFolder = objFSO.BuildPath(strUserNameDestFolder, objFSO.GetFileName(strSourceFolder))

If Not objFSO.FolderExists(strFullDestFolder) Then

objFSO.CreateFolder strFullDestFolder

End If

With objFSO.GetFolder(strSourceFolder)

.Copy strFullDestFolder, True

End With

VBS/WSH/JS - Очистка рабочего стола/моих документов

[/q]



После удаления этой строки скрипт срабатывает, но не копирует и не удаляет файлы из документов пользователя.



Копирует рабочий стол нормально и очищает тоже без этой строчки, но только вместе с файлами у пользователей удаляются lnk и rdp файлы тоже.



4) "rdp" в строчку я пробовал добавить, но безрезультатно, все тоже самое.



5) Windows 10 думает очень долго, но перезагружается или выходит из системы. На рабочем столе все очищается.

Пофиксить проблему я так понимаю не получится(



P.S. Так же при работе скрипта без этой строчки, во время первого выхода все хорошо, но второй и последующие входы с новыми файлами на рабочем столе выскакивают ошибки непонятные, но все переносится и чистится.

[Aelksey Kha]

Добрый день Iska.

Вы мне поможете с выполнением сценария vbs?

[Aelksey Kha]

Цитата Aelksey Kha:



3) После запуска скрипта выскакивает окно. Я во вложении разместил скрин.

VBS/WSH/JS - Очистка рабочего стола/моих документов

Ну, так там вроде бы явно написано, что «разрешение отклонено». Либо на доступ к какой-либо папке из «Моих документов» у пользователя не хватает прав, либо у него не хватает прав на создание подкаталогов и файлов в них на сервере. Я бы начал с проверки этого варианта (AccessEnum в помощь).




Цитата Aelksey Kha:



Попытался подшаманить и убрал строку…

После удаления этой строки скрипт срабатывает, но не копирует и не удаляет файлы из документов пользователя.

VBS/WSH/JS - Очистка рабочего стола/моих документов

Только «не копирует». Удаление происходит ниже, и вовсе не в «Моих документах», а на «Рабочем столе».




Цитата Aelksey Kha:



Копирует рабочий стол нормально и очищает тоже без этой строчки, но только вместе с файлами у пользователей удаляются lnk и rdp файлы тоже.

VBS/WSH/JS - Очистка рабочего стола/моих документов

«Эта строчка» относится только к «Моим документам». Обработка «Рабочего стола» происходит ниже.




Цитата Aelksey Kha:



4) "rdp" в строчку я пробовал добавить, но безрезультатно, все тоже самое.

VBS/WSH/JS - Очистка рабочего стола/моих документов

«Не верю».