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

0 vote364 views1 answer
Set datetimepicker value to null vb
VBA
0 vote339 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
0 vote333 views1 answer
Remove series name from legendvbnet
VBA
0 vote352 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
0 vote361 views1 answer
Excel vba urlmon
VBA
0 vote316 views1 answer
Returns an array from function vba
VBA
0 vote345 views1 answer
Excel vba protect content
VBA
1 vote361 views1 answer
Set font for ms chart vb.net
VBA
0 vote332 views1 answer
Vba len variant
VBA
0 vote332 views1 answer
Excel vba delete folder
VBA