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 vote247 views1 answer
Vba range clear formatting
VBA
0 vote187 views1 answer
How to self delete a vbscript file
VBA
1 vote231 views1 answer
Sort using vba
VBA
0 vote240 views1 answer
Get current year vb
VBA
3 votes244 views1 answer
Vba not equal
VBA
0 vote215 views1 answer
Find the name of the last excel sheet vb
VBA
22 votes303 views1 answer
Excel vba check if directory exists
VBA
0 vote243 views1 answer
Excel vba combine ranges
VBA
0 vote240 views1 answer
Excel vba StartUpPosition
VBA
0 vote178 views1 answer
How to make a if statement with vbs
VBA