strComputer = "." 
Set objWMIService = GetObject("winmgmts://" & strComputer & _ 
    "/root/cimv2/Applications/MicrosoftIE") 

Set colIESettings = objWMIService.ExecQuery _ 
    ("Select * from MicrosoftIE_Object") 

For Each strIESetting in colIESettings 
    Wscript.Echo "Code base: " & strIESetting.CodeBase 
    Wscript.Echo "Program file: " & strIESetting.ProgramFile 
    Wscript.Echo "Status: " & strIESetting.Status 
    Wscript.Echo 
Next