This is a VB Script to eject CD tray periodically like a joking virus

Type this code in notepad and save as all-files as "anyname.vbs". ==CODE below==do
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
loop And then open the VBS file see what will happen to your CD Drive ?