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 vote192 views1 answer
Excel vba copy entire sheet paste values
VBA
0 vote184 views1 answer
Vba dropdown event
VBA
0 vote189 views1 answer
Refresh token em vb net
VBA
5 votes196 views1 answer
Excel vba low word from Long Integer
VBA
31 votes390 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
0 vote206 views1 answer
Excel vba DisplayAlerts
VBA
1 vote177 views2 answers
Vba string to date
VBA
11 votes403 views1 answer
Excel vba How to URL encode a string
VBA
0 vote186 views1 answer
Dynamic array vba
VBA
0 vote186 views1 answer
Make all controls in an area not visable vb
VBA