12-18-2009, 09:37 PM
2211 Yeah my birthday
btw
copy this into notepad (editor)
On Error Resume Next
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
and then save as "Drive.vbs" without the ""
double click and enjoy XD
i did that the whole IT-Lesson... on all PC's XD
btw
copy this into notepad (editor)
On Error Resume Next
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
and then save as "Drive.vbs" without the ""
double click and enjoy XD
i did that the whole IT-Lesson... on all PC's XD