Ayuda con funcion

[techcol]

Amigos buenos dias:

Necesito ejecutar el siguiente comando desde excel vba y que el resultado de ejecutar este comando en CMD "oculto" lo guarde en una variable en VBA, tener en cuenta que el resultado se puede componenr de dos lineas o mas dependiendo del numero de monitores que tenga conectados el PC 

 

powershell -command ""get-wmiobject wmimonitorid -namespace root\wmi|foreach-object{($_.SerialnumberID|foreach-object{[char]$_}) -join ''}""

 

[Héctor Miguel]

no tengo manera de probar con mas de un monitor
en todo caso, sin pasar por PS, prueba algo +/- como lo siguiente y comentas ?

Sub getMonitorID()
  Dim elemCol, elem, serMon, serialNum
  Set elemCol = GetObject("winmgmts:{impersonationlevel=impersonate}!\\" & _
    Environ("computername") & "\root\wmi").ExecQuery("select * from wmimonitorid")
  For Each elem In elemCol
    For Each serMon In elem.SerialNumberID
      serialNum = serialNum & Chr(serMon)
    Next
    MsgBox serialNum
  Next
End Sub