Construct string in COM+ package

[michail]

How can I set Construct string( which is on Activation tab) in COM+ installation?

[Keppler]

You need to navigate through COMAdmin for this

code for reference only..

svAppID is the COM+ application ID guid
svClsID is the class ID of the dll to update with the constructor str.


Set objCatalog = CreateObject("COMAdmin.COMAdminCatalog")
Set objAppColl = objCatalog.GetCollection("Applications")
objAppColl.Populate
'// Update ComCatalog
For i = 0 To objAppColl.Count - 1
If objAppColl.Item(i).Key = svAppID Then
Set objCmptColl = objAppColl.GetCollection("Components", svAppID)
objCmptColl.Populate
For j = 0 To objCmptColl.Count - 1
If objCmptColl.Item(j).Key = svClsID Then
If Not IsNull(svConstruct) Then
Set objCmpt = objCmptColl.Item(j)
objCmpt.Value("ConstructionEnabled") = True
objCmpt.Value("ConstructorString") = svConstruct
objCmptColl.SaveChanges

objLog.WriteLine " Updated Class " & svClsID & " in " & svAppID
objLog.WriteLine " Construction Enabled with """ & svConstruct & """"
End If
Exit For
End If
Next
Exit For
End If
Next

[michail]

Thanks. Right in the point.
Michail

Originally posted by Keppler
You need to navigate through COMAdmin for this

code for reference only..

svAppID is the COM+ application ID guid
svClsID is the class ID of the dll to update with the constructor str.


Set objCatalog = CreateObject("COMAdmin.COMAdminCatalog")
Set objAppColl = objCatalog.GetCollection("Applications")
objAppColl.Populate
'// Update ComCatalog
For i = 0 To objAppColl.Count - 1
If objAppColl.Item(i).Key = svAppID Then
Set objCmptColl = objAppColl.GetCollection("Components", svAppID)
objCmptColl.Populate
For j = 0 To objCmptColl.Count - 1
If objCmptColl.Item(j).Key = svClsID Then
If Not IsNull(svConstruct) Then
Set objCmpt = objCmptColl.Item(j)
objCmpt.Value("ConstructionEnabled") = True
objCmpt.Value("ConstructorString") = svConstruct
objCmptColl.SaveChanges

objLog.WriteLine " Updated Class " & svClsID & " in " & svAppID
objLog.WriteLine " Construction Enabled with """ & svConstruct & """"
End If
Exit For
End If
Next
Exit For
End If
Next