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 vote231 views1 answer
Excel vba current folder
VBA
2 votes260 views1 answer
Excel vba check if key is in collection
VBA
0 vote285 views1 answer
Vba excel parser xml
VBA
0 vote249 views1 answer
Excel vba open browser
VBA
5 votes254 views1 answer
Excel vba low word from Long Integer
VBA
0 vote261 views1 answer
Iterate all file in a folder vba
VBA
0 vote260 views1 answer
Vbscript check if string contains
VBA
0 vote250 views4 answers
Vgrive,deb
VBA
0 vote238 views2 answers
How to update date and time automatically once id is entered in excel vba
VBA
-1 vote236 views2 answers
How close excel through visual basic
VBA