' ------------------------------------------------------------------------------------ ' 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