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 vote345 views1 answer
Excel vba clear filter
VBA
0 vote349 views1 answer
Find if year is leap year vb
VBA
0 vote334 views1 answer
Vba shape transparent
VBA
0 vote331 views1 answer
Excel vba move down to next visible cell
VBA
0 vote324 views1 answer
Change whcih control a user has selected vb
VBA
0 vote360 views1 answer
Open file dialog in vb.net
VBA
0 vote330 views1 answer
Select case vba
VBA
11 votes474 views1 answer
Excel vba How to URL encode a string
VBA
4 votes337 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
0 vote319 views1 answer
Visual stuiod not recognising desgined labels
VBA