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

3 votes217 views1 answer
Vba continue for each loop
VBA
8 votes180 views1 answer
Excel vba make integer
VBA
5 votes164 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote171 views1 answer
Xlbycolumns is not declared
VBA
0 vote170 views1 answer
Vba like with wildcard
VBA
0 vote220 views1 answer
Excel vba delete columns in range
VBA
13 votes240 views2 answers
Vba write text file
VBA
8 votes219 views1 answer
Vba make a short integer from two bytes
VBA
0 vote175 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote174 views1 answer
Backspace key has stopped working visual studio
VBA