Creare un package MTS con uno script ASP

di , in Classic ASP, UserScript, Admin,

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

Visualizza/aggiungi commenti

Creare un package MTS con uno script ASP (#332) 710 191
| Condividi su: Twitter, Facebook, LinkedIn

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

I più letti di oggi