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 vote147 views1 answer
Excel vba join variant array
VBA
32 votes289 views2 answers
Excel vba column letter
VBA
0 vote150 views2 answers
How to concatenate more than 40 lines in vba
VBA
2 votes147 views1 answer
Vba split string
VBA
0 vote154 views1 answer
Vbs send keys
VBA
0 vote132 views1 answer
Vbnet make a string to unicode converter
VBA
8 votes152 views1 answer
Excel vba make a short integer from two bytes
VBA
1 vote147 views1 answer
Excel vba hide zero values
VBA
0 vote159 views1 answer
Move bindingnavigator vb
VBA
0 vote158 views1 answer
Excel vba copy entire sheet paste values
VBA