(imported comment written by jpeppers91)
Is there a way to report on multiple monitors of a workstation?
(imported comment written by castillo0218)
I second this
(imported comment written by mcalvi91)
We had an issue with some display port dongles from HP and needed not only SN of the monitor but manufacture date as well. We found a script that we converted to an EXE to inventory the systems for their monitor info. It takes a bit of tweaking but the data is gold…
Cant remember where we found it so I below it. It pulls the EDID data and parses that.
'**************************************Heading*********************************
' info.vbs
'
' Jason Hofferle, jason@hofferle.com
' 08/16/2006 - version 0.1.1
'
' Monitor EDID code written by Michael Baird and modified by Denny MANSART
'
' Abstract:
' info.vbs - Command line utility that gathers hardware information
' including serial numbers from a remote computer.
'
'
' Usage:
' info [computer]
'
' Example:
' info CXAFLSTPAW101
' info ?
'
'******************************************************************************
'Option Explicit Dim objArgs Dim strComputer Const strGeneral_01 =
"Abstract:" Const strGeneral_02 =
" info.vbs - Command line utility that gathers" Const strGeneral_03 =
" hardware information including " Const strGeneral_04 =
" serial numbers from a remote " Const strGeneral_05 =
" computer. " Const strGeneral_06 =
"" Const strGeneral_07 =
"Jason Hofferle - jason.hofferle@dcma.mil" Const strGeneral_08 =
"6/17/2005 version 0.1.0" Const strGeneral_09 =
"Monitor EDID code written by Michael Baird and modified " Const strGeneral_10 =
"by Denny MANSART " Const strUsage_01 =
"Usage:" Const strUsage_02 =
" info [computer]" Const strUsage_03 =
"Examples:" Const strUsage_04 =
" info CXAFLSTPAW101" Const strUsage_05 =
" info ?" Const strError_ComputerNameNotFound =
"Computer name not found, using local system." Const strError_ConnectingToComputer =
"Error connecting to specified computer." Const strError_ComputerNotFound =
"Specified computer could not be found on the network." Const strError_AlreadyAdmin =
"Specified user is already a member of the Administrators group." Const strError_UserNotFound =
"Specified user could not be found in the domain." Const strError_AddingUser =
"Error adding user to specified computer." Const strError_CannotPing =
"Cannot ping remote computer." On Error Resume Next Err.Clear Set objArgs = WScript.Arguments If objArgs.Count > 0 Then strComputer = objArgs(0)
if Not Pingable(strComputer) then Wscript.echo strError_CannotPing strComputer =
"?" End If Else Wscript.Echo strError_ComputerNameNotFound strComputer =
"." End If If strComputer =
"?" Then WScript.Echo strGeneral_01 WScript.Echo strGeneral_02 WScript.Echo strGeneral_03 WScript.Echo strGeneral_04 WScript.Echo strGeneral_05 WScript.Echo strGeneral_06 WScript.Echo strGeneral_07 WScript.Echo strGeneral_08 WScript.Echo strGeneral_09 WScript.Echo strGeneral_10 WScript.Echo
"" WScript.Echo strUsage_01 WScript.Echo strUsage_02 WScript.Echo strUsage_03 WScript.Echo strUsage_04 WScript.Echo strUsage_05 WScript.Quit End If winmgmt1 =
"winmgmts:{impersonationLevel=impersonate}!//"& strComputer &
"" Set SerialN = GetObject( winmgmt1 ).InstancesOf (
"Win32_BIOS") For each Serial in SerialN WScript.Echo
"Serial Number: " & Serial.SerialNumber Next Set objWMIService = GetObject(
"winmgmts:" _ &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2
") Set colItems = objWMIService.ExecQuery _ (
"Select * from Win32_PhysicalMemoryArray") For Each objItem in colItems
'Wscript.Echo "Description: " & objItem.Description Wscript.Echo
"Maximum Capacity: " & objItem.MaxCapacity
'Wscript.Echo "Memory Devices: " & objItem.MemoryDevices
'Wscript.Echo "Memory Error Correction: " & objItem.MemoryErrorCorrection Next Set objWMIService = GetObject(
"winmgmts:" _ &
"{impersonationLevel=impersonate}!\\" _ & strComputer &
"\root\cimv2") Set colSMBIOS = objWMIService.ExecQuery _ (
"Select * from Win32_SystemEnclosure") For Each objSMBIOS in colSMBIOS Wscript.Echo
"Part Number: " & objSMBIOS.PartNumber WScript.Echo
"Serial Number: " _ & objSMBIOS.SerialNumber WScript.Echo
"Asset Tag: " _ & objSMBIOS.SMBIOSAssetTag Next WScript.Echo
""
''
''
''
''
''
''
''
''
''
''
''
''
''
'
' Monitor EDID Information'
''
''
''
''
''
''
''
''
''
''
''
''
''
'
'17 June 2004
'coded by Michael Baird
'
'Modified by Denny MANSART (27/07/2004)
'
'and released under the terms of GNU open source license agreement
'(that is of course if you CAN release code that uses WMI under GNU)
'
'Please give me credit if you use my code
'this code is based on the EEDID spec found at http://www.vesa.org
'and by my hacking around in the windows registry
'the code was tested on WINXP,WIN2K and WIN2K3
'it should work on WINME and WIN98SE
'It should work with multiple monitors, but that hasn't been tested either. Dim oDisplaySubKeys : Set oDisplaySubKeys = CreateObject(
"Scripting.Dictionary") Dim oRawEDID : Set oRawEDID = CreateObject(
"Scripting.Dictionary") Const HKLM = &H80000002
'HKEY_LOCAL_MACHINE Int intMonitorCount=0 Int intDisplaySubKeysCount=0 Int i=0
' Set WshNet=CreateObject("Wscript.Network")
' MyComputerName=WshNet.ComputerName
'
' strComputer=MyComputerName
'strComputer=wscript.arguments(0) Set oRegistry = GetObject(
"winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "/root/
default:StdRegProv
") strDisplayBaseKey =
"SYSTEM\CurrentControlSet\Enum\DISPLAY\"
' Retrieving EISA-Id from HKLM\SYSTEM\CurrentControlSet\Enum\DISPLAY and storing in strarrDisplaySubKeys iRC = oRegistry.EnumKey(HKLM, strDisplayBaseKey, strarrDisplaySubKeys)
' Deleting from strarrDisplaySubKeys "Default_Monitor" value For Each sKey In strarrDisplaySubKeys If sKey =
"Default_Monitor" Then intDisplaySubKeysCount=intDisplaySubKeysCount - 1 Else oDisplaySubKeys.add sKey, intDisplaySubKeysCount End If intDisplaySubKeysCount=intDisplaySubKeysCount + 1 Next
' Storing result in oDisplaySubKeys strResultDisplaySubKeys=oDisplaySubKeys.Keys toto=0 For i = 0 to oDisplaySubKeys.Count -1 strEisaIdBaseKey = strDisplayBaseKey & strResultDisplaySubKeys(i) &
"\"
' Retrieving Pnp-Id from HKLM\SYSTEM\CurrentControlSet\Enum\DISPLAY\EISA-Id and storing in strarrEisaIdSubKeys iRC2 = oRegistry.EnumKey(HKLM, strEisaIdBaseKey, strarrEisaIdSubKeys) For Each sKey2 In strarrEisaIdSubKeys oRegistry.GetMultiStringValue HKLM, strEisaIdBaseKey & sKey2 &
"\", "HardwareID
", sValue For tmpctr=0 to ubound(svalue) If lcase(Left(svalue(tmpctr),8))=
"monitor\" then strMsIdBaseKey = strEisaIdBaseKey & sKey2 &
"\" iRC3 = oRegistry.EnumKey(HKLM, strMsIdBaseKey, strarrMsIdSubKeys) For Each sKey3 In strarrMsIdSubKeys If skey3=
"Control" then toto=toto + 1 oRegistry.GetBinaryValue HKLM, strMsIdBaseKey &
"Device Parameters\", "EDID
", intarrEDID
' Test file
'Dim objFileSystem, objOutputFile
'Dim strOutputFile
'Set objFileSystem = CreateObject("Scripting.fileSystemObject")
'strOutputFile = "C:/temp/" & Split(WScript.ScriptName, ".")(0) & "-" & toto & ".txt"
'Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
'objOutputFile.WriteLine(strMsIdBaseKey & "Device Parameters\" & "EDID")
' Reinitializing string to null to clear all datas strRawEDID=
"" strRawEDIDb=
"" If vartype(intarrEDID) = 8204 then For each strByteValue in intarrEDID strRawEDID=strRawEDID & Chr(strByteValue) strRawEDIDb=strRawEDIDb & Chr(strByteValue)
' Test file
'objOutputFile.WriteLine(strRawEDIDb) Next Else strRawEDID=
"EDID Not Available" End If
' Test file
'objOutputFile.WriteLine(strRawEDIDb)
'objOutputFile.Close
'Set objFileSystem = Nothing oRawEDID.add intMonitorCount , strRawEDID intMonitorCount=intMonitorCount + 1 End If Next End If Next Next Next
'*****************************************************************************************
'now the EDID info For each active monitor is stored in an dictionnary of strings called oRawEDID
'so we can process it to get the good stuff out of it which we will store in a 5 dimensional array
'called arrMonitorInfo, the dimensions are as follows:
'0=VESA Mfg ID, 1=VESA Device ID, 2=MFG Date (M/YYYY),3=Serial Num (If available),4=Model Descriptor
'5=EDID Version
'***************************************************************************************** strResultRawEDID=oRawEDID.Keys dim arrMonitorInfo() redim arrMonitorInfo(intMonitorCount-1,5) dim location(3)
' Test file
'Set objFileSystem = CreateObject("Scripting.fileSystemObject")
'strOutputFile = "C:/temp/" & Split(WScript.ScriptName, ".")(0) & "-test.txt"
'Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE) For i=0 to oRawEDID.Count - 1 If oRawEDID(i)
"EDID Not Available" then
'*********************************************************************
'first get the model and serial numbers from the vesa descriptor
'blocks in the edid. the model number is required to be present
'according to the spec. (v1.2 and beyond)but serial number is not
'required. There are 4 descriptor blocks in edid at offset locations
'&H36 &H48 &H5a and &H6c each block is 18 bytes long
'********************************************************************* location(0)=mid(oRawEDID(i),&H36+1,18) location(1)=mid(oRawEDID(i),&H48+1,18) location(2)=mid(oRawEDID(i),&H5a+1,18) location(3)=mid(oRawEDID(i),&H6c+1,18)
' Test file
'objOutputFile.WriteLine("Location-0")
'objOutputFile.WriteLine(location(0))
'objOutputFile.WriteLine("Location-1")
'objOutputFile.WriteLine(location(1))
'objOutputFile.WriteLine("Location-2")
'objOutputFile.WriteLine(location(2))
'objOutputFile.WriteLine("Location-3")
'objOutputFile.WriteLine(location(3))
'you can tell If the location contains a serial number If it starts with &H00 00 00 ff strSerFind=Chr(&H00) & Chr(&H00) & Chr(&H00) & Chr(&Hff)
'or a model description If it starts with &H00 00 00 fc strMdlFind=Chr(&H00) & Chr(&H00) & Chr(&H00) & Chr(&Hfc) intSerFoundAt=-1 intMdlFoundAt=-1 For findit = 0 to 3 If instr(location(findit),strSerFind)>0 then intSerFoundAt=findit End If If instr(location(findit),strMdlFind)>0 then intMdlFoundAt=findit End If Next
'If a location containing a serial number block was found then store it If intSerFoundAt-1 then tmp=Right(location(intSerFoundAt),14) If instr(tmp,Chr(&H0a))>0 then tmpser=Trim(Left(tmp,instr(tmp,Chr(&H0a))-1)) Else tmpser=Trim(tmp) End If
'although it is not part of the edid spec it seems as though the
'serial number will frequently be preceeded by &H00, this
'compensates For that If Left(tmpser,1)=Chr(0) then tmpser=Right(tmpser,Len(tmpser)-1) Else tmpser=
"Serial Number Not Found in EDID data" End If
'If a location containing a model number block was found then store it If intMdlFoundAt-1 then tmp=Right(location(intMdlFoundAt),14) If instr(tmp,Chr(&H0a))>0 then tmpmdl=Trim(Left(tmp,instr(tmp,Chr(&H0a))-1)) Else tmpmdl=Trim(tmp) End If
'although it is not part of the edid spec it seems as though the
'serial number will frequently be preceeded by &H00, this
'compensates For that If Left(tmpmdl,1)=Chr(0) then tmpmdl=Right(tmpmdl,Len(tmpmdl)-1) Else tmpmdl=
"Model Descriptor Not Found in EDID data" End If
'**************************************************************
'Next get the mfg date
'**************************************************************
'the week of manufacture is stored at EDID offset &H10 tmpmfgweek=Asc(mid(oRawEDID(i),&H10+1,1))
'the year of manufacture is stored at EDID offset &H11
'and is the current year -1990 tmpmfgyear=(Asc(mid(oRawEDID(i),&H11+1,1)))+1990
'store it in month/year format tmpmdt=month(dateadd(
"ww",tmpmfgweek,DateValue(
"1/1/" & tmpmfgyear))) &
"/" & tmpmfgyear
'**************************************************************
'Next get the edid version
'**************************************************************
'the version is at EDID offset &H12 tmpEDIDMajorVer=Asc(mid(oRawEDID(i),&H12+1,1))
'the revision level is at EDID offset &H13 tmpEDIDRev=Asc(mid(oRawEDID(i),&H13+1,1))
'store it in month/year format If tmpEDIDMajorVer < 255-48 and tmpEDIDRev < 255-48 Then tmpver=Chr(48+tmpEDIDMajorVer) &
"." & Chr(48+tmpEDIDRev) Else tmpver=
"Not available" End If
'**************************************************************
'Next get the mfg id
'**************************************************************
'the mfg id is 2 bytes starting at EDID offset &H08
'the id is three characters long. using 5 bits to represent
'each character. the bits are used so that 1=A 2=B etc..
'
'get the data tmpEDIDMfg=mid(oRawEDID(i),&H08+1,2) Char1=0 : Char2=0 : Char3=0 Byte1=Asc(Left(tmpEDIDMfg,1))
'get the first half of the string Byte2=Asc(Right(tmpEDIDMfg,1))
'get the first half of the string
'now shift the bits
'shift the 64 bit to the 16 bit If (Byte1 and 64) > 0 then Char1=Char1+16
'shift the 32 bit to the 8 bit If (Byte1 and 32) > 0 then Char1=Char1+8
'etc.... If (Byte1 and 16) > 0 then Char1=Char1+4 If (Byte1 and 8) > 0 then Char1=Char1+2 If (Byte1 and 4) > 0 then Char1=Char1+1
'the 2nd character uses the 2 bit and the 1 bit of the 1st byte If (Byte1 and 2) > 0 then Char2=Char2+16 If (Byte1 and 1) > 0 then Char2=Char2+8
'and the 128,64 and 32 bits of the 2nd byte If (Byte2 and 128) > 0 then Char2=Char2+4 If (Byte2 and 64) > 0 then Char2=Char2+2 If (Byte2 and 32) > 0 then Char2=Char2+1
'the bits For the 3rd character don't need shifting
'we can use them as they are Char3=Char3+(Byte2 and 16) Char3=Char3+(Byte2 and 8) Char3=Char3+(Byte2 and 4) Char3=Char3+(Byte2 and 2) Char3=Char3+(Byte2 and 1) tmpmfg=Chr(Char1+64) & Chr(Char2+64) & Chr(Char3+64)
'**************************************************************
'Next get the device id
'**************************************************************
'the device id is 2bytes starting at EDID offset &H0a
'the bytes are in reverse order.
'this code is not text. it is just a 2 byte code assigned
'by the manufacturer. they should be unique to a model tmpEDIDDev1=hex(Asc(mid(oRawEDID(i),&H0a+1,1))) tmpEDIDDev2=hex(Asc(mid(oRawEDID(i),&H0b+1,1))) If Len(tmpEDIDDev1)=1 then tmpEDIDDev1=
"0" & tmpEDIDDev1 If Len(tmpEDIDDev2)=1 then tmpEDIDDev2=
"0" & tmpEDIDDev2 tmpdev=tmpEDIDDev2 & tmpEDIDDev1
'**************************************************************
'finally store all the values into the array
'************************************************************** arrMonitorInfo(i,0)=tmpmfg arrMonitorInfo(i,1)=tmpdev arrMonitorInfo(i,2)=tmpmdt arrMonitorInfo(i,3)=tmpser arrMonitorInfo(i,4)=tmpmdl arrMonitorInfo(i,5)=tmpver End If wscript.echo
"Monitor " & Chr(i+65) &
")" wscript.echo
".........." &
"VESA Manufacturer ID= " & arrMonitorInfo(i,0) wscript.echo
".........." &
"Device ID= " & arrMonitorInfo(i,1) wscript.echo
".........." &
"Manufacture Date= " & arrMonitorInfo(i,2) wscript.echo
".........." &
"Serial Number= " & arrMonitorInfo(i,3) wscript.echo
".........." &
"Model Name= " & arrMonitorInfo(i,4) wscript.echo
".........." &
"EDID Version= " & arrMonitorInfo(i,5) Next
' Test file
'objOutputFile.Close
'Set objFileSystem = NothingART Function ErrorCheck(strErrorNumber) Select Case strErrorNumber Case
"-2147024843" ErrorCheck = strError_ComputerNotFound Case
"-2147023518" ErrorCheck = strError_AlreadyAdmin Case
"-2147023509" ErrorCheck = strError_UserNotFound End Select End Function Function Pingable(strComputer) Dim objShell Dim strTemp Dim objFSO Dim iReturn Dim objTextFile Pingable = False Set objShell = CreateObject(
"WScript.Shell") strTemp = objShell.ExpandEnvironmentStrings(
"%temp%") & _
"/tempping.txt" iReturn = objShell.Run(
"%comspec% /C ping " & strComputer & _
" -n 1 > " & strTemp, 0, True) Set objFSO = CreateObject(
"Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile(strTemp, 1) While Not objTextFile.AtEndOfStream If InStr(objTextFile.ReadLine,
"Reply") Then Pingable = True Wend objTextFile.Close objFSO.DeleteFile (strTemp) End Function
the output is below…
C:\>cscript /nologo monitor_info.vbs Computer name not found, using local system. Serial Number: MXL9040HWP Maximum Capacity: 4194304 Maximum Capacity: 4096 Part Number: Serial Number: MXL9040HWP Asset Tag: MXL9040HWP Monitor A) ..........VESA Manufacturer ID= HWP ..........Device ID= 264B ..........Manufacture Date= 9/2006 ..........Serial Number= CNK6380R6C ..........Model Name= HP L1755 ..........EDID Version= 1.3 Monitor B) ..........VESA Manufacturer ID= HWP ..........Device ID= 264B ..........Manufacture Date= 9/2006 ..........Serial Number= CNK6380R6C ..........Model Name= HP L1755 ..........EDID Version= 1.3 Monitor C) ..........VESA Manufacturer ID= HWP ..........Device ID= 26FB ..........Manufacture Date= 4/2009 ..........Serial Number= CNK9170083 ..........Model Name= HP L2245w ..........EDID Version= 1.3 Monitor D) ..........VESA Manufacturer ID= HWP ..........Device ID= 26FB ..........Manufacture Date= 4/2009 ..........Serial Number= CNK9170083 ..........Model Name= HP L2245w ..........EDID Version= 1.3 Monitor E) ..........VESA Manufacturer ID= NEC ..........Device ID= 61BE ..........Manufacture Date= 7/2001 ..........Serial Number= Serial Number Not Found in EDID data ..........Model Name= Model Descriptor Not Found in EDID data ..........EDID Version= 1.3
MC