set ti = CreateObject("typelib.decoder")
list = Split("wshom.ocx;vbscript.dll;scrrun.dll;" _
& "shdocvw.dll;wscript.exe", ";")
searchword = InputBox("lease enter the command name you are looking for!")
for each library in list
    result = ti.Search(searchword, library)
    if not result="" then
        endresult = endresult & "(" & library & ")" & vbCrLf & result
    end if
next
MsgBox endresult
复制代码