Popping CD Drives
*This will make the CD drives constantly pop out*
Code:-
Set oWMP = CreateObject(”WMPlayer.OCX.7?)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 100
loop
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 100
loop
save this as .bat file in notepad.
_________________________
_________________________
Related Posts
Subscribe Our Newsletter
Excellent article. Very interesting to read. I really love to read such a nice article. Thanks! keep rocking. https://seriespapaya.live
ReplyDeleteIt is a fantastic post – immense clear and easy to understand. I am also holding out for the sharks too that made me laugh. https://9xflix.today
ReplyDeleteThis is a great post. I like this topic.This site has lots of advantage.I found many interesting things from this site. It helps me in many ways.Thanks for posting this again. https://uwatchfree.cloud
ReplyDelete