Dim WSHShell
 Set WSHShell = _
    WScript.CreateObject("WScript.Shell")
 Dim MyShortcut, MyDesktop, DesktopPath
 ' Read desktop path using WshSpecialFolders object
 DesktopPath = "C:\Documents and Settings\All Users\Desktop"
 ' Create a shortcut object on the desktop
 Set MyShortcut = _
    WSHShell.CreateShortcut( _
    DesktopPath & "\AnyConnect Secure Mobility Client.lnk")
 ' Set shortcut object properties and save it
 MyShortcut.TargetPath = "C:\Program Files (x86)\Cisco\Cisco AnyConnect Secure Mobility Client\vpnui.exe"
 MyShortcut.WorkingDirectory = _
    WSHShell.ExpandEnvironmentStrings( _
    "%windir%")
 MyShortcut.WindowStyle = 4
 MyShortcut.IconLocation = _
    WSHShell.ExpandEnvironmentStrings( _
    "C:\Program Files (x86)\Cisco\Cisco AnyConnect Secure Mobility Client\res\neutral.ico, 0")
 MyShortcut.Save



strDsk = "C:\Documents and Settings\All Users\Start Menu\Programs\Cisco\Cisco AnyConnect Secure Mobility Client\Cisco AnyConnect Secure Mobility Client.lnk"

SET oUrlLink = WshShell.CreateShortcut(strDsk)
    oUrlLink.IconLocation = "C:\Program Files (x86)\Cisco\Cisco AnyConnect Secure Mobility Client\res\neutral.ico, 0"
    oUrlLink.Save