'
' Author: tlviewer@yahoo.com
' script:	RefreshVBP.vbs 
' Description: writes a list of references from a list of DLL Filenames
' keywords: info guid typelib project update
' wordfile: "c:/program files/ultraedit/wordfile.txt"
' Date :      01/29/02
' 
option explicit

' main objects
dim oTL
set oTL = createobject("TLI.TLIApplication")

'// define the DLL file set
dim arFiles, sDir, sDrive
sDrive = "c:\"
sDir = "winnt\system32"
' list your updated DLL's here
arFiles = Array( "\tlbinf32.dll", _
            "\msxml.dll", "\vbscript.dll")

dim zzDLL, oTLInfo, sOut, VB98_Depth
sOut = vbNullString

' how deep is the IDE folder into the folder tree?
' this will vary for each developer
VB98_Depth = "..\..\..\"

for each zzDLL in arFiles
'pout( zzDLL )
set oTLInfo = oTL.TypeLibInfoFromFile( sDrive & sDir & zzDLL )
' Reference=*\G <typelib> # <version> #0# <path> # <help string>
   with oTLInfo
   sOut = sOut & "Reference=*\G" & .GUID & "#" & _
     .MajorVersion & "." & .MinorVersion & _
     "#" & .LCID & "#" & _
     VB98_Depth & sDir & zzDLL & "#" & .HelpString & vbCrLf
   end with
next

pout( sOut )

sub pout( sIN )
   WScript.echo sIN
end sub