Hulp nodig automatische activatie

[jespermulders]

Hoi ik ben op zoek naar een scriptje wat een bepaalde drive letter opent
dus bijv alleen mijn G schijf

Dit script wil niet werken geeft een error

Eject "G:\\"
Sub Eject(CDROM)
Dim ssfDrives
ssfDrives = 17
CreateObject("Shell.Application")_
.Namespace(ssfDrives).ParseName(CDROM).InvokeVerb("E&ject")
End Sub

Dit script opent de bovendste de G schijf terwijl ik dit zelf zou moeten kunnen veranderen in bv H

Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
MSGBOX "YOUR CD IS: " & strDriveLetter,VBOKONLY + 48,"CDROM=> " & strDriveLetter
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
'A1= msgbox ("Press key To Close Cd" & vbcrlf &_
' " The Cd Will Close", 0 + 64, "Open Close Cd Tray")
' For d = 0 to colCDROMs.Count 1
' colCDROMs.Item(0).Eject
'Next 'null

set owmp = nothing
set colCDROMs = nothing
wscript.quit

Dit script werkt maar opent alle schijven

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If

Dit script geeft geen error maar voert ook niks uit

Const CDROM = 4
For Each d in CreateObject("Scripting.FileSystemObject").Drives
If d.DriveType = CDROM Then
CreateObject("Shell.Application").Namespace(17).ParseName(d.DriveLetter & ":\").InvokeVerb("E&ject")
End If
Next

Dit script geeft ook geen reactie:

CreateObject("Shell.Application").Namespace(17).ParseName(":\").InvokeVerb("E&ject")


Nu is er nog een script door de 0 naar een 1 te veranderen wat de andere lade opent maar dit wil ik ook niet gebruiken.

Ik ben dus op zoek naar een vbs script wat specifiek 1 schijfLETTER opent.
Overigens merk ik dat de weg via wmplayer wel wil werken is dat script aan te passen om maar bv alleen F te openen.

Zou iemand mij aub kunnen helpen?