Creare un package MTS con uno script ASP
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
Nessuna risorsa collegata
