Option Explicit
Const COMPUTER = "."
Dim WMI, DateiListe, Datei, GesamtGroesse
 
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & COMPUTER & _
  "\root\cimv2")
Set DateiListe = WMI.ExecQuery("SELECT * FROM CIM_Datafile WHERE Extension =" & _
"'doc'")
 
GesamtGroesse = 0
For Each Datei In DateiListe
  GesamtGroesse  = GesamtGroesse  + Datei.FileSize
Next
WScript.Echo "Gesamtgröße der Doc's: " & GesamtGroesse & " Bytes"