vbs: как полностью очистить каталог?

komr, оформите код надлежащим образом.

Список файлов, включая скрытые, можете попробовать сделать так:

xcopy c:\docume~1\username\locals~1\tempor~1\*.*  /H /S /L > c:\tempIE.txt

ДОСовая команда xcopy с ключиком "/L" ничего не копирует, а только отображает полные пути к файлам.  Пути я для наглядности брал "короткие", но в работе надежнее, конечно, указывать "длинные" (вдруг там еще есть похожий длинный путь).

А если предварительно выполнить аналогичную команду, но добавив еще и ключ "/D:m-d-y" (в который надо подставить параметры контролируемой даты - как я понял по Вашему скрипту, Вам надо удалять файлы старее, чем дата в переменной "ControlDate"), то в этот список попадут по идее файлы "свежее" указанной даты. И потом этот список можно будет подсунуть второй команде XCOPY в виде списка файлов - исключений.

::: Для пользователя "roman2"
::: создание списка неудаляемых файлов, например, свежее даты "28.02.2013 00:00"
xcopy c:\docume~1\roman2\locals~1\tempor~1\*.* /H /L /S /D:02-28-2013 > c:\tempIE_ECXLUDE.txt

::: создание списка для удаления
xcopy c:\docume~1\roman2\locals~1\tempor~1\*.* /H /L /S /EXCLUDE:"c:\tempIE_ECXLUDE.txt" > c:\tempIE_for_DEL.txt

::: а просто удалить все файлы без контроля дат, можно попробовать так (не проверял):
rem DEL c:\docume~1\roman2\locals~1\tempor~1\*.* /s /q /as /ah

И само удаление на основании файла c:\tempIE_for_DEL.txt можно будет выполнить тут же в батнике, разобрав этот файл командой FOR.
"Колхоз" конечно , но думаю сработает.

Ещё такой код попробовал - скрытые каталоги в кэше не удалились, в ручную же удалились легко:

On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Documents and Settings\Admin\Local Settings\Temporary Internet Files")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
 errResults = objSubfolder.Delete
Next
Set files_col = objFolder.files
For each file_obj in files_col
 file_obj.delete(true)
Next

Попробуйте такой способ:

strPath = "C:\Documents and Settings\Admin\Local Settings\Temporary Internet Files"
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strPath) Then
    Set objShell = CreateObject("Shell.Application")
    Set objFolderItems = objShell.NameSpace(strPath).Items
    objFolderItems.Filter 32 + 64 + 128, "*"
    For Each objItem In objFolderItems
        WScript.Echo objItem.Path
    Next
    Set objFolderItems = Nothing
    Set objShell = Nothing
Else
    WScript.Echo "Путь не найден."
End If
Set objFS = Nothing
WScript.Quit 0

Может на выполнение скрипта влияют права пользователя? Они обычные, пользовательские.

«&&» — выполнить следующую команду только в том случае, если предыдущая команда вернула нулевой код возврата (что обычно говорит о её успешном выполнении).

«2>nul» — перенаправить вывод stderr (потока ошибок) на фиктивное пустое устройство (обычный результат — подавление вывода на консоль сообщений об ошибках).

«(…)» — скобки группируют несколько команд в одну группу.

«&» — символ, позволяющий объединить несколько команд в одной строке.

У нас половина АС теперь через браузер работает, кэш надо чистить, иначе некоторые из АС работают с глюками, опытным путём выяснили, что очистка кэша помогает.
Ясно, что не самое красивое решение, зато быстрое :-)
Запуск через скрипт регистрации пользователя в домене.

А у такого:

F = "<путь к каталогу>"
With CreateObject("Scripting.FileSystemObject")
  .DeleteFolder F & "\*", 1
  .DeleteFile F & "\*", 1
End With