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 vote124 views1 answer
Excel vba protect worksheet without password
VBA
4 votes131 views1 answer
Excel vba how to get a range's full address including sheet name
VBA
1 vote127 views1 answer
Vb.net get name by Selection Changed
VBA
0 vote124 views1 answer
Move bindingnavigator vb
VBA
2 votes121 views2 answers
Excel vba copy values range to another range
VBA
1 vote119 views2 answers
Vba remove first 2 characters from string
VBA
0 vote130 views1 answer
Regex numeric digits
VBA
0 vote120 views1 answer
Vbnet dynamically change excel sheet name
VBA
0 vote124 views1 answer
Reset border color textbox vba
VBA
2 votes123 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA