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 vote232 views1 answer
Change form background image vb
VBA
0 vote282 views1 answer
Visual basic cmd
VBA
0 vote224 views1 answer
Vba static variable
VBA
0 vote235 views1 answer
Pivot data source not accepting table named range vba
VBA
0 vote233 views1 answer
Vba compare strings
VBA
1 vote228 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote252 views1 answer
Vba code to select image in sheet
VBA
0 vote248 views1 answer
How to make a a msgbpx in vbs
VBA
-1 vote256 views1 answer
Vba sendkeys
VBA
5 votes259 views1 answer
Vba low word from Long Integer
VBA