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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 42109
Url: https://administrator.de/contentid/42109
Printed on: April 19, 2024 at 08:04 o'clock
4 Comments
Latest comment
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
