Cisco Anyconnect *** 上的 VB 脚本

Posted 2023-02-22

【中文标题】Cisco Anyconnect *** 上的 VB 脚本

【英文标题】：VB script on Cisco Anyconnect ***

【发布时间】：2013-08-16 22:59:12

【问题描述】：

我是使用 VB 脚本的新手。我正在使用以下代码连接我的 ***。但问题是在***客户端输入“选择”按钮后，第二页显示取决于网络速度。有时在 4 秒内加载，有时在 10 秒后加载。是否有任何代码可以让 *** 完全加载（例如 IE 的 BUSY 命令）。

    set WshShell=Wscript.CreateObject("Wscript.Shell")
    WshShell.Run("""C:\\Program Files\Cisco\Anyconnect\***ui.exe""")
    WScript.Sleep 500

    WshShell.SendKeys "ENTER"
    WScript.Sleep 500 
    WshShell.SendKeys "username"
    WshShell.SendKeys "rsa_no"
    WshShell.SendKeys "password"
    WScript.Sleep 500 
    WshShell.SendKeys "ENTER"

【参考方案1】：

在下面试试我的代码。请注意，您可能需要调整睡眠时间（以毫秒为单位）。要查看命令提示符中发生的情况，请将第 9 行中的 2 更改为 1。

Dim host, username, password, pathToClient
host = "yourHostURL"
username = "yourUsername"
password = "yourPassword"
pathToClient = "C:\Program Files (x86)\Cisco\Cisco AnyConnect Secure Mobility Client\***cli.exe"

Set ws = WScript.CreateObject("WScript.Shell")
ws.run("TASKKILL.exe /F /IM ***ui.exe"), 0, false
ws.run("cmd.exe"), 2, false
ws.AppActivate("Command Prompt")
WScript.Sleep 300
ws.SendKeys """" & pathToClient & """ connect " & host & "~"
WScript.Sleep 1000
ws.SendKeys(username & "~")
WScript.Sleep 50
ws.SendKeys(password & "~")
ws.run("TASKKILL.exe /F /IM cmd.exe"), 0, false