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 vote172 views1 answer
Code for reading letters only in vb 6
VBA
2 votes102 views1 answer
Excel vba pause
VBA
0 vote142 views1 answer
Excel vba select multiple shapes
VBA
0 vote150 views1 answer
Refer to resource using string variable vb.net
VBA
0 vote105 views10 answers
Vba excel create event log
VBA
0 vote141 views1 answer
Vba timestamp -- milliseconds
VBA
-1 vote173 views1 answer
How save excel through visual basic
VBA
0 vote137 views1 answer
Vba text to general
VBA
0 vote149 views1 answer
Vbscript remove spaces from string
VBA
0 vote146 views1 answer
VB Error Code BC30201
VBA