I think you could do this with WMI in a VB Script
Need help with WMI? Get the Microsoft Tool WMICreator available on the MSFT site. Or see the Admin Folder in the SDK.
It would look something like:
[code:1:19306f39ac]
AllOrchs
Sub AllOrchs
Query = \"SELECT * FROM MSBTS_ServiceInstance where ServiceClass = 1 and Assembly = YourName\"
Set InstSet = GetObject(\"Winmgmts:!root\\MicrosoftBizTalkServer\").ExecQuery(Query)
// Need code here to write it out
End Sub
[/code:1:19306f39ac]