Security may prevent this from working, but in theory the following should work
Code:
Sub Macro1()
Dim oAddIn As COMAddIn
For Each oAddIn In Application.COMAddIns
'Debug.Print oAddIn.Description
If oAddIn.Description Like "*Dragon*" Then
oAddIn.Connect = Not oAddIn.Connect
Exit For
End If
Next oAddIn
End Sub