Stap 1: Stap 1: Kopieer en plak in Kladblok
Ten eerste, ga je gang en kopieer en plak deze in Kladblok.
##############################################################
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
####################################################################
Als u weten wat deze commando's betekenen wilt, vraag me niet. Ik weet niet te veel over codering en dergelijke, alleen de basisfeiten. In feite laat in de comments hieronder als u wilt weten van deze basis commando's voor een Batch-bestand van Windows.
