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 vote358 views1 answer
Vb.net get name by Selection Changed
VBA
0 vote338 views1 answer
Vb window.minimize
VBA
0 vote359 views4 answers
How to continue formula in below line in vba code
VBA
1 vote379 views2 answers
Vba string length
VBA
0 vote338 views1 answer
Excel R1C1 mode
VBA
0 vote354 views1 answer
Vbnet add axis labels to chart
VBA
0 vote332 views1 answer
Vbide vbproject reference
VBA
15 votes482 views2 answers
Xl vba dynamic string array
VBA
1 vote354 views1 answer
VBA Loop through recordset
VBA
0 vote367 views1 answer
Vba table header name
VBA