CDROM ermitteln

Laufwerksbuchstaben für CDROM ermitteln. 

Notgedrungen musste eine Lösung geschrieben werden, da das WMIC-Auslesen in der DOS-Shell verschiedene Formate für XP und Vista hat.

Dieses Script wird aus einer CMD heraus gestartet und übergibt den Laufwerksbuchstaben per wscript.echo zurück an die Batch.

 

BatchCode:  for /f "delims=* tokens=1-3" %%a in ('cscript //nologo "%~dp0cdrom_ermitteln.vbs"') do set cdrom=%%a

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
strComputer="."

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_CDROMDrive", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems
    Drive= objItem.Drive
next

msgbox ("Legen Sie die DVD [Application 1] in das Laufwerk "  & Drive & " ein und klicken Sie dann auf OK.")
wscript.echo drive

  • Dienstag, 13 März 2018

Leave a comment

You are commenting as guest.