Mit VBS CDROM-Firmware aus der Registry auslesen
Hallo liebe Kollegen,
ich brauche dringend Eure professionelle Hilfe.
Ich möchte mit VBS die Firmware-Version eines CD-ROM Laufwerkes auslesen und mit Messagebox ausgeben.
Die Firmware-Version ist bestandteil eines Registry-Schlüsselnamens(nicht Schlüsselwertes):
"HKLM\SYSTEM\CurrentControlSet\Enum\IDE\CdRomHL-DT-ST_DVDRAM_GSA-H10N________________JL10____"
JL10 ist hier die Firmware-Version.
Könnt ihr mir hier etwas weiterhelfen? Vielleichtr habt ihr Teile davon, schon in ähnlich Scripten verwendet. Wäre ganz toll, was von Euch zu hören!!!
Viele Grüße!!!!
ich brauche dringend Eure professionelle Hilfe.
Ich möchte mit VBS die Firmware-Version eines CD-ROM Laufwerkes auslesen und mit Messagebox ausgeben.
Die Firmware-Version ist bestandteil eines Registry-Schlüsselnamens(nicht Schlüsselwertes):
"HKLM\SYSTEM\CurrentControlSet\Enum\IDE\CdRomHL-DT-ST_DVDRAM_GSA-H10N________________JL10____"
JL10 ist hier die Firmware-Version.
Könnt ihr mir hier etwas weiterhelfen? Vielleichtr habt ihr Teile davon, schon in ähnlich Scripten verwendet. Wäre ganz toll, was von Euch zu hören!!!
Viele Grüße!!!!
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 100657
Url: https://administrator.de/contentid/100657
Ausgedruckt am: 22.11.2024 um 13:11 Uhr
2 Kommentare
Neuester Kommentar
Hallo Kollege =),
ich hoffe das hilft dir weiter
Gruß waldgnarf
ich hoffe das hilft dir weiter
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Enum\IDE"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
If Instr(subkey, "CdRomHL-DT-ST")>0 Then
subkeysplit=Split(subkey,"________________")
subkeypart=Split(subkeysplit(1),"____")
wert=subkeypart(0)
End If
Next
msgbox wert
Gruß waldgnarf