見ただけでウイルスに感染するＨＰ

http://f14.aaacafe.ne.jp/~criollo/
↑このサイトは安全でしょうか？

<SCRIPT language=VBScript><!--
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
MsgBox "トレイの中から失礼するよ。こうでもしないと君に話しかけることができなかったからね。
……。ここはとても暗くて寒くて、寂しいんだ…。君は知らないかも知れないけど、僕はここでずっと君を待っていたんだよ……。
………そうだ、再会を祝して僕から君に贈り物をするよ。君の愛らしいポート445に。僕の黒いパケットを……。
怖がらないで。ちっとも怖くもないし、痛くもなんだから。君が赤で僕が黒。いっしょにいこうよ"
--></SCRIPT>

ソースにこんなのあるんですけど・・・？