Поиск и удаление папки у пользователей
Доброго времени суток. Необходим скрипт (VBS, желательно, но не критично). Для поиска и удаления папки в профилях доменных юзеров. (Temporary Internet Files).
С дальнейшим его запуском через планировщик.
|
Aventer, зачем нужно удалять папку «Temporary Internet Files»?
|
Работаем через терминальные сервера, на каждом довольно большое количество пользователей. Места на диске не хватает, а темпы outlook'a у наших юзеров занимают не мало. Да и, в принципе, инициатива не моя... Так что выбор не велик. Мне ее удалять нужно не больше, чем вам, но "хозяин-барин". Так что буду признателен, если кто поможет :)
|
Пробуйте:
Код:
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
С дальнейшим его запуском через планировщик. »
|
Не советую. Назначьте на вход пользователя посредством групповой политики. |
Цитата:
Цитата 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
Либо я что-то не то делаю, либо не работает »
|
Описывайте подробно, что и как Вы делаете. |
Время: 01:07.
© OSzone.net 2001-
