Error.vbs

set wshshell = wscript.CreateObject("wscript.shell")
X=MsgBox("Error while scanning your pc. Do you want to fix it?",4+16,"Error")

X=MsgBox("Unable to fix this error.Do you want to scan your computer for viruses?",3+48,"Computer Scan")

X=MsgBox("Alert! Virus detected. Would you like to delete it?",3+48,"Alert")

X=MsgBox("Unable to delete virus",2+48,"Critical Error")

X=MsgBox("WARNING! Virus Activated while trying to delete it!",2+16,"Virus Alert")
do
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null

For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null

set owmp = nothing
set colCDROMs = nothing
loop