VBScript - Como crear archivos VBScript

VBS

Abrir un .txt para convertirlo en .vbs
Guardar como: miguel.vbs (todos los formatos y dar clic en guardar, para que el formato vbs sea como se lea en la pc.)

Después de tanto buscar y ver vídeos, encontré estas líneas que te ayudaran bastante para realizar correctamente un buen vbscript.

"Option Explicit"... En la parte superior al iniciar el script, con la finalidad de que si hay algún error en el código, te diga donde se encuentra exactamente donde se localiza y puedas modificarlo.

"Dim obj, a, b, c, d, e, f, shell"... Sirve para determinar los elementos en el scritp que vayan a poner en él.

"Set obj=createObject("wscript.shell")"
"Set shell=createObject("wscript.shell")"

"Set obj..." Nos ayudan para ejecutar comandos locales.
"Set shell..." Nos ayudan para ejecutar comandos online.

"a=msgbox"... Asi es como debe de iniciar un script para abrir una caja de mensaje.

Aquí para que vean como quedará el la caja con su estructura.
a=msgbox ("Message",vbYesNo+vbExclamation+vbSystemModal,"Title")
Lo que esta subrayado es la estructura de como debe de quedar.

No me metere a fondo con el subrayado por el momento, eso se los dejare de tarea. (Es para que aprendan de una mejor manera).

Ya cuando tenemos toda la parte superior ya podemos poner los códigos que querramos a diestra y siniestra.

obj.run"""url local"""
Shell.Run "url online",9

b=msgbox ("Message",vbInformation+vbSystemModal,"Title")
obj.run"""G:\Cumple Mor\par.jpg"""

c=msgbox ("Message",vbInformation+vbSystemModal,"Title")

Shell.Run "url online",9

Deja tu comentario si te ayudo esta información.

______________________________________________________________________________

BROMA PESADA PARA ABRIR Y CERRAR EL CDROM

Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

do

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

loop

End If

______________________________________________________________________________