Способы почистить локальный кеш всем пользователям?

[raz]

DAX 3.0. У нас у пользователей ярлык на рабочем столе на vbs скрипт (лежит в сети).

Const DeleteReadOnly = True
Dim Shell, fso, WshNetwork, AOS
Set fso = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")

' Очистка кэша
mask = Shell.ExpandEnvironmentStrings("%UserProfile%\Local Settings\Application Data\*.aoc")
If fso.FileExists(mask) Then fso.DeleteFile mask, DeleteReadOnly

Shell.run("\\Server\dfs\AxClientStart\ok.axc")

WScript.Sleep 1000

Set Shell = Nothing 
Set fso = Nothing 
Set WshNetwork = Nothing