Vbs exec hidden

Set oShell = CreateObject("WScript.Shell")

' If running under wscript.exe, relaunch under cscript.exe in a hidden window
If InStr(1, WScript.FullName, "wscript.exe", vbTextCompare) > 0 Then
  cmd = "cscript.exe """ & WScript.ScriptFullName & """"
  oShell.Run cmd, 0, False
  WScript.Quit
End If

' We can now read the output from an Exec in the background
strOutput = CreateObject("WScript.Shell").Exec("tasklist.exe").StdOut.ReadAll()
MsgBox strOutput

Similar codes

1 vote125 views2 answers
Vba function return array
VBA
0 vote133 views1 answer
Vbnet check if number is even or odd
VBA
0 vote175 views1 answer
Vba ternary
VBA
3 votes146 views2 answers
Vba active workbook path
VBA
0 vote148 views1 answer
Vbscript check if string contains
VBA
0 vote128 views1 answer
Vba string
VBA
0 vote122 views2 answers
Excel vba prevent save
VBA
0 vote126 views1 answer
Vba collection key list
VBA
0 vote127 views1 answer
Handling a click event anywhere inside a panel vb
VBA
8 votes211 views1 answer
Excel vba determine number of elements in a 1D array
VBA