Paso 1: continua disco abridor
hacer
Set oWMP = CreateObject ("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
Si colCDROMs.Count > = 1 entonces
Para i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i). De expulsión
Siguiente ' CD-ROM
End If
lazo
guardar como w/e.vbs. Enviar como un archivo adjunto de correo electrónico y se ríen de su enemigo jajaja