| Pregunta: | 44706 - TIRAR UNA APLICACIóN WEB EN NT4 USANDO ASP'S |
| Autor: | Carlos Lopez |
| Hola, necesito averiguar como puedo tirar o hacer un shutdown de una aplicacióne que tengo en un server NT 4 desde una pagina asp. Actualmente tengo otra aplicación sobre un W2K Datacenter y para hacer lo mismo utilizo el siguiente codigo:
Dim Catalog Set Catalog = CreateObject("COMAdmin.COMAdminCatalog") Catalog.ShutdownApplication ("IIS-{Default Web Site//Root/Informacion}") Set Catalog = Nothing Mi problema esta en que esto mismo lo quiero hacer para la aplicación en NT y no me ha funcionado, alguien puede decirme como hacerlo o en que estoy mal. Gracias | |
| Respuesta: | mrama mrama |
| Hola,
no sé exactamente hacer shutdown de la aplicación, pero estoy automatizando el registro de componentes COM+ en 2000 y NT4.0 también. El problema es que la clase para NT4.0 no es la del COMadmin, es MTSadmin. A ver si esto te da alguna pista: Set catalog = CreateObject("MTSAdmin.Catalog.1") Set packages = catalog.GetCollection("Packages") packages.Populate luego para ir recorriendo las aplicaciones (packages) uso un for: (NombreAp es una constante que declaro con un Case, según la aplicación, así puedo recorrer el contenido de la aplicación, o sea, los elementos COM, uno por uno para saber cual borrar. CstrFinallib es ontra constante con el path de la dll If pack.Name = NombreAp Then Set ComponentsInPack = Packages.GetCollection("ComponentsInPackage", pack.Key) ComponentsInPack.Populate x=0 cont=ComponentsInPack.Count While not x=cont Set comp = componentsInPack.Item(x) CompPath=comp.value("DLL") then If compPath=strFinalLib Then componentsinpack.Remove(X) a ver si te sirve o por lo menos te da una pista. | |