Scripthulp nodig

[erik12345]

Hoe doe je bij dit script:
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
End If


dat ie weer dicht gaat?

 

[Guus2005]

Hoe doe je bij dit script:
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
End If


dat ie weer dicht gaat?

Set oWMP=Nothing

 

[erik12345]

lukt niet

 

[Guus2005]

Stom
Ik dacht dat je het over je object had.

Dat is daarmee in ieder geval gesloten!

 

[erik12345]

ik had de vraag ook niet slim gesteld ik bedoelde:
met welk script kun je de cd-rom drive weer sluiten?


P.S.
het moet in vbs.

 

[Guus2005]

zit er geen load method tussen?

 

[erik12345]

en dat is?????????

sorry ik ben nieuw en snap nog niet echt veel.

 

[Guus2005]

To load or not to load...

je gebruikt

colCDROMs.Item(i).Eject

en ik vroeg me af of er niet een

colCDROMs.Item(i).Load

method was.
Probeer het eens?

 

[erik12345]

Je bedoelt:

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).Load
Next
End If

Want dit lukt niet.

 

[m@rio]

Ik heb je vraag een eigen plek gegeven aangezien het niet netjes is om in te breken in andermans vraag

 

[erik12345]

oke is goed

 

[erik12345]

Weet dan niemand hoe het moet?:shocked: