ASP/VBScript

Elfhelm
14 de Mayo del 2008
Hola Maestros:

Ojal me puedan ayudar a detectar por qu no me funciona el siguiente cdigo ASP/VBScript cuando lo corro en mi Personal Web Server.
La idea es abrir un Libro Excel que se encuentra protegido con clave, validando previamente que la IP del usuario sea la correcta. Para ello utilizo una DLL que desencripta la Password, llama a Excel y abre el libro especificado, esta DLL se encuentra en el equipo del usuario y ya ha sido registrada en forma adecuada...Bueno, sin ms rodeos aqu va el cdigo:

<html><head><title>PRUEBA DE APERTURA DE ARCHIVO EXCEL (LADO DEL CLIENTE) </title></head>
<body>
SU IP ES: <%=Request.ServerVariables("REMOTE_ADDR")%><BR>
<% if Request.ServerVariables("REMOTE_ADDR") = "150.140.13.226" then
dim Password_EnCryp

' Se supone que recupero la clave desde una base
'de datos, pero para simplificar el ejemplo se la
'asigno en duro

Password_EnCryp = "clave"

' Aqu viene lo que quiero que se Ejecute por el
'lado del Cliente (Client Side)
%>
<SCRIPT LANGUAGE="VBScript">
dim nomdll
set nomdll = createobject("userdll.usuario")
' La DLL me desencripta la Password y me abre la
'Planilla desde un Disco de Red Local al que el
'Usuario tiene acceso

nomdll.OpenExcel("k:libro1.xls " & <%=Password_EnCryp%>)
set nomdll = Nothing
</SCRIPT>
<% end if %>
</body></html>

Cabe mencionar que si reemplazo el cdigo ASP por cdigo VBScript la pgina me funciona OK, sin emabrgo, al abrirla tal como est desde el PWS me dice que se han encontrado errores al cargarla y me aparece el tpico triangulito amarillo con el sigo de exclamacin en la esquina inferior izquiera de la barra de estado.

Agradecer cualquier idea que tengan al respecto...

Muchas Gracias

Elfhelm
"Los cuatro puntos cardinales son tres, el Norte y el Sur"

Yoni Yo
14 de Mayo del 2008
voy tai weon o que...

nunca se debe usar dll. para encriptar o desencriptar ... SON MUY INSEGUROS