# COMGetActiveObjectByProgID (W*S)

COM Subroutine: Passes a programmatic identifier and returns a pointer to the IDispatch interface of a currently active object.

## Module

USE IFCOM

CALL COMGetActiveObjectByProgID (prog_id,idispatch,status)

prog_id | The programmatic identifier of type CHARACTER*(*).
idispatch | An output argument that returns the object's IDispatch interface pointer. Must be of type INTEGER(INT_PTR_KIND()).
status | The status of the operation. It can be any status returned by CLSIDFromProgID or GetActiveObject. Must be of type INTEGER(4).

## Example

See the example in COMInitialize.

Parent topic: Automation Server (AUTO) and Component Object Model (COM) Library Routines