Visual Basic

		Next
			
		' Now get all the Monitor Info
		objOutputFile.Write ", ," & GetMonitorInfo() & vbNewLine
							
	Else
		'WScript.Echo strComputer & " not found..."
		objOutputFile.Write "*** " & strComputer & " *** NOT Found" & vbCrLf
		Err.Clear
		End If
	Next
	
	
	End If

End If

End Sub


'DISPLAY_REGKEY sets the regkey where displays are found. Don't change except for debugging
'I only change it when I am looking at a .REG file that someone sent me saying that the
'code doesn't work.
	Const DISPLAY_REGKEY="HKLM\SYSTEM\CurrentControlSet\Enum\DISPLAY\"
'sets the debug outfile (use format like c:\debug.txt)
	Const DEBUGFILE="NUL"
'if set to 1 then output debug info to DEBUGFILE (also writes debug to screen if running under cscript.exe)
	Const DEBUGMODE=0
'The ForceCscript subroutine forces execution under CSCRIPT.EXE/Prevents execution
'under WSCRIPT.EXE -- useful when debugging
'ForceCScript
 
	DebugOut "Execution Started " & cstr(now)
'wscript.echo GetMonitorInfo() 'just write the output to screen
	DebugOut "Execution Completed " & cstr(now)
 
'This is the main function. It calls everything else
'in the correct order.
Function GetMonitorInfo()
 
	debugout "Getting all display devices"
	arrAllDisplays=GetAllDisplayDevicesInReg()
	debugout "Filtering display devices to monitors"
	arrAllMonitors=GetAllMonitorsFromAllDisplays(arrAllDisplays)
	debugout "Filtering monitors to active monitors"
	arrActiveMonitors=GetActiveMonitorsFromAllMonitors(arrAllMonitors)
 
	if ubound(arrActiveMonitors)=0 and arrActiveMonitors(0)="{ERROR}" Then
		debugout "No active monitors found"
		strFormattedMonitorInfo="[Monitor_1]" & vbcrlf & "Monitor=Not Found" & vbcrlf & vbcrlf
	else
		debugout "Found active monitors"
		debugout "Retrieving EDID for all active monitors"
		arrActiveEDID=GetEDIDFromActiveMonitors(arrActiveMonitors)
		debugout "Parsing EDID/Windows data"
		arrParsedMonitorInfo=GetParsedMonitorInfo(arrActiveEDID,arrActiveMonitors)
		debugout "Formatting parsed data"
		strFormattedMonitorInfo=GetFormattedMonitorInfo(arrParsedMonitorInfo)
	end If