4
Teile vom Gerätemanager auslesen
CD bzw. DVD Laufwerk
Hallo.
Ich brauche eine Liste mit meiner ganzen Hardware (hab ich natürlich)
Was ich nicht habe ist, welches Laufwerk welcher Rechner drin hat.
Sprich DVD, CD CD Brenner, ....
Kann ich irgendwie den CD Laufwerk Eintrag im Geräte manager auslesen ?
Das würd mir schon ziemlich helfen.
Danke
Bernhard
Hallo.
Ich brauche eine Liste mit meiner ganzen Hardware (hab ich natürlich)
Was ich nicht habe ist, welches Laufwerk welcher Rechner drin hat.
Sprich DVD, CD CD Brenner, ....
Kann ich irgendwie den CD Laufwerk Eintrag im Geräte manager auslesen ?
Das würd mir schon ziemlich helfen.
Danke
Bernhard
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 42109
Url: https://administrator.de/forum/teile-vom-geraetemanager-auslesen-42109.html
Ausgedruckt am: 16.02.2025 um 21:02 Uhr
4 Kommentare
Neuester Kommentar
benutz mal
AIDA 32 -->http://www.chip.de/downloads/c1_downloads_13006279.html
oder
Sandra -->http://www.chip.de/downloads/c1_downloads_12998086.html
AIDA 32 -->http://www.chip.de/downloads/c1_downloads_13006279.html
oder
Sandra -->http://www.chip.de/downloads/c1_downloads_12998086.html
Danke für die Links.
Nur denke ich mal, dass die Tools nur funktionieren, wenn alle Rechner in einer Domäne sind.
Was leider bei uns nicht der Fall ist.
Oder ?
Danke
Bernhard
Nur denke ich mal, dass die Tools nur funktionieren, wenn alle Rechner in einer Domäne sind.
Was leider bei uns nicht der Fall ist.
Oder ?
Danke
Bernhard
Hier ein VBScript mit WMI:
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("PC-01") ' Hier den PC-Namen angeben, es können auch mehrere angegeben werden durhc Komma getrennt!
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_CDROMDrive", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DeviceID: " & objItem.DeviceID
WScript.Echo "Drive: " & objItem.Drive
WScript.Echo "DriveIntegrity: " & objItem.DriveIntegrity
WScript.Echo "Manufacturer: " & objItem.Manufacturer
WScript.Echo "MediaLoaded: " & objItem.MediaLoaded
WScript.Echo "MediaType: " & objItem.MediaType
WScript.Echo "Name: " & objItem.Name
strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
WScript.Echo
Next
Next
Gruß MCSE_Cheffe
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("PC-01") ' Hier den PC-Namen angeben, es können auch mehrere angegeben werden durhc Komma getrennt!
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_CDROMDrive", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DeviceID: " & objItem.DeviceID
WScript.Echo "Drive: " & objItem.Drive
WScript.Echo "DriveIntegrity: " & objItem.DriveIntegrity
WScript.Echo "Manufacturer: " & objItem.Manufacturer
WScript.Echo "MediaLoaded: " & objItem.MediaLoaded
WScript.Echo "MediaType: " & objItem.MediaType
WScript.Echo "Name: " & objItem.Name
strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
WScript.Echo
Next
Next
Gruß MCSE_Cheffe
Ok. Und nun für ganz Blöde:
Wo und wie aktiviere ich dieses Skript ?
DANKE
Bernhard
Wo und wie aktiviere ich dieses Skript ?
DANKE
Bernhard
