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: 4791 - 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-2014 Sitemasters.be - Regels - Gehost door: FireMultimedia - Laadtijd: 0.037s