Cisco Anyconnect VPN 上的 VB 脚本

【问题标题】：VB script on Cisco Anyconnect VPNCisco Anyconnect VPN 上的 VB 脚本
【发布时间】：2013-08-16 22:59:12
【问题描述】：

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

    set WshShell=Wscript.CreateObject("Wscript.Shell")
    WshShell.Run("""C:\\Program Files\Cisco\Anyconnect\vpnui.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}"

【问题讨论】：

标签： vbscript vpn cisco

【解决方案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\vpncli.exe"

Set ws = WScript.CreateObject("WScript.Shell")
ws.run("TASKKILL.exe /F /IM vpnui.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

【讨论】：