' List the Size of the Advanced Client Cache

On Error Resume Next

Set oUIResManager = CreateObject("UIResource.UIResourceMgr")
Set oCache=oUIResManager.GetCacheInfo()

If oCache Is Nothing Then
    Set oUIResManager=Nothing
    Wscript.Echo "Could not get cache info - quitting"
    Wscript.Quit
End If

Wscript.Echo "Total size:      " & FormatNumber(oCache.TotalSize,0) + "MB"

search for scripts

VbsEdit contains all these sample scripts!





Home   Scripts

Copyright © 2001-2019 adersοft