Abrir cd con script VBs | Alquimista de sistemas

vie 16 enero 2015
vbs
#vbs, #visualbasicscript, #script, #windows, #vbscript

Escribano dibujo Este trozo de script sirve para poder abrir el cd físico con un simple click al fichero. Recuerda guardarlo con extensión .vbs .

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count  then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If