M
Matt Sidare
How do give a user permission to programatically save
changes the COMAdmin.COMAdminCatalog object. The script
needs to add a transientsubscription. I can do this as
administrator but I need to add the transientsubscription
with out being administrator. Is there a way to create
TransientSubscriptions with out being administrator?
every thing works well until I call oTSCol.SaveChanges I
get a permission denied error.
THis is the code I use:
Dim oCOMAdminCatalog As COMAdmin.COMAdminCatalog
Dim oTSCol As COMAdminCatalogCollection
Dim oSubscription As ICatalogObject
Set oCOMAdminCatalog = CreateObject
("COMAdmin.COMAdminCatalog.1")
' Get the transientsubscription collection
Set oTSCol = oCOMAdminCatalog.GetCollection
("TransientSubscriptions")
oTSCol.Populate
Set oSubscription = oTSCol.Add
' set some properties needed for the subscription
oSubscription.Value("SubscriberInterface") = objref
oSubscription.Value("EventCLSID") = clsid
oSubscription.Value("Name") = "a Transient Subscription"
& oSubscription.Value("ID")
' save the changes
oTSCol.SaveChanges
changes the COMAdmin.COMAdminCatalog object. The script
needs to add a transientsubscription. I can do this as
administrator but I need to add the transientsubscription
with out being administrator. Is there a way to create
TransientSubscriptions with out being administrator?
every thing works well until I call oTSCol.SaveChanges I
get a permission denied error.
THis is the code I use:
Dim oCOMAdminCatalog As COMAdmin.COMAdminCatalog
Dim oTSCol As COMAdminCatalogCollection
Dim oSubscription As ICatalogObject
Set oCOMAdminCatalog = CreateObject
("COMAdmin.COMAdminCatalog.1")
' Get the transientsubscription collection
Set oTSCol = oCOMAdminCatalog.GetCollection
("TransientSubscriptions")
oTSCol.Populate
Set oSubscription = oTSCol.Add
' set some properties needed for the subscription
oSubscription.Value("SubscriberInterface") = objref
oSubscription.Value("EventCLSID") = clsid
oSubscription.Value("Name") = "a Transient Subscription"
& oSubscription.Value("ID")
' save the changes
oTSCol.SaveChanges