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 vote301 views1 answer
Visual basic run command
VBA
0 vote293 views1 answer
How to enter Vbox manage commands
VBA
4 votes249 views1 answer
Excel formula for last non-empty cell in a column
VBA
0 vote281 views1 answer
Excel vba disable screen update
VBA
0 vote261 views1 answer
Vb streamreader
VBA
0 vote287 views2 answers
Get unique random number in vb.net
VBA
0 vote278 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
0 vote294 views2 answers
VB
VBA
0 vote290 views1 answer
Vba random number
VBA
1 vote292 views1 answer
How to put a gridpain in a vbox
VBA