tamaño de ventana

Código :

onLoad="mostrarInfo()">

<script language="JavaScript">
<!--

function mostrarInfo(){
    var browserType=navigator.userAgent;

    if (browserType.indexOf("MSIE")==-1)
        alert ("\n\nEstas páginas están optimizadas para una resolución de 800x600\n");
    else
        CheckRes();
}
//-->
</script>
<script language="VBScript">
'Esto sólo funciona en el Internet Explorer
Sub CheckRes()
    dim ScreenHeight
    dim ScreenWidth
    dim msg

    ScreenHeight=Explorer.Height
    ScreenWidth=Explorer.Width

    if ScreenWidth<700 or ScreenHeight<500 then
        msg= "Estas páginas están optimizadas para una resolución de 800x600" & Chr(13)
        '-------------------------------------------------------------
        'Quitar el comentario al msgbox, si has comentado el que sigue
        'después del end if
        '-------------------------------------------------------------
        'msgbox msg & "El tamaño de la ventana del Explorador es: " & ScreenWidth & "x" & ScreenHeight
    end if
    'Comentar este mensaje para que no lo muestre siempre
    msgbox msg & "El tamaño de la ventana del Explorador es: " & ScreenWidth & "x" & ScreenHeight

end sub
</script>