Importente: verificar libreria en cliente ¿Se puede?

"Yan Cantuarias" wrote in message
news:%

Hola, gracias por su tiempo...

Actualmente hago esto para crear un objeto utilizando una libreria del
servidor
set MiClase=server.CreateObject("YCCC25.Clase_YCCC25")
Psw = MiClase.Encripta(Cstr(clave))

Pero me gustaria en lugar de buscar la libreria en el servidor, lo busque

en

el cliente... porque me gustaria hacer una especie de certificados
digitales. Osea si no tiene la libreria es porque yo no se la he dado

y

por consiguiente no puede accesar

Lo puedes hacer mediante VBS en cliente, pero ten cuidado por que es
posible que te de guerra con permisos para ejecutar. Aparte de que los
Scripts de cliente se pueden toquetear muy fácilmente así que puedes tener
problemas de seguridad. Por no mencionar que solo te funcionara en IE.

Pero lo dicho, nada te impide hacer

<script language=VBScript>
dim TuClase
set TuClase = CreateObject("YCCC25.Clase_YCCC25")
Psw = TuClase.Encripta(Cstr(clave))
</script>

Puedes crear un script en "vbscript" y al crear el objeto preguntar si
ocurre algún error

(es una idea per debería funcionar)

Ejemplo:
<script language="vbscript">
Function Verficar()

On Error Resume Next
Set MiClase = CreateObject("YCCC25.Clase_YCCC25")
If Err.Numer <> 0 Then
Msgbox "Problemas con la Librería
Else
On Error Goto 0
Set MiClase = Nothing
End If
End Function
</script>


Saludos,
Jhonny Vargas P. [MS MVP-ASP]
Santiago de Chile


"Yan Cantuarias" wrote in message
news:#

Hola, gracias por su tiempo...

Actualmente hago esto para crear un objeto utilizando una libreria del
servidor
set MiClase=server.CreateObject("YCCC25.Clase_YCCC25")
Psw = MiClase.Encripta(Cstr(clave))

Pero me gustaria en lugar de buscar la libreria en el servidor, lo busque

en

el cliente... porque me gustaria hacer una especie de certificados
digitales. Osea si no tiene la libreria es porque yo no se la he dado

y

por consiguiente no puede accesar


Gracias

YAN

Gracias por tu respuesta lo voy a probar y te aviso...

YAN

"Jhonny Vargas P." escribió en el mensaje
news:O143E$

Puedes crear un script en "vbscript" y al crear el objeto preguntar si
ocurre algún error

(es una idea per debería funcionar)

Ejemplo:
<script language="vbscript">
Function Verficar()

On Error Resume Next
Set MiClase = CreateObject("YCCC25.Clase_YCCC25")
If Err.Numer <> 0 Then
Msgbox "Problemas con la Librería
Else
On Error Goto 0
Set MiClase = Nothing
End If
End Function
</script>


Saludos,
Jhonny Vargas P. [MS MVP-ASP]
Santiago de Chile


"Yan Cantuarias" wrote in message
news:#
> Hola, gracias por su tiempo...
>
> Actualmente hago esto para crear un objeto utilizando una libreria del
> servidor
> set MiClase=server.CreateObject("YCCC25.Clase_YCCC25")
> Psw = MiClase.Encripta(Cstr(clave))
>
> Pero me gustaria en lugar de buscar la libreria en el servidor, lo

busque

en
> el cliente... porque me gustaria hacer una especie de certificados
> digitales. Osea si no tiene la libreria es porque yo no se la he

dado

y
> por consiguiente no puede accesar
>
>
> Gracias
>
> YAN
>
>

Hola no puedo usar "vbscript" tengo que agregar algo a mi directorio Web
o algo asi?

Gracias
YAN
"Jhonny Vargas P." escribió en el mensaje
news:O143E$

Puedes crear un script en "vbscript" y al crear el objeto preguntar si
ocurre algún error

(es una idea per debería funcionar)

Ejemplo:
<script language="vbscript">
Function Verficar()

On Error Resume Next
Set MiClase = CreateObject("YCCC25.Clase_YCCC25")
If Err.Numer <> 0 Then
Msgbox "Problemas con la Librería
Else
On Error Goto 0
Set MiClase = Nothing
End If
End Function
</script>


Saludos,
Jhonny Vargas P. [MS MVP-ASP]
Santiago de Chile


"Yan Cantuarias" wrote in message
news:#
> Hola, gracias por su tiempo...
>
> Actualmente hago esto para crear un objeto utilizando una libreria del
> servidor
> set MiClase=server.CreateObject("YCCC25.Clase_YCCC25")
> Psw = MiClase.Encripta(Cstr(clave))
>
> Pero me gustaria en lugar de buscar la libreria en el servidor, lo

busque

en
> el cliente... porque me gustaria hacer una especie de certificados
> digitales. Osea si no tiene la libreria es porque yo no se la he

dado

y
> por consiguiente no puede accesar
>
>
> Gracias
>
> YAN
>
>

Ya logre ejecutar, pero por nada del mundo puedo crear el objeto. y si
lo tengo registrado.
QUe puede ser?

"Yan Cantuarias" escribió en el mensaje
news:

Hola no puedo usar "vbscript" tengo que agregar algo a mi directorio

Web

o algo asi?

Gracias
YAN
"Jhonny Vargas P." escribió en el

mensaje

news:O143E$
> Puedes crear un script en "vbscript" y al crear el objeto preguntar si
> ocurre algún error
>
> (es una idea per debería funcionar)
>
> Ejemplo:
> <script language="vbscript">
> Function Verficar()
>
> On Error Resume Next
> Set MiClase = CreateObject("YCCC25.Clase_YCCC25")
> If Err.Numer <> 0 Then
> Msgbox "Problemas con la Librería
> Else
> On Error Goto 0
> Set MiClase = Nothing
> End If
> End Function
> </script>
>
>
> Saludos,
> Jhonny Vargas P. [MS MVP-ASP]
> Santiago de Chile
>
>
> "Yan Cantuarias" wrote in message
> news:#
> > Hola, gracias por su tiempo...
> >
> > Actualmente hago esto para crear un objeto utilizando una libreria del
> > servidor
> > set MiClase=server.CreateObject("YCCC25.Clase_YCCC25")
> > Psw = MiClase.Encripta(Cstr(clave))
> >
> > Pero me gustaria en lugar de buscar la libreria en el servidor, lo
busque
> en
> > el cliente... porque me gustaria hacer una especie de certificados
> > digitales. Osea si no tiene la libreria es porque yo no se la he
dado
> y
> > por consiguiente no puede accesar
> >
> >
> > Gracias
> >
> > YAN
> >
> >
>
>