Vbscript CD Open

i have a laptop so i cant test if it closes but try this 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 ' cdrom End if loop

i did it, its on a laptop now, but when i close it keeps opening :@ i cant close it lmao

How to close?

i can make it it opens evry 4 seconds

thanks sooooo much this works and i just have to say awesome...

Its Not CLosing?? How Do I CLose It?????

iv done this before, think a LAN chat program, on a data arrival and if statement is passed to see if "open drive" is sent as a message, if it is then eject disk drive. Then all you gota do is get all your friends at college to run it with a neat noughts and crosses game on it and send "open drive" and watch 30 open simultaniously! but he cud have done it multiple ways...

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 ' cdrom end if loop

sry, but it aint working :S

This will open and close the CD drive :-) 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 ' cdrom end if loop