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 vote189 views1 answer
Sendkeys vba selenium
VBA
-1 vote206 views1 answer
How save excel through visual basic
VBA
0 vote177 views1 answer
Excel vba linter
VBA
0 vote181 views1 answer
Excel R1C1 mode
VBA
0 vote179 views1 answer
Excel vba automatic calculation
VBA
0 vote225 views1 answer
Visual basic cmd
VBA
0 vote169 views2 answers
Get excel file from email attachment in vba
VBA
1 vote175 views1 answer
Excel vba get column name from number
VBA
0 vote174 views1 answer
Menus act like radio buttons vb.net
VBA
0 vote175 views1 answer
Vba get application version
VBA