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 vote213 views1 answer
Vba excel do not recalculate before save
VBA
0 vote168 views1 answer
Returns an array from function vba
VBA
0 vote172 views1 answer
Weekday vba
VBA
0 vote191 views1 answer
Create new worksheet excel visual basic
VBA
0 vote197 views1 answer
Wpf dark title bar
VBA
0 vote159 views1 answer
Vb window.minimize
VBA
4 votes174 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
0 vote166 views1 answer
Vba apostrophe chr
VBA
0 vote120 views1 answer
Excel vba arrondir
VBA
1 vote173 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA