Aggiungere un componente COM ad un package MTS da una pagina ASP
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
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
