Vbscript 显示从VBS字符串中排序的内容_Vbscript_Hta

Vbscript 显示从VBS字符串中排序的内容

vbscript

Vbscript 显示从VBS字符串中排序的内容,vbscript,hta,Vbscript,Hta,我需要一个命令来显示在vbs中执行cmd参数的结果。我的代码是 <script language="VBScript" type="text/vbscript"> set objShell = CreateObject("WScript.Shell") strOut="" sub start cmdarg="%comspec% /c netsh wlan show hosted " set objExCmd = objShell.Ex

我需要一个命令来显示在vbs中执行cmd参数的结果。我的代码是

    <script language="VBScript" type="text/vbscript">
    set objShell = CreateObject("WScript.Shell")
    strOut=""
    sub start
    cmdarg="%comspec% /c netsh wlan show hosted " 
    set objExCmd = objShell.Exec(cmdarg)
    strOut=objExCmd.StdOut.ReadAll
    Set regEx = New RegExp
    regEx.Pattern = "[\f\n\r\v]+"
    regEx.Global = True
    regEx.Multiline = True
    strOut = regEx.Replace(strOut, "<br>")
    TraceOut.innerHTML= strOut
    end sub
    </script>

托管网络状态我只需要显示SSID名称。例如，“MyWiFi” 每当我更改ssid名称时，它都会更改。所以它并不总是“MyWiFi”

这是完整的HTA程序

    <head><title>Hosted Network</title>
    <HTA:APPLICATION ID="oHTA";
      APPLICATIONNAME="Hosted Network";
      BORDER="thin";
      BORDERSTYLE="normal";
      SINGLEINSTANCE="no";
    >
    </head><body bgcolor="#E8E8E8" >
    <script language="VBScript" type="text/vbscript">
    sub subfn
    set objShell = CreateObject("WScript.Shell")
    cmdarg="%comspec% /c netsh wlan show hosted"
    set strOut = objShell.Exec(cmdarg)
    Dim re : Set re = New RegExp
    re.Multiline = True
    re.Pattern   = "^SSID\s+name\s+:\s+""([^""]+)"""
    strOut = "SSID: >" & re.Execute(strOut)(0).Submatches(0) & "<"
    TraceOut.innerHTML= strOut
    end sub
    </script>
    <input type="Button" name="B1" value="Find"  onclick="subfn">
    <div id=TraceOut></div></body> 
    </html>

托管网络
亚亚基
设置objShell=CreateObject（“WScript.Shell”）
cmdarg=“%comspec%/c netsh wlan show hosted”
set strOut=objShell.Exec（cmdarg）
Dim re:Set re=New RegExp
re.Multiline=True
re.Pattern=“^SSID\s+name\s+：\s+”（[^“]+）”
strOut=“SSID:>”&re.Execute（strOut）（0）。子匹配（0）和“使用带有捕获/组/子匹配的RegExp从netsh输出中剪切所需的信息：
  Dim strOut : strOut = Join(Array( _
      "Mode                   : Allowed" _
    , "SSID name              : ""MyWiFi""" _
    , "Max number of clients  : 10" _
  ), vbCrLf)
  WScript.Echo strOut
  Dim re : Set re = New RegExp
  re.Multiline = True
  re.Pattern   = "^SSID\s+name\s+:\s+""([^""]+)"""
  WScript.Echo "SSID: >" & re.Execute(strOut)(0).Submatches(0) & "<"

Dim strOut:strOut=Join（数组（_
“模式：允许”_
，SSID名称：“MyWiFi”_
，“最大客户端数：10”_
)，vbCrLf）
回音strOut
Dim re:Set re=New RegExp
re.Multiline=True
re.Pattern=“^SSID\s+name\s+：\s+”（[^“]+）”
WScript.Echo“SSID:>”和re.Execute（strOut）（0）。子匹配（0）和“使用带有捕获/组/子匹配的RegExp从netsh输出中剪切所需的信息：
  Dim strOut : strOut = Join(Array( _
      "Mode                   : Allowed" _
    , "SSID name              : ""MyWiFi""" _
    , "Max number of clients  : 10" _
  ), vbCrLf)
  WScript.Echo strOut
  Dim re : Set re = New RegExp
  re.Multiline = True
  re.Pattern   = "^SSID\s+name\s+:\s+""([^""]+)"""
  WScript.Echo "SSID: >" & re.Execute(strOut)(0).Submatches(0) & "<"

Dim strOut:strOut=Join（数组（_
“模式：允许”_
，SSID名称：“MyWiFi”_
，“最大客户端数：10”_
)，vbCrLf）
回音strOut
Dim re:Set re=New RegExp
re.Multiline=True
re.Pattern=“^SSID\s+name\s+：\s+”（[^“]+）”
WScript.Echo“SSID:>”&re.Execute（strOut）（0）。Submatches（0）和“谢谢Ekkehard。我根据您的建议进行了更改，完整的代码在上面的问题中进行了更新。我是这方面的初学者。我的程序给了我错误“Type mismatch re.Execute”“如何解决这个问题？我想使用此应用程序获取SSID。另外，WScript.Echo不工作。谢谢您。我根据您的建议进行了更改，并且在上面的问题中更新了完整的代码。我只是这方面的初学者。我的程序给我的错误“类型不匹配重新执行”如何解决这个问题？我想使用此应用程序获取SSID。另外，WScript.Echo不工作。
  Dim strOut : strOut = Join(Array( _
      "Mode                   : Allowed" _
    , "SSID name              : ""MyWiFi""" _
    , "Max number of clients  : 10" _
  ), vbCrLf)
  WScript.Echo strOut
  Dim re : Set re = New RegExp
  re.Multiline = True
  re.Pattern   = "^SSID\s+name\s+:\s+""([^""]+)"""
  WScript.Echo "SSID: >" & re.Execute(strOut)(0).Submatches(0) & "<"

Mode                   : Allowed
SSID name              : "MyWiFi"
Max number of clients  : 10
SSID: >MyWiFi<