select case wscript.arguments(0)
	case "/?"
		call help
	case else
		call selmsg
end select
 
sub selmsg
 
dim c
c=0
 
for each var in wscript.arguments
c = c + 1
next
 
select case c
 
case 1
call msg1
case 2
call msg2
case 3
call msg3
 
end select
 
end sub
 
sub msg1
msgbox wscript.arguments(0)
end sub
 
sub msg2
 
dim icon
icon = 0
 
select case wscript.arguments(1)
 
case 0
	icon = 0
case 1
  icon = vbcritical
case 2
	icon = vbinformation
case 3
	icon = 48
case 4
	icon = vbquestion
end select
 
msgbox wscript.arguments(0), icon
end sub
 
sub msg3
 
dim icon
icon = 0
 
select case wscript.arguments(1)
 
case 0
	icon = 0
case 1
  icon = vbcritical
case 2
	icon = vbinformation
case 3
	icon = 48
case 4
	icon = vbquestion
end select
 
msgbox wscript.arguments(0), icon, wscript.arguments(2)
end sub
 
sub help
wscript.echo "Uso:"
wscript.echo "Cscript /nologo msg.vbs [Mensaje] [Tipo] [Titulo]"
wscript.echo "[Mensaje]: Prompt para el cuadro de dialogo"
wscript.echo "[Tipo]: Tipo de icono "
wscript.echo "0 - Sin icono"
wscript.echo "1 - Error"
wscript.echo "2 - Informacion"
wscript.echo "3 - Advertencia"
wscript.echo "4 - Pregunta"
wscript.echo "Para pasar un argumento, el argumento anterior debe ser declarado,"
wscript.echo "por ejemplo, si se pone un icono y se omite el Mensaje"
wscript.echo "el mensaje sera la opcion ingresada para el icono"
wscript.echo ""
end sub
 

cscript /nologo <ruta_del_archivo>.vbs <argumento_1> <argumento_2> <argumento_3>
 

@echo off
for /f "tokens=*" %%i in ('dir /b') do (echo e=e^&"%%i"^&vbnewline >> %temp%\s.vbs)
echo msgbox e>> %temp%\s.vbs
start /w %temp%\s.vbs
del %temp%\s.vbs

echo msgbox e,64>> %temp%\s.vbs