Paso 1: Paso 1: copiar y pegar en el Bloc de notas
En primer lugar, seguir adelante y copiar y pegar esto en Bloc de notas.
##############################################################
hacer
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs ' como Scripting.FileSystemObject
CD-ROM const = 4
Error volver siguiente
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
Para intDriveLetter = Asc("A") a Asc("Z")
Err.Clear
Si fs. GetDrive(Chr(intDriveLetter)). DriveType = CDROM entonces
Si Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Salida para
End If
End If
Siguiente
Set oWMP = CreateObject ("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
Para d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d). De expulsión
Siguiente ' null
Para d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d). De expulsión
Siguiente ' null
Set owmp = nada
Set colCDROMs = nada
lazo
####################################################################
Si usted quiere saber lo que significan estos comandos, no me pregunten. No sé mucho acerca de la codificación y tal, sólo los hechos básicos. De hecho, deja en los comentarios debajo si usted quiere saber los comandos básicos para un archivo por lotes de Windows.
