Improved script without sleep timeouts

[arnileibovits]

Here is an improved version that doesn't wait for sleep timeouts, i.e. connects as soon as the window becomes visible.

' Script to automatically connect to Cisco AnyConnect.
' This script assumes that you have already set up your connection.

Const Password = "[YOUR PASSWORD]" ' Enter your password here
Const ConnectionUrl = "[YOUR CONNECTION URL]" ' Enter the URL of your endpoint (without HTTP prefix)

' Copy password to clipboard in case something goes wrong (to connect manually)
CopyToClipboard(Password)

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run """%PROGRAMFILES(x86)%\Cisco\Cisco AnyConnect Secure Mobility Client\vpnui.exe"""

ActivateWindow("Cisco AnyConnect Secure Mobility Client")
WshShell.SendKeys "{ENTER}"

ActivateWindow("Cisco AnyConnect | " + ConnectionUrl)
WshShell.SendKeys "{TAB}"
WshShell.SendKeys Password
WshShell.SendKeys "{ENTER}"


Function ActivateWindow(title)
  Const Step = 100
  Const Timeout = 10000
  Dim Result
  Dim Counter

  For Counter = 0 To Timeout Step Step
    Result = WshShell.AppActivate(title)
    If Result Then Exit For

    WScript.Sleep Step
  Next

  If Result = False Then
    MsgBox("Window '" + title + "' not found.")
    WScript.Quit
  End If
End Function


Function CopyToClipboard(Input)
  If IsNull(Input) Then
    Set ClipBoard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("Text")
    If IsNull(ClipBoard) Then ClipBoard = ""
  Else
    CreateObject("WScript.Shell").Run _
      "mshta.exe javascript:eval(""document.parentWindow.clipboardData.setData('text','" _
      & Replace(Replace(Replace(Input, "'", "\\u0027"), """","\\u0022"),Chr(13),"\\r\\n") & "');window.close()"")", _
      0,True
  End If
End Function