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 vote241 views1 answer
Excel web scraping
VBA
0 vote223 views1 answer
Vba len variant
VBA
0 vote224 views1 answer
VBA is form loaded
VBA
0 vote246 views2 answers
VB
VBA
0 vote233 views1 answer
Excel vba calculate
VBA
0 vote222 views1 answer
Vbnet click on dgv cells
VBA
0 vote221 views1 answer
Visual stuiod not recognising desgined labels
VBA
0 vote212 views1 answer
Vba pass named range to function
VBA
0 vote211 views1 answer
Vb.net visible property dgv collumn not working
VBA
0 vote227 views1 answer
Write listbox to text file vb.net
VBA