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 vote256 views1 answer
Windows Forms dark title bar
VBA
0 vote240 views1 answer
Vba string start with
VBA
0 vote234 views1 answer
VB get external IP address
VBA
0 vote236 views1 answer
Refresh token em vb net
VBA
1 vote225 views2 answers
Vba remove first 2 characters from string
VBA
22 votes557 views1 answer
Xl vba check for folder
VBA
15 votes475 views1 answer
Excel vba wait
VBA
3 votes238 views1 answer
Excel vba change format of cell
VBA
0 vote272 views2 answers
Delete all controls from list of control vb.net
VBA
0 vote249 views1 answer
Excel vba convert cells address
VBA