how to add a message box that can grab the powershell result and prompt it in excel

Hello

I am using a vba code to run a command from excel to Powershell but i need to have a message box with the result of the powershell command.  
Below you can find the script that I am using.

Can you please help me ?


  file = "c:\users\User\desktop\SetMSXUser.ps1"
 Set cell = ActiveSheet.Range("Y12")


  Set ofile = CreateObject("Scripting.FileSystemObject").CreateTextFile(file)
  While cell.Value <> ""
    ofile.WriteLine cell.Value
    Set cell = cell.Offset(1)
  Wend
  ofile.Close
  Shell "powershell.exe  -file " & file
 

End Sub


Regards
Razvan MelinteService Desk level 2 support analystAsked:
Who is Participating?
 
Bill PrewConnect With a Mentor Commented:
If you want to see a working example, take a look at this earlier question.



»bp
0
 
Neil FlemingIndependent consultantCommented:
what do you want the messagebox to say?
0
 
Razvan MelinteService Desk level 2 support analystAuthor Commented:
the information provided by powershell.

if there is any error message, to provide the error message for example.
0
 
QlemoConnect With a Mentor Batchelor, Developer and EE Topic AdvisorCommented:
The Shell command is not able to provide output results. It runs commands asynchronously, not waiting for termination.
https://stackoverflow.com/questions/2784367/capture-output-value-from-a-shell-command-in-vba shows a function and example to do exactly what you want to do - collect output and display as message box. The basic idea is to use WScript.Shell.Exec and its output property StdOut (a stream).
1
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.