Get all meta data from a file and put it in a Dictionary object

GetFileMetaProps.vbs

'objItem in this example would be a Scripting.FileSystemObject passed into a function
Dim objShell, objFolder, objFolderItem, objProps

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(objItem.ParentFolder.Path) ' File folder path without filename.
Set objFolderItem = objFolder.ParseName(objItem.Name) ' Filename without path.
set objProps = CreateObject("Scripting.Dictionary")

On Error Resume Next
For i = 0 To 512
  objProps.Add Trim(objFolder.GetDetailsOf(objFolder.Items, i)), Trim(objFolder.GetDetailsOf(objFolderItem, i))
Next

' Usage
Const queryProp = "Frame width"
wscript.echo ":  & objProps.Item("Frame width")