Ver Mensaje Individual
  #3 (permalink)  
Antiguo 18/03/2013, 10:12
ash2
 
Fecha de Ingreso: marzo-2013
Ubicación: Andalucia
Mensajes: 4
Antigüedad: 11 años, 10 meses
Puntos: 0
Respuesta: Utilizar desde asp una funcion de una dll

Hola Shiryu_Libra,

Esa es una de las páginas que había consultado y no he conseguido solucionarlo.
La dll la he hecho yo, la he conseguido de http://p2p.wrox.com/classic-asp-basics/77007-solution-impersonation-classic-asp.html.
Por lo visto no se registra con el regsvr32, sino con el comando regasm fichero.dll /tlb, que aparentemente me lo hace bien. Segun lo leido es un ensamblado.
La dll la he puesto en una carpeta del servidor y los dos usuarios que tienen que ver con el IIS tienen permiso de lectura y ejecución.
Mi código llega hasta myObject = Server.CreateObject("myDLL.myClass") y por ahí no pasa.

Tengo un w2003 server 64 bits y el .net framework 2,3,3.5 y 4 instalados en sus versiones de 32 y 64 bits

No me da ningún tipo de error, se ve que se sale del código al llegar a ese punto.
Esta es mi función:
function usuarioYPassDM (strUsuario, strClave)
Dim objLogon, resultado
response.write("<SCRIPT LANGUAGE='JavaScript'>alert('empezamos ');</SCRIPT>")
Set objLogon = Server.CreateObject("Impersonate.UserLogon")
response.write("<SCRIPT LANGUAGE='JavaScript'>alert('Objeto creado');</SCRIPT>")
objLogon.Logon "prueba", "pass", "dm"
objLogon.Logoff
response.write("<SCRIPT LANGUAGE='JavaScript'>alert('dll abierta " & resultado & "');</SCRIPT>")
usuarioYPassDM=1
end function
¿alguna ayuda más?

Cita:
Iniciado por Shiryu_Libra Ver Mensaje


un poquitin de lectura aqui
[url]http://www.tizag.com/aspTutorial/aspDLL.php[/url]

del cual dice..

registrar el DLL en el servidor
Permisos para el usuario IIS para utilizar este DLL
y en tu ASP

algo como esto
Código ASP:
Ver original
  1. <%
  2. 'Note this is example code, it will not work
  3. '   unless you create a myDLL, myClass, and a myMethod
  4. Dim myObject
  5. myObject = Server.CreateObject("myDLL.myClass")
  6. myObject.myMethod("something")
  7. myObject = nothing
  8. %>

saludos