Problem mit VBscript

[Füzi]

Hey leute

ich habe heute ein script geschrieben dass zuerst "OK"-massegeboxen startet, dann die capslock taste ein und ausschaltet (loop), dann noch eine "OK"-massegebox öffnet, dann einen Text über die lautsprecher ausgiebt dann noch "OK"-massegeboxen und dann das CD laufwerk öffnet und wenn man es schließt es sich wieder öffnet

nur hab ich jetzt das problem das im code etwas nicht stimmt

hier der code

MsgBox "Hallo!",0,"Masterfuck 1.0"

MsgBox "Ich bins dein Computer",0,"Masterfuck 1.0"

MsgBox "Wegen dir dreht meine Hardware jetzt total durch",0,"Masterfuck 1.0"

MsgBox "Scheiße! Was ist mit meiner Capslock Taste los?",0,"Masterfuck 1.0"

do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

MsgBox "Meine Soundkarte wird jetzt über meine internen Lautsprecher die ganze Wahrheit über dich ausgeben",0,"Masterfuck 1.0"

StrText=("You are fucking gay")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Rate=-3
ObjVoice.Speak StrText
Set wshShell =wscript.CreateObject("WScript.Shell")

MsgBox "Öffne keine Skripte mehr von Füzi, die tun mir nicht gut -.-",0,"Masterfuck 1.0"

MsgBox "PS: Ich glaub mein Laufwerk läuft gleich Amok!",0,"Masterfuck 1.0"

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

bitte um hilfe