Hacer un molesto programa que abre y cierra todas las unidades de cd (2 / 4 paso)

Paso 2: escriba la secuencia de comandos

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