Abrir calculadora de Windows (ejemplo)

Elvis
25 de Diciembre del 2009
<BODY onload="calculadora()">
<SCRIPT LANGUAGE=vbscript>
<!--
Sub calculadora()
Dim objWSCript
Dim FSO, miFile

Set FSO = CreateObject("Scripting.FileSystemObject")
miFile = ("c:windowscalc.EXE")

If FSO.FileExists(miFile) Then
Set objWSCript = CreateObject("WSCript.Shell")
objWSCript.Run miFile
Else
miFile = "c:Winntsystem32calc.EXE"
Set objWSCript = CreateObject("WSCript.Shell")
objWSCript.Run miFile
End if

Set FSO = Nothing
Set objWSCript = Nothing
End Sub
//-->
</SCRIPT>

</BODY onload="calculadora()" >


atte.
Elvis
Santiago,CHILE

CLEVER
25 de Diciembre del 2009
UNA CONSULTA AL ABRIR ME SLAE UN MESANJE DE ADVERTENCI EXISTE ALGUNA FORMA DE QUE NO SALGA EL MENSAJE GRACIAS