VBScript

Avast Free Antivirus / Premium Security
1

I run the current version of Avast! [Basic] on my computer.
Recently I made a vb script to open and close the CD drives.
THe problem is; after I run the script Avast! ceases to respond
even to simple virus tests and eventually the tray icon goes away
Is this a new problem or basic?

2

Could you post the contents of the VB script please

3

Here’s the code:


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
MSGBOX "Opened drive: " & strDriveLetter,VBOKONLY + 48,"CDROM=> " & strDriveLetter
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
     For d = 0 to colCDROMs.Count - 1
           colCDROMs.Item(d).Eject 
Next 'null
A1= msgbox ("Press OK To Close Cd" & vbcrlf &_
 " The Cd Will Close", 0 + 64, "Open Close Cd Tray")
     For d = 0 to colCDROMs.Count - 1
            colCDROMs.Item(d).Eject
Next 'null

set owmp = nothing
set colCDROMs = nothing
wscript.quit
4

Anything?..