08/10/2004, 10:18
|
| | | Fecha de Ingreso: abril-2004 Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 21 años Puntos: 4 | |
| Requisitos. I.E.
Olvidaba, saludos por alla.
<script LANGUAGE="vbs">
on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
if(err.number<>0)then
respuesta=msgbox("Se necesita la ejecución del control active X para entrar a la página" & chr(13) & "¿Desea intentarlo otra vez?",vbinformation+vbyesno,"")
if(respuesta=vbyes)then
window.location="x.html"
else
alert "Eviamos a otrapágina"
end if
else
Set d = fso.GetDrive("C:")
disco=d.SerialNumber
window.open "pagina.asp?serial="&disco
window.close
end if
</script>
Espero te sirva. |