Concatenar Resultados de Query WMI
Publicado por Juan Francisco Olarte (1 intervención) el 08/02/2021 22:43:01
Estimados necesito de su ayuda:
Tengo un query en WMI que al ejecutarlo me esta arrojando el resultado deseado en 2 MSbox diferentes, este lo que hace es mostrar el numero de serie de los monitores conectados al PC en mi caso son 2 por tanto por cada monitor arroja un MSGBOX diferente, requiero que la informacion de los 2 o "N" monitores quede almacenada en una variable.
Este es el codigo
Tengo un query en WMI que al ejecutarlo me esta arrojando el resultado deseado en 2 MSbox diferentes, este lo que hace es mostrar el numero de serie de los monitores conectados al PC en mi caso son 2 por tanto por cada monitor arroja un MSGBOX diferente, requiero que la informacion de los 2 o "N" monitores quede almacenada en una variable.
Este es el codigo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
strComputer = "."
'Get monitors with WMISet objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\WMI")
Set colMonitors = objWMIService. _
ExecQuery("SELECT * FROM WmiMonitorID")
For Each objMonitor in colMonitors
'Convert serial number to ASCIISerialNo = ""
For I = 0 To Ubound(objMonitor.SerialNumberID)
SerialNo = SerialNo & Chr(objMonitor.SerialNumberID(I))
Next
'Convert model name to ASCIIProductId = ""
For I = 0 To Ubound(objMonitor.UserFriendlyName)
ProductId = ProductId & Chr(objMonitor.UserFriendlyName(I))
Next
SerialNo = SerialNo & SerialNo
msgbox SerialNo
Next
Valora esta pregunta
0