Vbscript 如何隐藏hta中弹出的命令提示符？

此hta程序列表显示wlan ssid的名称。我想隐藏使用objshell.Exec（）时弹出的命令提示符。如何在不创建临时文本文档的情况下执行此操作？有没有办法使用objshell.Run（）函数

     <script language="VBScript" type="text/vbscript">
     sub StartPrevious
     set objShell = CreateObject("WScript.Shell")
     cmdarg="%comspec% /c netsh wlan show hosted"
     iReturn=objShell.Run(cmdarg, 0, True)
     If iReturn = 0 Then
     set objExCmd=objShell.Exec ("netsh wlan show hosted")

     strContents =objExCmd.StdOut.ReadAll

     Set objRegEx = New RegExp
     objRegEx.IgnoreCase = True
     objRegEx.Global = True
     objRegEx.Multiline = True
     objRegEx.Pattern = """([^""]+)"""

     set colMatches = objRegEx.Execute(strContents)
     For each objMatch  in colMatches
       MsgBox "SSID name: " & objMatch.Value
     Next
     End If
     end sub
     </script>

前一次
设置objShell=CreateObject（“WScript.Shell”）
cmdarg=“%comspec%/c netsh wlan show hosted”
iReturn=objShell.Run（cmdarg，0，True）
如果iReturn=0，则
设置objExCmd=objShell.Exec（“netsh wlan show hosted”）
strContents=objExCmd.StdOut.ReadAll
Set objRegEx=New RegExp
objRegEx.IgnoreCase=True
objRegEx.Global=True
objRegEx.Multiline=True
objRegEx.Pattern=“”（[^”“]+）“”
set colMatches=objRegEx.Execute（strContents）
对于colMatches中的每个objMatch
MsgBox“SSID name:&objMatch.Value”
下一个
如果结束
端接头

请参阅的可能重复项。基本上，您可以对临时文件使用

Run

，并有一个隐藏窗口，或者

Exec

并有一个短暂弹出的窗口。