none
Resultado de um MsgBox em uma unica tela RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Bom dia galera.

    Ba alguem pode me ajudar, como eu faço para que este msgbox apresente o resultado em uma unica janela.

    strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
    ("Select * from Win32_Product")

For Each objSoftware in colSoftware
    msgbox "Name: " & objSoftware.Name & " - " & objSoftware.Version 
Next

    Valeu galera.

    segunda-feira, 30 de abril de 2012 13:22
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Marcelo

    vc pode tentar assim.

    For Each objSoftware in colSoftware
     strsoft = strsoft & objSoftware.Name & " - " & objSoftware.Version & vbCrLf
    Next

    msgbox "Softwares Instalados......: " & strsoft

    Creio que assim vc tera a informação mais dependendo da quantidade de softwares o msgbox não seria a melhor saida faça o teste desta forma e com WScript.Echo "Softwares Instalados......: " & strlevsoft, veja o que vc acha melhor.

    Your potential. Our passion - Microsoft

    segunda-feira, 30 de abril de 2012 14:53
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Marcelo

    vc pode tentar assim.

    For Each objSoftware in colSoftware
     strsoft = strsoft & objSoftware.Name & " - " & objSoftware.Version & vbCrLf
    Next

    msgbox "Softwares Instalados......: " & strsoft

    Creio que assim vc tera a informação mais dependendo da quantidade de softwares o msgbox não seria a melhor saida faça o teste desta forma e com WScript.Echo "Softwares Instalados......: " & strlevsoft, veja o que vc acha melhor.

    Your potential. Our passion - Microsoft

    segunda-feira, 30 de abril de 2012 14:53
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Leandro

    Bom dia tche.

    Funcionou, obrigado.

    segunda-feira, 7 de maio de 2012 10:29
    |