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 vote154 views1 answer
Close form vba
VBA
5 votes185 views1 answer
Excel vba how to unit test vba code
VBA
1 vote114 views1 answer
How to open cmd with vbd
VBA
0 vote169 views1 answer
Vba horizontalalignment
VBA
0 vote167 views1 answer
Excel delete ever other vba
VBA
0 vote161 views1 answer
Make your computer talk vbscript
VBA
0 vote160 views1 answer
Get current url vb.net
VBA
0 vote208 views2 answers
Excel vba store array and write to sheet
VBA
0 vote106 views1 answer
Vba select file in folder
VBA
0 vote176 views1 answer
Vba registry settings
VBA