login  Naam:   Wachtwoord: 
Registreer je!
 Scripts:

Scripts > Overige > VBScript > CD Drivers Openen en dichtgaan

CD Drivers Openen en dichtgaan

Auteur: Martindo - 05 april 2008 - 16:36 - Gekeurd door: Abbas - Hits: 5902 - Aantal punten: 1.00 (4 stemmen)




Laat uw CD Drivers opengaan en dichtgaan!

Martin


Code:
  1. Set oWMP = CreateObject("WMPlayer.OCX.7" )
  2. Set colCDROMs = oWMP.cdromCollection
  3. if colCDROMs.Count >= 1 then
  4. For i = 0 to colCDROMs.Count - 1
  5. colCDROMs.Item(i).Eject
  6. Next
  7. End If

Download code! Download code (.txt)

 Stemmen
Niet ingelogd.

 Reacties
Post een reactie
Lees de reacties (10)
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.013s