Hallo Ingo,
dieser VBScript Ausschnitt sollte dir als Grundgerüst dienen (ist von einem Tool generiert)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_CDROMDrive",,48)
For Each objItem in colItems
Wscript.Echo "-----------------------------------"
Wscript.Echo "Win32_CDROMDrive instance"
Wscript.Echo "-----------------------------------"
If isNull(objItem.Capabilities) Then
Wscript.Echo "Capabilities: "
Else
Wscript.Echo "Capabilities: " & Join(objItem.Capabilities, ",")
End If
If isNull(objItem.CapabilityDescriptions) Then
Wscript.Echo "CapabilityDescriptions: "
Else
Wscript.Echo "CapabilityDescriptions: " & Join(objItem.CapabilityDescriptions, ",")
End If
Wscript.Echo "Caption: " & objItem.Caption
Next
Das führt eine WMI Abfrage durch und gibt eine Collection von gefundenen Laufwerken zurück. Diese werden durchgegangen und wenn die Fähigkeiten vorhanden sind werden die Werte (Capabilities und die Übersetzungen als Name) ausgegeben. Caption gibt noch den Namen vom Laufwerk aus.
Du musst einfach bei Capabilities eine if Capabilities = 3 Abfrage einbauen und dann eine Variable auf true setzen.
Reicht dir das?
Gruß
André
"A programmer is just a tool which converts caffeine into code" CLIP- Stellvertreter http://www.winvistaside.de/
