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 vote177 views1 answer
Excel vba protect shapes
VBA
4 votes158 views2 answers
Vba create folder if not exist
VBA
0 vote167 views1 answer
Vb run command
VBA
0 vote168 views1 answer
Thread sleep vb
VBA
1 vote152 views1 answer
VBA Loop through recordset
VBA
5 votes135 views1 answer
Vba array worksheet.index
VBA
0 vote143 views1 answer
Excel protect cells with formulas
VBA
1 vote151 views2 answers
Get all column names from excel vba
VBA
0 vote158 views1 answer
Excel R1C1 mode
VBA
0 vote147 views1 answer
Excel vba center userform
VBA