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

8 votes160 views1 answer
Run command pormpt in background windows
VBA
0 vote146 views1 answer
Reset border color textbox vba
VBA
5 votes156 views1 answer
Excel vba second byte from INTEGER
VBA
0 vote145 views1 answer
Prive sub enter clicked vb
VBA
0 vote129 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
3 votes139 views1 answer
Excel vba last row in range
VBA
0 vote144 views1 answer
String contins in vba
VBA
0 vote183 views1 answer
Vba ternary
VBA
7 votes159 views1 answer
Excerl vba array to range
VBA
1 vote135 views1 answer
Vba delete array element
VBA