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 vote302 views1 answer
Vba string
VBA
0 vote281 views1 answer
Vbnet line chart showing extra space
VBA
3 votes276 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote290 views1 answer
Weekday vba
VBA
0 vote282 views1 answer
Replace spaces with underscores vbnet
VBA
32 votes425 views2 answers
Excel vba column letter
VBA
1 vote294 views1 answer
Vb.net get name by Cell Click
VBA
0 vote309 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
1 vote316 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
1 vote275 views1 answer
If inputbox cancel vba
VBA