First
This commit is contained in:
29
CMD/Festplatte_voll/clearcache.vbs
Normal file
29
CMD/Festplatte_voll/clearcache.vbs
Normal file
@@ -0,0 +1,29 @@
|
||||
on error resume next
|
||||
dim oUIResManager
|
||||
dim oCache
|
||||
dim oCacheElement
|
||||
dim oCacheElements
|
||||
|
||||
set oUIResManager = createobject("UIResource.UIResourceMgr")
|
||||
|
||||
if oUIResManager is nothing then
|
||||
wscript.quit
|
||||
end if
|
||||
|
||||
set oCache=oUIResManager.GetCacheInfo()
|
||||
|
||||
if oCache is nothing then
|
||||
set oUIResManager=nothing
|
||||
wscript.quit
|
||||
end if
|
||||
|
||||
set oCacheElements=oCache.GetCacheElements
|
||||
|
||||
for each oCacheElement in oCacheElements
|
||||
oCache.DeleteCacheElement(oCacheElement.CacheElementID)
|
||||
next
|
||||
|
||||
set oCacheElements=nothing
|
||||
set oUIResManager=nothing
|
||||
set oCache=nothing
|
||||
wscript.quit
|
||||
Reference in New Issue
Block a user