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
Vba first line of string
VBA
0 vote239 views1 answer
Excel vba protect shapes
VBA
0 vote211 views1 answer
Vba leading zeros in string
VBA
0 vote238 views1 answer
Filesystemobject vba reference
VBA
0 vote231 views1 answer
How to get value from clipboard in vbnet
VBA
1 vote214 views1 answer
How to do error handling in access vba
VBA
2 votes243 views1 answer
Excel vba check if key is in collection
VBA
0 vote237 views1 answer
Excel vba first working day month
VBA
0 vote238 views1 answer
Tester si une case est vide vba
VBA
0 vote232 views1 answer
Search combobox items vb.net
VBA