Een vervelend programma dat opent en sluit alle uw cd-stations te maken (2 / 4 stap)

Stap 2: Typ het script

doen
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs ' als Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
Als fs. GetDrive(Chr(intDriveLetter)). DriveType = CDROM Then
Als Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Afsluiten voor
End If
End If
Volgende
Set oWMP = CreateObject ("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
Voor d = 0-colCDROMs.Count - 1
colCDROMs.Item(d). Uitwerpen
Volgende ' null

Voor d = 0-colCDROMs.Count - 1
colCDROMs.Item(d). Uitwerpen
Volgende ' null

set owmp = niets
set colCDROMs = niets
lus