Hide command prompt window when using Exec

Hackoo Crackoo answered on November 15, 2022 Popularity 1/10 Helpfulness 8/10

answer Hide command prompt window when using Exec

Hide command prompt window when using Exec

Comment

Option Explicit

Dim strCmd, strRes, objWnd, objParent, strSignature

If WScript.Arguments.Named.Exists("signature") Then WshShellExecCmd
strCmd = "%comspec% /c tasklist"
RunCScriptHidden
WScript.Echo strRes

Sub RunCScriptHidden()
    strSignature = Left(CreateObject("Scriptlet.TypeLib").Guid, 38)
    GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}").putProperty strSignature, Me
    CreateObject("WScript.Shell").Run ("""" & Replace(LCase(WScript.FullName), "wscript", "cscript") & """ //nologo """ & WScript.ScriptFullName & """ ""/signature:" & strSignature & """"), 0, True
End Sub

Sub WshShellExecCmd()
    For Each objWnd In CreateObject("Shell.Application").Windows
        If IsObject(objWnd.getProperty(WScript.Arguments.Named("signature"))) Then Exit For
    Next
    Set objParent = objWnd.getProperty(WScript.Arguments.Named("signature"))
    objWnd.Quit
    objParent.strRes = CreateObject("WScript.Shell").Exec(objParent.strCmd).StdOut.ReadAll()
    WScript.Quit
End Sub

Popularity 1/10 Helpfulness 8/10 Language shell

Source: stackoverflow.com

Tags: command-prompt exec hide shell using when window

Link to this answer
Share Copy Link

Contributed on Nov 15 2022

Hackoo Crackoo

0 Answers Avg Quality 2/10

Hide command prompt window when using Exec

Contents

More Related Answers

Hide command prompt window when using Exec

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.