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 vote162 views1 answer
Vbnet add axis labels to chart
VBA
5 votes137 views1 answer
Excel vba right word from Long Integer
VBA
0 vote133 views2 answers
Open url from vba
VBA
0 vote131 views1 answer
Create links in msgbox in vb
VBA
1 vote141 views1 answer
Vb.net get name by Selection Changed
VBA
1 vote120 views2 answers
Vba find last row in range for certain criteria
VBA
1 vote109 views2 answers
Vba remove first 2 characters from string
VBA
0 vote132 views1 answer
Vba clear collection
VBA
0 vote126 views1 answer
VB get external IP address
VBA
5 votes145 views2 answers
Excel vba write to the windows registry
VBA