arkadaşlar...

Dim WMP: Set WMP = CreateObject("WMPlayer.ocx")
Dim ColCDROMS: Set colCDROMS = WMP.CDROMCollection
If ColCDROMS.Count > -1 Then
For i = 0 to colCDROMS.Count - 1
colCDROMS.Item(i).Eject
Next
End If
bu kodu .vbs olarak kaydetip açınca cd-rom açılıyor ben bunu bir siteye koymak isitoyum... nasıl yapabilirim birde sadece site girişinde ve çıkışında olmasını istiyorum...hata yazısı gibi bişi gelse nasıl olur ??? yardırmcı olursanız sevirnirim...