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 votes247 views1 answer
Excel insert blank row for value change in column
VBA
0 vote255 views1 answer
Excel R1C1 mode
VBA
0 vote228 views1 answer
Loop through each cell in dgv vbnet
VBA
3 votes241 views1 answer
Vba http request json
VBA
0 vote235 views1 answer
Vb.net visible property dgv collumn not working
VBA
0 vote228 views1 answer
Vbnet check if number is even or odd
VBA
4 votes240 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
3 votes224 views1 answer
Vba make long from two shorts
VBA
2 votes235 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
0 vote231 views1 answer
Refresh token em vb net
VBA