'vhdaudit.vbs
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\cimv2")

Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile " & _
    "where Extension = 'vhd' or Extension =" & _
    " 'vmdk' or FileSize > 838860800")

For Each objFile in colFiles
    Wscript.Echo objFile.Name & " -- " & _
    objFile.FileSize & " bytes"
Next