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 |