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

2 votes219 views1 answer
Excel vba check if string entirely numeric
VBA
0 vote219 views1 answer
Convert unix to date vba
VBA
0 vote215 views1 answer
Vbscript check if string is empty
VBA
0 vote207 views1 answer
Add text to combobox drop down vb
VBA
0 vote203 views1 answer
Vbnet check if string is only symbols
VBA
0 vote217 views1 answer
Vba paste values
VBA
0 vote206 views1 answer
Excel vba range contains
VBA
3 votes221 views1 answer
Vba http request json
VBA
1 vote206 views1 answer
Excel vba get ordinal number from cardinal number
VBA
2 votes225 views1 answer
Vba file from path
VBA