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 vote213 views1 answer
Vbnet hex to binary
VBA
1 vote231 views1 answer
Vba login website
VBA
0 vote210 views1 answer
Afficher un message d'erreur vba
VBA
1 vote214 views1 answer
Excel vba get column name from number
VBA
0 vote256 views1 answer
Vba cell all borders
VBA
0 vote163 views1 answer
Excel autofilter vba
VBA
8 votes497 views1 answer
Vba convert 2 bytes to an integer
VBA
1 vote219 views1 answer
Random number generator vb.net
VBA
0 vote249 views1 answer
Vba dictionary length
VBA
0 vote216 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA