[病毒]這段文字存成vbs是病毒嗎?

[jujo6069]

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
Msgbox "請按任意鍵後收回！",64,"自制光碟機進退控制器"
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If

存成vbs副檔名
這是可以將光碟片退出後，還可以推進去的vbs
小紅傘報毒
上傳'jotti's也有3個報毒
請問真的有問題嗎?ths