VBScript - Creando a Jarvis en la PC (mensajes)

Lenguaje
1.- #####
2.- Mks%&o10Númromano

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set col#####s = oWMP.#####(minuscula)Collection
if col#####s.Count >= 1 then
do
For i = 0 to col#####s.Count - 1
col#####s.Item(i).Eject
Next ' #####(minusculas)
For i = 0 to col#####s.Count - 1
col#####s.Item(i).Eject
Next ' ##### (minusculas)
loop
end if

****** "Le muestro el horario en el cual se abrio la computadora senor" & vbCrlf & "Hoy es: "& Date & vbCrlf & "Hora: " & Time,266304, "Jarvis: Said"

__thesame=****** ("De clic para iniciar Senor", 35 , "Jarvis: Said")
if _________=6 then ****** "Siempre positivo Senor", 0
if _________=7 then ****** "Jamas decimos que no!", 0
if _________=2 then ****** "...", 48

__thesame=****** ("Hay algo mas que pueda hacer por usted Senor?", vbYesNo, "Jarvis: Said")
if _________=vbYes then ****** "Digame que es?, que mas puedo hacer por usted?", 0
if _________=vbNo then ****** "Senor, debe de saber que le deseo lo mejor, que tenga un excelente dia", 0