![]() 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 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.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |