VBS/WSH/JS - Поиск и удаление папки у пользователей

[Aventer]

Доброго времени суток. Необходим скрипт (VBS, желательно, но не критично). Для поиска и удаления папки в профилях доменных юзеров. (Temporary Internet Files).

С дальнейшим его запуском через планировщик.

[Aventer]

Aventer, зачем нужно удалять папку «Temporary Internet Files»?

[Iska]

Работаем через терминальные сервера, на каждом довольно большое количество пользователей. Места на диске не хватает, а темпы outlook'a у наших юзеров занимают не мало. Да и, в принципе, инициатива не моя... Так что выбор не велик. Мне ее удалять нужно не больше, чем вам, но "хозяин-барин". Так что буду признателен, если кто поможет

[Iska]

Пробуйте:



Код:

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

Option Explicit
Dim strRootFolder
strRootFolder = WScript.CreateObject("Shell.Application").NameSpace("shell:cache").self.Path
With WScript.CreateObject("Scripting.FileSystemObject")
	On Error Resume Next
	.DeleteFile   objFSO.BuildPath(strRootFolder, "*.*"), True
	.DeleteFolder objFSO.BuildPath(strRootFolder, "*.*"), True
End With
WScript.Quit 0

Цитата Aventer:



С дальнейшим его запуском через планировщик.

VBS/WSH/JS - Поиск и удаление папки у пользователей

Не советую. Назначьте на вход пользователя посредством групповой политики.

[Aventer]

Цитата Iska:



Код:

Option Explicit

Dim strRootFolder

strRootFolder = WScript.CreateObject("Shell.Application").NameSpace("shell:cache").self.Path

With WScript.CreateObject("Scripting.FileSystemObject")

On Error Resume Next

.DeleteFile objFSO.BuildPath(strRootFolder, "*.*"), True

.DeleteFolder objFSO.BuildPath(strRootFolder, "*.*"), True

End With

WScript.Quit 0

VBS/WSH/JS - Поиск и удаление папки у пользователей

Либо я что-то не то делаю, либо не работает

[Iska]

Цитата Aventer:



Либо я что-то не то делаю, либо не работает

VBS/WSH/JS - Поиск и удаление папки у пользователей

Описывайте подробно, что и как Вы делаете.