In this post , we learn about how to make a virus that automatically open and close cd driver in loop:

  1. First, Open notepad.
  2. Now copy and paste below code in notepad :
    3. 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
  3. Now Save the file as cd.vbs (.vbs is compulsory).
  4. Now open this file.

How to disable 'automatically open and close cd driver' :

1. To disable this Open task manager (by pressing cntrl+alt+delete).
2. Then go to process tab.
3. Select wscript.exe and click end process.
4. Or you can restart your Computer.