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

3 votes187 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote170 views1 answer
How to use VBA to add new record in MS Access?
VBA
1 vote202 views1 answer
Excel vba first row in range
VBA
0 vote187 views1 answer
Vba paste values
VBA
0 vote180 views1 answer
Vba declare 64-bit ptrsafe
VBA
8 votes371 views1 answer
Excel vba make word from bytes
VBA
0 vote179 views1 answer
Vbscript check if string is empty
VBA
1 vote183 views1 answer
Shortcut to apply a formula to an entire column in excel
VBA
0 vote177 views1 answer
Vba run command
VBA
0 vote179 views1 answer
Vb streamreader
VBA