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 vote217 views1 answer
Vba get workbook name
VBA
5 votes220 views1 answer
Excel-vba get integer high byte
VBA
0 vote232 views1 answer
Vbnet convert charatcer to binary
VBA
3 votes220 views1 answer
Vba not equal
VBA
1 vote153 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote217 views2 answers
Vba remove line breaks
VBA
0 vote211 views1 answer
Vbnet check if string is only numbers
VBA
0 vote227 views1 answer
Vba parameter adodb null value
VBA
0 vote217 views1 answer
Vba find last column in a row with data
VBA
18 votes279 views2 answers
Vba make word from bytes
VBA