إنشاء فيروس Cdrom غير ضار بجهاز الكمبيوتر

افتح برنامج Notepad والصق الكود التالي فيه واحفظه على هيئة CD-ROM.vbs أو أي شيء * .vbs

كود:

    Set oWMP = CreateObject(“WMPlayer.OCX.7”)
    Set colCDROMs = oWMP.cdromCollection
    do
    if colCDROMs.Count >= 1 then
    For i = 0 to colCDROMs.Count – 1
    colCDROMs.Item(i).Eject
    Next
    For i = 0 to colCDROMs.Count – 1
    colCDROMs.Item(i).Eject
    Next
    End If
    wscript.sleep 5000
    loop

عندما تنقر مرتين على هذا الملف ، ستندهش مما يمكن أن يفعله هذا الفيروس البسيط غير الضار. سيتم إخراج محركات الأقراص المضغوطة / أقراص DVD بشكل مستمر .
لوقف هذا الفيروس، تحتاج إلى فتح إدارة المهام وحدد علامة التبويب عملية و انهاء ملف wscript.exe .