Extract useful info from EDID registry value 1

[pdorman]

Hi all,

I'm writing a script to fetch Manufacturer, Model, and Serial Number of system monitors by parsing the EDID value found in the registry.

So far I can get to the correct value with some nested For loops:
"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\DISPLAY\DEL3008\4&1e85a963&1&80861100&00&02\Device Parameters"

Now I'm new to VBScript and get stuck here. If I simply output that value I get a very long decimal string:
025525525525525501617284881695166251313104322......

I want to decode this somehow and extract values at the following offsets:

(From

http://www.delorie.com/djgpp/rbinter/1.html)

Format of VESA EDID record:

..
08h WORD Big-endian manufacturer ID
0Ah WORD ID Code - monitor model
0Ch DWORD Serial number

I'd be very appreciative of help with this, and code if someone can provide it!

Thanks very much in advance,
Paul

 

[tsuji]

Hello pdorman,

[1] To read the reg_binary value, you can use again the stdregprov's getbinaryvalue method.
[2] The readout of the reg_binary value is an array of bytes, aReg(), say. The array(0) would be the 00h offset, etc. Hence 08h would be the element array(8). Per your description:

"Big-endian manufacturer ID" -> chr(aReg(9))& chr(aReg(8))
"ID Code - monitor model" -> chr(aReg(11))& chr(aReg(10))
"Serial number" -> chr(aReg(13)) & chr(aReg(12)) & chr(aReg(15)) & chr(aReg(14))

Whether it is lower-byte first or not, chr() or otherwise, you have to experiment a bit. (I can verify it, but, I think the principle would be something like the above.) You get all the elements for sorting thing out.

regards - tsuji

 

[tsuji]

addendum:

ALso you said "Big-endian", this gives further clue to decoding.

-tsuji