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 vote125 views1 answer
Excel vba delete folder
VBA
2 votes121 views1 answer
Excel vba check if string entirely numeric
VBA
0 vote124 views1 answer
Get month number from month name vbnet
VBA
8 votes201 views1 answer
Vba make integer
VBA
0 vote128 views1 answer
Vba remove the first character of string
VBA
0 vote113 views1 answer
Vba check 32 or 64 bit
VBA
-1 vote113 views1 answer
Vba sendkeys
VBA
0 vote117 views1 answer
Vba collection key list
VBA
0 vote128 views1 answer
Sort dictionary by key vba
VBA
5 votes138 views1 answer
Excel vba low word from Long Integer
VBA