jeremiahscott
asked on
Programming with COMAdmin library/ Must know Component Services
Hi.
The below script creates a new Component Services application. I would like to add an account for which this application will run under rather than using the interactive user.
I know it is possible thru the interface, however, I can't not find out how to do it. Any help would be great.
Thanks - JS
'' Consts
Const AppName = "WB"
Const AppDesc = "WB"
Const AppID = "{5779B872-6E96-4ca7-8FC7- 611D39D208 21}"
Const ServerPath = "c:\inetpub\executables\"
Const COMAdminActivationLocal = 1
'' Vars
Dim cat '' COMAdminCatalog
Dim apps '' COMAdminCatalogCollection
Dim app '' COMAdminCatalogObject
Set cat = WScript.CreateObject("COMA dmin.COMAd minCatalog ")
Set apps = cat.GetCollection("Applica tions")
Set app = apps.Add
app.Value("ID") = AppID
app.Value("Name") = AppName
app.Value("Description") = AppDesc
app.Value("Activation") = COMAdminActivationLocal
apps.SaveChanges
The below script creates a new Component Services application. I would like to add an account for which this application will run under rather than using the interactive user.
I know it is possible thru the interface, however, I can't not find out how to do it. Any help would be great.
Thanks - JS
'' Consts
Const AppName = "WB"
Const AppDesc = "WB"
Const AppID = "{5779B872-6E96-4ca7-8FC7-
Const ServerPath = "c:\inetpub\executables\"
Const COMAdminActivationLocal = 1
'' Vars
Dim cat '' COMAdminCatalog
Dim apps '' COMAdminCatalogCollection
Dim app '' COMAdminCatalogObject
Set cat = WScript.CreateObject("COMA
Set apps = cat.GetCollection("Applica
Set app = apps.Add
app.Value("ID") = AppID
app.Value("Name") = AppName
app.Value("Description") = AppDesc
app.Value("Activation") = COMAdminActivationLocal
apps.SaveChanges
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
I read it before looking for something else. Just found searching for the COMAdminCatalog, Applications collection.
ASKER