' ------------------------------------------------------------------------------------
'         			RegisterTypeLibrary.vbs
' Run this script to register the MyAlbum TypeLibrary file (MyAlbum.tlb) in case the
' type library has not been registered correctly.
' With the type library registered, the MyAlbum constants can be used in a script.
' ------------------------------------------------------------------------------------

Option explicit

Dim o_TypeLib, tlia, s
set tlia = CreateObject("TLI.TLIApplication")
Set o_TypeLib = tlia.TypeLibInfoFromFile( "MyAlbum.tlb" )
o_TypeLib.Register

s = "The MyAlbum TypeLibrary is registered." & vbCRLF & vbCRLF
s = s & "The constant 'DM_SMART' has the value = " & DM_SMART
s = s & vbCRLF & "(you should see = 5)"
MsgBox s