00ffffffffffff005a634a4b783b0000180701000f201899e80489a0574a9b2612484c246700818f
614f614a494f454f314f31403140bc34009851002a40109013001ee51000001e401f003041002430
206033002ce110000018c31e002041002030106013002ce11000001e4c1d00304100263018883600
2ce11000001800a20000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000

 

Quote:

---

'Another reason for reliability problems is that there is no
'requirement in the EDID spec that a manufacture include the
'serial number in the EDID data AND only EDIDv1.2 and beyond
'have a requirement that the EDID contain a descriptive
'model name
'That being said, here goes....

---

• Look through each subkey, and you will see a key with a hexadecimal garbage string - possibly an internal resource id, but don't quote me on that.
  
• Look in this key for a DeviceID. If the DeviceID string starts with "Monitor\" then the entry is a monitor. "Class" is also set to Monitor.
  
• Now look for a subkey called "Control". I use this to identfy the active monitor - I have no idea if this is a valid test, but it works for me. If it doesn't have the "Control" subkey the script ignores it.
  
• Finally, look in the "Device Parameters" subkey. This should have an entry "EDID", which is the response from the monitor. This is a binary block with the data encoded in it.
  

Quote:

---

yes, it is in the registry

---

LOL

You'll have to provide more info than that - good looking intelligent and witty I am, omniscient I'm not

I'll knock up a debug version which will dump status information while it is working, but if you can post a text dump of the registry key it would help a lot.

Post any information that you think might be useful, especially if you think you know why it might be failing considering the check list I gave you in the last post.

Quote:

---

I will have a closer look on the non-reporting systems later, to see if the info is burried somewhere else in: CurrentControlSet\Enum\Display

---

Erik, run the debug version (posted above). It should be immediately obvious where the problem is.

I don't have the info for EDID 2.0, which I guess more recent monitors may support - if anyone has the specifications let me know and I'll have another look.

If you are interested in the documentation you can get the publicly available documents here: http://www.vesa.org/public

I guess you need to pay for the later versions

You will find that older versions of EDID stored a 32 bit serial number at 0x0C - 0x0F - I'll see if I can grab anything sensible from here.

• Checks that the EDID block is valid.
  
• Displays the EDID version info if debugging is switched on.
  
• Displays the week and year of manufacture.
  
• Displays the 1.2 serials number - YMMV but this is a garbage value for me.
  

; Return monitor info.
 
Break ON
 
$=SetOption("Explicit","ON")
$=SetOption("WrapAtEOL","ON")
$=SetOption("ASCII","ON")

GLOBAL $VERBOSE

$VERBOSE=1	; Set to "0" to disable debug info
 
Dim $KEY_DISPLAY
Dim $iIndexPri,$iIndexSub
Dim $sMonitor,$sDevice
 
$KEY_DISPLAY="HKLM\SYSTEM\CurrentControlSet\Enum\Display"
 
; Iterate through possible displays.
Log("Starting scan for monitor info...")
$iIndexPri=0
$sMonitor=EnumKey($KEY_DISPLAY,$iIndexPri)
While Not @ERROR
	$sMonitor=$KEY_DISPLAY+"\"+$sMonitor
	Log("--------------------------------------------")
	Log("Primary key is '"+$sMonitor+"'")
	$iIndexSub=0
	$sDevice=EnumKey($sMonitor,$iIndexSub)
	while Not @ERROR
		$sDevice=$sMonitor+"\"+$sDevice
		Log(" Secondary key is '"+$sDevice+"'")
		If KeyExist($sDevice+"\Control")
			Log("  Control found - device assumed to be active")
			If Instr(ReadValue($sDevice,"HardwareID"),"Monitor\")=1
				Log("   Device type is monitor.")
				ParseEDID(ReadValue($sDevice+"\Device Parameters","EDID"))
			Else
				Log("   Device type is not monitor.")
			EndIf
		Else
			Log("  Control not found - device assumed to be inactive")
		EndIf
		$iIndexSub=$iIndexSub+1
		$sDevice=EnumKey($sMonitor,$iIndexSub)
	Loop
	$iIndexPri=$iIndexPri+1
	$sMonitor=EnumKey($KEY_DISPLAY,$iIndexPri)
Loop

Log("Completed scan for monitor info.")
Exit 0
 
Function ParseEDID($sEDID)
	Dim $iOffset, $sBlock
	If $sEDID="" 
		Log("    No EDID information associated with device")
		Exit 0
	EndIf
	; Check for valid EDID data
	If SubStr($sEDID,1,16)="00ffffffffffff00"
		Log("    EDID signature is valid")
	Else
		Log("    EDID signature is invalid: "+SubStr($sEDID,1,16))
		Exit 0
	EndIf
	Log("    "+$sEDID)
	Log("    EDID Version number is "
		+Execute("Exit &"+SubStr($sEDID,(&12+1)*2-1,2))
		+"."
		+Execute("Exit &"+SubStr($sEDID,(&13+1)*2-1,2)))
	; Look for serial number and model number in descriptor blocks.
	For $iOffset=54 To 108 Step 18
		$sBlock=SubStr($sEDID,$iOffset*2+1,18*2)
		Select
		Case Left($sBlock,8)="000000fc"
			"                 Model: "
			Bin2Str(SubStr($sBlock,9)) ?
		Case Left($sBlock,8)="000000fe"
			"            Other info: "
			Bin2Str(SubStr($sBlock,9)) ?
		Case Left($sBlock,8)="000000ff"
			"EDID 1.3 Serial number: "
			Bin2Str(SubStr($sBlock,9)) ?
		Case "Unknown type"
			Log("    Unknown type: "+Left($sBlock,8))
		EndSelect
	Next
	"EDID 1.2 Serial number: "+Execute("Exit &"+SubStr($sEDID,(&1C+1)*2-1,8))+@CRLF
	"   Week of manufacture: "+Execute("Exit &"+SubStr($sEDID,(&10+1)*2-1,2))+@CRLF
	"   Year of manufacture: "+(1990+Execute("Exit &"+SubStr($sEDID,(&11+1)*2-1,2)))+@CRLF
EndFunction
 
Function Bin2Str($s)
	Dim $c
 
	While $s
		$c=Execute("Exit &"+Left($s,2))
		; Truncate string at CR
		If $c=10 Exit 0 EndIf
		iF $c $Bin2Str=$Bin2Str+Chr($c) EndIf
		$s=SubStr($s,3)
	Loop

	Exit 0
EndFunction

Function Log($s)
	If $VERBOSE @DATE+" "+@TIME+" "+$s+@CRLF EndIf
	Exit 0
EndFunction