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 vote185 views1 answer
Vbnet click on dgv cells
VBA
0 vote189 views1 answer
Vba get workbook name
VBA
0 vote195 views1 answer
Vba remove last vbcrlf
VBA
0 vote204 views1 answer
Programmatically copy data from one workshet to another excel
VBA
0 vote182 views1 answer
Sendkeys vba selenium
VBA
0 vote174 views1 answer
Vba option button selected
VBA
0 vote184 views1 answer
Vba full date format
VBA
0 vote194 views1 answer
Excel vba urlmon
VBA
0 vote178 views1 answer
Vba first line of string
VBA
0 vote176 views1 answer
Vb net show lines for all axis labels in chart
VBA