On Error Resume Next
Set wdx = CreateObject("tc_wdx.wdx")
If Err.Number <> 0 Then
   WScript.Echo "Please install TC_wdx!"
   WScript.Quit 1
End If
On Error GoTo 0

wdxPluginPath="c:\WINCMD\Content_wdx\AKFontInfo\AKFontInfo.wdx"
FilePath="c:\windows\fonts\arial.PFM"
f = wdx.Fields(wdxPluginPath,FilePath)

For i = 0 To Ubound(f)-1
  s=s & f(i,0) & " = " & cstr(f(i,1)) & vbCrLf
Next
MsgBox s,,FilePath

On Error Resume Next
'создаём экземпляр ActiveX
Set wdx = CreateObject("tc_wdx.wdx")
'проверка на существование (зарегистрированность)
If Err.Number <> 0 Then
   WScript.Echo "Please install TC_wdx!"
   WScript.Quit 1
End If
On Error GoTo 0

'задаём путь к wdx плагину, чьи поля мы хотим получать
wdxPluginPath="c:\WINCMD\Content_wdx\exeinfo\exeinfo.wdx"
'задаём путь к файлу из которого получаем поля
'в данном случае я плагином exeinfo.wdx получаю поля из него же самого
FilePath=wdxPluginPath
'wdx.Fields - поля плагина
f = wdx.Fields(wdxPluginPath,FilePath)

For i = 0 To Ubound(f)-1
  'f(i,0) - название поля
  'f(i,1) - полученное значение поля
  s=s & f(i,0) & " = " & f(i,1) & vbCrLf
Next
MsgBox s
'About он и есть About
wdx.About