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

3 votes204 views1 answer
Vba double quote
VBA
0 vote204 views1 answer
Vba add shape oval
VBA
0 vote199 views1 answer
Vba check 32 or 64 bit
VBA
3 votes202 views1 answer
Excel insert blank row for value change in column
VBA
0 vote209 views1 answer
Vba static variable
VBA
0 vote188 views1 answer
Remove frist letter from string vbnet
VBA
-1 vote201 views2 answers
Excel vba delete empty rows
VBA
5 votes214 views2 answers
Excel vba write to the windows registry
VBA
1 vote221 views1 answer
Vba format string as cash
VBA
0 vote207 views1 answer
Vba file chooser
VBA