Hola Guarair@ :)
Guardá esto en un archivo "demo.js" y después hacele doble click:
Código:
var vbOKCancel = 1;
var vbInformation = 64;
var vbCancel = 2;
var L_Welcome_MsgBox_Message_Text = "Este archivo de comandos demuestra cómo obtener acceso a Excel usando el Windows Scripting Host.";
var L_Welcome_MsgBox_Title_Text = "Ejemplo de Windows Scripting Host";
Welcome();
var objXL;
objXL = WScript.CreateObject("Excel.Application");
objXL.Workbooks.Add;
objXL.Cells(1,1).Value = 5;
objXL.Cells(1,2).Value = 10;
objXL.Cells(1,3).Value = 15;
objXL.Range("A1:C1").Select;
var objXLchart = objXL.Charts.Add();
objXL.Visible = true;
objXLchart.Type = -4100;
var intRotate;
for(intRotate = 5; intRotate <= 180; intRotate += 5) {
objXLchart.Rotation = intRotate;
}
for (intRotate = 175; intRotate >= 0; intRotate -= 5) {
objXLchart.Rotation = intRotate;
}
function Welcome() {
var WSHShell = WScript.CreateObject("WScript.Shell");
var intDoIt;
intDoIt = WSHShell.Popup(L_Welcome_MsgBox_Message_Text,0,L_Welcome_MsgBox_Title_Text,vbOKCancel + vbInformation );
if (intDoIt == vbCancel) {
WScript.Quit();
}
}
Suerte ;)
<table><tr><td><IMG src=banderas/argentina.gif></td><td><small>
Alta en el cielo, un águila guerrera<br>audaz se eleva, en vuelo triunfal.<br>Azul un ala, del color del cielo.<br>Azul un ala, del color del mar.</small></td></tr></table>