Dall'archivio script > Classic ASP

Aggiungere un componente COM ad un package MTS da una pagina ASP

di Andrea PalmatèAndrea Palmatè, in Classic ASP, UserScript, Admin,

Nello script #332 abbiamo visto come creare un package MTS.
Con questo script invece, aggiungeremo un componente COM al package appena creato.
Il tutto è molto semplice: ci serve la collezione dei Packages installati sotto MTS/COM+.
A questo punto, una volta trovato il nostro (sfruttando la proprietà name) ne recuperiamo l'ID che ci servirà per poter aggiungere il componente, mediante il metodo InstallComponent, fornendogli il percorso completo.

<%
Dim I
Dim vPackageId
Dim objCatalog, colPackages, objPackage

set objCatalog = Server.CreateObject("MTSAdmin.Catalog.1")
set colPackages = objCatalog.GetCollection("Il Mio Primo Package")
colPackages.Populate

'Cerchiamo il nostro package appena creato sfruttando la proprietà name
For I=0 to colPackages.Count-1
  'Se lo troviamo
  if colPackages.Item(i).Value("Name")="IIS Extras" then
    'Recuperiamo l'ID
    vPackageId = colPackages.Item(i).Value("ID")
    'Settiamo l'oggetto objPackage a cui aggiungeremo il componente
    Set objPackage = colPackages.Item(i)
  end if
Next

Dim vKeys(0)
vKeys(0) = vPackageId

colPackages.PopulateByKey(vKeys)
Dim colComponents
set colComponents = colPackages.GetCollection("ComponentsInPackage",vPackageId)

Dim objUtil
Set objUtil = colComponents.GetUtilInterface
'Aggiungiamo la nostra DLL
objUtil.InstallComponent "C:\Winnt\System32\mia.dll","",""

set objUtil = Nothing
set colComponents = Nothing
Set objPackage = Nothing
set colPackages = nothing
set objCatalog = Nothing

%>

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

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