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

3 votes198 views1 answer
Excel vba read registry key value
VBA
0 vote273 views1 answer
Application.ExecutablePath VB.NET
VBA
0 vote198 views1 answer
Excel vba select multiple shapes
VBA
1 vote202 views1 answer
How to put a gridpain in a vbox
VBA
0 vote206 views1 answer
Rotate image by any angle vb.net
VBA
0 vote224 views1 answer
Excel vba DisplayAlerts
VBA
5 votes207 views1 answer
Excel formula how to create strings containing double quotes
VBA
0 vote241 views1 answer
Vba change active sheet
VBA
4 votes221 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
0 vote246 views1 answer
Vba userform textbox wrap text
VBA