Loading...
DONT FORGET TO SAVE IT AS .VBS
sexyjamie1234 • 734,957 views
'VBScript
On Error Resume Next
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
End If
Loop
'VBScript ends
And you will see some dramatic things.
New STUFF PHIL LIKES Show: http://bit.ly/obZP2n
FACEBOOK: http://on.fb.me/mqpRW7 TWITTER: http://Twitter.com/PhillyD
Check out the DEFRANCO MO...
sxephil • 1,984,794 views
'VBScript
On Error Resume Next
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
End If
Loop
'VBScript ends
And you will see some dramatic things.