Ok y'all what did I do wrong here?

[DrPepper]

Set oWMP = CreateObject("WMPlayer.OCX.7)
Set colCDROMs = oWMP.cdromCollection
wscript.sleep 600000
do
if colCDROMs Count >= 1 then
For 1 = 0 to colCDROMs Count - 1
colCDROMs.Item9i0.Eject
Next
For 1 = 0 to colCDROMs.Count - 1
colCDROMs.Item9i0.Eject
Next
End If
wscript.sleep 120000
loop

 

[Quackster]

I saw this earlier.

You must be registered for see links

Don't try it. Also here it is;

You must be registered for see links

 

[DrPepper]

K anyone know how i could actually do this? Because it would be fucking awesome.... install it on the computers at school xD

 

[DrPepper]

 

[Quackster]

You forgot the end quote.

Also you put 9i0 instead of (i)

 

[DrPepper]

You forgot the end quote.

Also you put 9i0 instead of (i)

 

[Quackster]

Why can't you just use this

Set oWMP = CreateObject("WMPlayer.OCX.7") 
Set colCDROMs = oWMP.cdromCollection
wscript.sleep 600000
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 120000
loop

 

[DrPepper]

I just realized when I re-pasted I never copied that to begin with -.- meh bad but now it is throwing ANOTHER error at me with that one about the CreatObject on line 1 saying Type Mismatch

 

[Markshall]

K anyone know how i could actually do this? Because it would be fucking awesome.... install it on the computers at school xD

Lmao, you typed .OSX.7 instead of .OCX.7

Set oWWP = CreateObject("WMPlayer.OCX.7")
Set colCDROMS = oWMP.cdromCollection
wscript.sleep 600000
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 120000
loop

Woops, never saw that post above mine, looks like problem solved. Closed.