Con questo script è possibile creare un nuovo Package sotto MTS/COM+
Per prima cosa è necessario instanziare l'oggetto MTSAdmin e recuperare i Packages installati che verranno inseriti in una collezione.
Una volta recuperata la collezione, possiamo, con il metodo Add aggiungere un Package che però non sarà attivo prima del metodo Savechanges.
Prima di questo, però, dobbiamo settare la proprietà Name e SecurityEnabled del Package da creare.
A questo punto il gioco è fatto:
<% Dim I Dim nPackId Dim objCatalog Dim colPackages Dim objPackage set objCatalog = Server.CreateObject("MTSAdmin.Catalog.1") set colPackages = objCatalog.GetCollection("Packages") colPackages.Populate 'Popoliamo la collezione Set objPackage = colPackages.Add 'Aggiungiamo un oggetto alla collezione e impostiamo le proprietà nPackId = objPackage.Value("ID") 'Questo è il GUID del Package appena creato objPackage.Value("Name") = "Il Mio Primo Package" 'Questo è il nome del Package objPackage.Value("SecurityEnabled") = "N" 'Con questa proprietà impostiamo la sicurezza lpRes = colPackages.SaveChanges 'Salviamo i cambiamenti Set objPackage = Nothing set colPackages = nothing set objCatalog = Nothing %>
Lo script naturalmente deve girare con permessi di ammistratore.
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
I più letti di oggi
- Build 2016: segui con noi in live streaming!
- Utilizzare il nuovo modello GPT-4o con Azure OpenAI
- Creare link alle risorse di DocumentDB con UriFactory
- Convertire l'indirizzo IP di una richiesta in un valore numerico
- Le iscrizioni a #rcd4 sono ufficialmente chiuse. Sappiamo che siete tantissimi e stiamo lavorando per voi! A presto! http://u.aspitalia.com/cn
- non perdere #aspnetcore su #windows, #linux, #macosx il 30/06 al nostro #webday a Milano: https://aspit.co/18anni
- Utilizzare l'autoheal con le Web App di Microsoft Azure