Exit Cmd window after execution of script in VBA

Question

I would like to Exit the CMD window after execution of script (currently I am exiting CMD manually by writing exit in the CMD window, after which VBA continues running)

Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
Dim errorCode As Long
errorCode = wsh.Run(sCmdline, windowStyle, waitOnReturn)

'-- Finally Run function Arguments ----- 
 errorCode = wsh.Run("cmd /k systeminfo >D:\Tools\MyScript\SystemInfo.txt", windowStyle, waitOnReturn)

If errorCode = 0 Then
    MsgBox "Done! No error to report."
    Set wsh = Nothing
Else
    MsgBox "Program exited with error code " & errorCode & "."
    Set wsh = Nothing
End If

Once again: please include this in your question by clicking the edit button! Anyway, try replacing cmd /k by cmd /c... — aschipfl
– aschipfl, Commented Feb 7, 2019 at 9:36

double-beep · Accepted Answer · 2019-02-07 19:22:01Z

1

You seem to want to close the cmd after you open it. /C flag is the best here, because it carries out the command specified by string and then terminates.

So, you should write:

errorCode = wsh.Run("cmd /c systeminfo >D:\Tools\MyScript\SystemInfo.txt", windowStyle, waitOnReturn)

which will work.

answered Feb 7, 2019 at 19:22

double-beep

5,67019 gold badges43 silver badges50 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Matteo NNZ · Accepted Answer · 2019-02-07 07:43:33Z

1

In your sCmdLine (which is not defined in your question), just add && exit at the end to execute the commands one after the other in a single line.

If your original command was sCmdLine = "cmd.exe /S /K ping www.google.com", then it would become sCmdLine = "cmd.exe /S /K ping www.google.com && exit".

answered Feb 7, 2019 at 7:43

Matteo NNZ

12.8k13 gold badges62 silver badges104 bronze badges

Collectives™ on Stack Overflow

Exit Cmd window after execution of script in VBA

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related