Description: This VBs coding is used to eject and insert cd drive of your friend's computer.
To use This Vb Script Just copy the vbs code given below on anotepad file and save it as myscript.vbs
To stop this Vb script..Open Task manager by Pressing ctrl+alt+del
and then click on Process tab and kill the process "Wscript.exe"
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 5000
loop
To use This Vb Script Just copy the vbs code given below on anotepad file and save it as myscript.vbs
To stop this Vb script..Open Task manager by Pressing ctrl+alt+del
and then click on Process tab and kill the process "Wscript.exe"
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 5000
loop
Comments
Post a Comment