none
Resultado de um MsgBox em uma unica tela RRS feed

  • Pergunta

  • 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

  • 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

  • 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
  • Leandro

    Bom dia tche.

    Funcionou, obrigado.

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