The techs need to download software updates from the vehicle manufacturer onto a flash drive, plug the flash drive into the vehic. The laptops the technicians use have BitLocker encrypted hard drives.
A user suddenly lost network access, even though Windows 10 says the machine is connected to the internet.
This is a strange one, and I'm not sure how to resolve it.
I believe this is because I updated the driver for my monitor instead of uninstalling it. The results for the monitor model and sn are the same, but the registry keys are slightly different. The reg entries are under HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\DISPLAY.įor instance, DumpEDID returns 2 results even though I have 1 monitor. These will read from the registry, which may not be entirely accurate. Some alternatives that may work are DumpEDID from or this script from. But it also costs $1 per user according to It reads the EDID directly from the monitor. Probably the best solution would be Monitor Asset Manager from EnTech Taiwan. & "Based on a script by Michael Baird (link no longer available)" _ & "Read and parse monitor EDID asset information from the registry" _ ' The following lines are disabled because they truncate model names at the first space StrTemp = strTemp & Chr( arrRawEDID( myIndex + idx ) ) If CInt( arrTestSerial( idx ) ) CInt( arrRawEDID( idx + myIndex ) ) Then blnSerial = False If CInt( arrTestModel( idx ) ) CInt( arrRawEDID( idx + myIndex ) ) Then blnModel = False Set objOutputFile = objFso.OpenTextFile(strOutputFile, ForWriting, True)ĭim idx, arrTemp, arrTestModel, arrTestSerial, blnModel, blnSerial, strTemp If objFso.FolderExists("C:\windows\temp") then StrOutputFile = "C:\Windows\Temp\KACE-Monitor-info.txt" Set objFso = WScript.CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") If ((StrMsg = vbNull) Or (StrMsg = "")) Then & "Serial# (EDID): " & strSerial & vbCrLf & "Description: " & strDeviceDesc & vbCrLf _ StrMsg = "Manufacturer: " & strMfg & vbCrLf _ If ((strSerial vbNull) And (strSerial "")) Then
ObjReg.GetBinaryValue HKEY_LOCAL_MACHINE, strSubSubKeyPath & "\Device Parameters", "EDID", arrRawEDID ObjReg.GetBinaryValue HKEY_LOCAL_MACHINE, strSubSubKeyPath & "\Device Parameters", "BAD_EDID", arrBadEDID If InStr( strDeviceDesc, " " ) Then strDeviceDesc = Mid( strDeviceDesc, InStr( strDeviceDesc, " " ) + 1 ) ObjReg.GetStringValue HKEY_LOCAL_MACHINE, strSubSubKeyPath, "DeviceDesc", strDeviceDesc If InStr( strMfg, " " ) Then strMfg = Mid( strMfg, InStr( strMfg, " " ) + 1 ) If IsNull( strMfg ) Then strMfg = "unknown" ObjReg.GetStringValue HKEY_LOCAL_MACHINE, strSubSubKeyPath, "Mfg", strMfg If arrSub2(k) = "Control" Then blnControl = True Learn how to use software or commands to find serial number or product information. ObjReg.EnumKey HKEY_LOCAL_MACHINE, strSubSubKeyPath, arrSub2 StrSubSubKeyPath = strSubKeyPath & "\" & arrSubKeys( j ) ObjReg.EnumKey HKEY_LOCAL_MACHINE, strSubKeyPath, arrSubKeys StrSubKeyPath = strKeyPath & "\" & arrKeys( i ) ObjReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrKeys StrKeyPath = "SYSTEM\CurrentControlSet\Enum\DISPLAY" Set objReg = GetObject( "winmgmts:!//" & strComputer & "/root/default:StdRegProv" ) ' Script modified fromĭim arrControl, arrKeys, arrRawEDID, arrSubKeysĭim strComputer, strDeviceDesc, strMfg, strModel, strMsg, strKeyPath, strSerial, strSubKeyPath, strSubSubKeyPath So the only improvements it could use would be to come up single spaced, and also for some reason on my home PC, it shows 2 monitors (with same SN). It shows up in the custom inventory, but double spaced. I also made a custom inventory rule to return the fileinfo of that file. I modified the script from I mentioned above to output a textfile to C:\Windows\Temp\KACE-Monitor-info.txt.