Count AddIns without opening QTP

‘************************************************************

‘Description
‘Counting the number of AddIns without opening the QTP

‘************************************************************
Step 1) Save the code wirtten below in notepad and save with .vbs extension
Step2) Click or Schedule this .vbs file & find the QTP addins count.

Dim app
Set app = CreateObject(“QuickTest.Application”)
MsgBox app.AddIns.Count ‘ Count the Number of addins in QTP
Set app = nothing