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 vote329 views1 answer
Excel vba urlmon
VBA
0 vote317 views1 answer
Vba compare strings
VBA
0 vote312 views1 answer
Do while not vb.net
VBA
2 votes319 views2 answers
Excel vba copy values range to another range
VBA
0 vote323 views1 answer
Build an index all files of a FTP site
VBA
31 votes449 views1 answer
Excel vba function to convert column number to letter
VBA
1 vote296 views1 answer
Excel vba get column name from number
VBA
0 vote299 views1 answer
Vba code to select image in sheet
VBA
0 vote310 views1 answer
.net dark title bar
VBA
0 vote324 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA