Cd Room Track computer trick

1- Open the notepad and past the following 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

 


2- Save Save as anyname.Vbs
 
 
or download here cd room.vbs (898 B)