HRESULT LoadTypeLib(  
  const OLECHAR FAR  *szFile,       
  ITypeLib FAR* FAR  *pptlib  
);

ITypeLib::GetTypeInfo

ITypeInfo::GetFuncDesc

regsvr32.exe "%SystemRoot%\System32\tlbinf32.dll"

Option Explicit

Dim objFSO
Dim objWshShell
Dim objWord
Dim objExcel

Dim objDictionary

Dim strValue

Set objFSO            = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell        = WScript.CreateObject("WScript.Shell")
Set objWord            = WScript.CreateObject("Word.Application")
Set objExcel        = WScript.CreateObject("Excel.Application")

Set objDictionary    = WScript.CreateObject("Scripting.Dictionary")
objDictionary.CompareMode = vbTextCompare

DefineConstants objDictionary, objFSO, True
DefineConstants objDictionary, objWshShell, True
DefineConstants objDictionary, objWord, True
DefineConstants objDictionary, objExcel, True

' Здесь, собственно, само тело скрипта — для чего всё и было затеяно.
' А мы, в качестве демонстрации, просто выведем значения некоторых констант

With WScript
    .Echo
    .Echo "Example of constants"
    .Echo "================================"
    .Echo "ForReading =", ForReading
    .Echo "ForWriting =", ForWriting
    .Echo "ForAppending =", ForAppending
    .Echo
    .Echo "wdNewBlankDocument =", wdNewBlankDocument
    .Echo "wdNewWebPage =", wdNewWebPage
    .Echo
    .Echo "xlAscending =", xlAscending
    .Echo "xlDescending =", xlDescending
    .Echo "================================"
End With

objExcel.Quit
objWord.Quit

Set objExcel = Nothing
Set objWord = Nothing
Set objWshShell = Nothing
Set objFSO = Nothing

WScript.Quit 0

' ================================================================================
Sub DefineConstants(ByRef objDictionary, objObject, blnDebug)
    Dim objTliApplication
    Dim objInterfaceInfo
    Dim objTypeLibrary
    Dim objConstants
    Dim objConstant
    
    Dim strTypeLib

    Set objTliApplication = WScript.CreateObject("Tli.TliApplication")
    Set objInterfaceInfo = objTliApplication.InterfaceInfoFromObject(objObject)
    Set objTypeLibrary = objInterfaceInfo.Parent
    
    strTypeLib = "" & vbNewLine & _
        "' ==== Type Library ===========================" & vbNewLine & _
        "' " & "Name:        " & objTypeLibrary.Name & vbNewLine & _
        "' " & "Description: " & objTypeLibrary.HelpString & vbNewLine & _
        "' " & "GUID:        " & objTypeLibrary.GUID & vbNewLine & _
        "' " & "Library:     " & LCase(objTypeLibrary.ContainingFile) & vbNewLine & _
        "' " & "Version:     " & objTypeLibrary.MajorVersion & "." & objTypeLibrary.MinorVersion & vbNewLine & _
        "' =============================================" & vbNewLine & _
        "" & vbNewLine
    
    For Each objConstants In objTypeLibrary.Constants
        If Left(objConstants.Name, 1) <> "_" Then
            strTypeLib = strTypeLib & "' ---------------------------------------------" & vbNewLine
            strTypeLib = strTypeLib & "' " & objConstants.Name & vbNewLine
            strTypeLib = strTypeLib & "' ---------------------------------------------" & vbNewLine
            
            For Each objConstant In objConstants.Members
                If Left(objConstant.Name, 1) <> "_" Then
                    If objDictionary.Exists(objConstant.Name) Then
                        If objDictionary.Item(objConstant.Name) = objConstant.Value Then
                            If blnDebug Then
                                strTypeLib = strTypeLib & "' Next constant is duplicate, mark comments" & vbNewLine & _
                                "' Const " & objConstant.Name & " = " & objConstant.Value & vbNewLine
                            End If
                        Else
                            Err.Raise 1041, "Constant [" & objConstant.Name & "] is duplicate with other " & _
                                "and constant's value [" & objConstant.Value & "] is different then other [" & objDictionary.Item(objConstant.Name) & "]."
                        End If
                    Else
                        objDictionary.Add objConstant.Name, objConstant.Value
                        strTypeLib = strTypeLib & "Const " & objConstant.Name & " = " & objConstant.Value & vbNewLine
                    End If
                End If
            Next
        End If
    Next
    
    ' Раскомментируйте следующую строку, чтобы увидеть список констант
    ' При этом желательно работать с консольной версией движка, :)
    ' WScript.Echo strTypeLib
    
    ExecuteGlobal strTypeLib

    Set objConstant = Nothing
    Set objTypeLibrary = Nothing
    Set objInterfaceInfo = Nothing
    Set objTliApplication = Nothing
End Sub
' ================================================================================