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 vote287 views1 answer
Vba remove numbers from string
VBA
0 vote272 views2 answers
Excel vba close without saving
VBA
20 votes403 views1 answer
Excel vba factorial
VBA
0 vote291 views1 answer
Excel text to columns line break
VBA
0 vote305 views1 answer
How to mount floppy disks in vb.net
VBA
0 vote301 views4 answers
How to continue formula in below line in vba code
VBA
1 vote298 views1 answer
Excel vba saveas force overwrite
VBA
0 vote422 views1 answer
Amd64 vs arm64 linux
VBA
9 votes398 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
0 vote292 views1 answer
How to get value from clipboard in vbnet
VBA