Create a Harmless Funny Virus with Notepad-Continuously eject CD/DVD drives

Site တစ္ခုမွာေတြ႕တာနဲ႕ ကူးယူေဝမ်ွလုိက္တာပါ။ အေပ်ာ္သေဘာစမ္းလုိ႔ရပါတယ္။ ေအာက္က code ေတြကုိ
Copy>Paste>Notepad ထဲမွာ သိမ္းျပီး .bat အျဖစ္သိမ္းျပီး စမ္းေနာ္။ အားလုံးအဆင္ေျပၾကပါေစဗ်ား။
ဒီကုတ္ကုိ .bat ဖုိင္ေျပာင္းျပီး ကလစ္လုိက္တာနဲ႕ ခင္ဗ်ားကြန္ပ်ဴတာရဲ႕ CD/DVD Drive ေတာ့ ဖြင့္လုိက္၊ ပိတ္လုိက္နဲ႕ လည္ေနမွာျဖစ္ပါတယ္။
ဒါကုိ Stop ခ်င္ရင္ Task Manager ကုိသြားျပီး Process tab မွာ vbscript.exe  ကုိ End Process လုပ္လုိက္ရင္ရပါျပီ။
Save ရင္ Save as type: ေနရာမွာ All files ကုိေရြးထားပါေစ။

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