Vpn Cisco

Hai un problema con Excel?

Nuova discussione

Vpn Cisco
di Gennaro (utente non iscritto) data: 22/08/2013 20:44:44
Buona sera a tutti.

Ho da porvi una domanda per cui sto perdendo sonno e fantasia ...

Lavoro in un'azienda dove per alcuni motivi ho bisogno di collegarmi in VPN su un altro server.

Per altri motivi, ho dovuto creare un Tool che automatizzasse questo accesso e fino a poco tempo fa tutto andava bene.
Il tool accedeva in automatico in VPN passando per il promt.

Il gestore del server però, per da un po di tempo a questa parte ha cambiato l' indirizzo ed ora quando lancio la macro prima di accedere mi esce una mascherina dove mi chiede di confermare il nome utente ( già presente nella maschera ), la password ( già presente nella maschera ) ed il campo dominio che è vuoto.

Solo cliccando su "OK" la macro va avanti.

Di seguito riporto quello che è il codice, prima funzionante.

Spero di essere stato abbastanza chiaro nell' esporre il mio problema e Vi ringrazio in anticipo per quelle che saranno le vostre considerazioni in merito.

Saluti Gennaro

Sub ciscoconnect()
    Dim sconnstring As String
    
    sconnstring = "c:program filescisco systemsvpn clientvpnclient.exe connect" & " profiles " & user & "USER" & _
    pwd & "PASSWORD"
    Shell sconnstring, vbNormalFocus
    Application.SendKeys ("OK")
    Application.Wait (Now + TimeValue("0:00:30"))
    SendKeys "y", True
End Sub

di Vecchio Frac data: 23/08/2013 09:17:50
C'è qualche errore nella costruzione di "sconnstring".
In finestra Immediata, se digito per prova
user = "pippo":pwd="pluto":? "c:program filescisco systemsvpn clientvpnclient.exe connect" & " profiles " & user & "USER" & pwd & "PASSWORD"
mi risulta questo:
c:program filescisco systemsvpn clientvpnclient.exe connect profiles pippoUSERplutoPASSWORD
e non mi sembra che sia un risultato corretto. Mancano spazi a dividere i parametri e le parole chiave.
E poi è perlomeno strano che le parole chiave USER e PASSWORD siano scritte dopo l'immissione del relativo parametro :)

Vpn Cisco
di Gennaro (utente non iscritto) data: 23/08/2013 13:05:43
Buongiorno Vecchio Franc, ne sono sicuro la sintassi è questa anzi, ti allego la sintassi originale.

Grazie per il tuo aiuto.

Saluti Gennaro

Sub ciscotest() 
    Call ciscoconnect("clienthealthsystemvpn", "cmharris", "xxxxxxx") 
    Call disconnect 
End Sub 
Sub ciscoconnect(sprofile As String, suser As String, spassword As String) 
    Dim sconnstring As String 
    sconnstring = "c:program filescisco systemsvpn clientvpnclient.exe connect " & _ 
    sprofile & " user " & suser & " pwd " & spassword 
    Shell sconnstring, vbNormalFocus 
    Application.Wait (Now + TimeValue("0:00:30")) 
    SendKeys "y", True 
     
End Sub

Vpn Cisco
di Gennaro (utente non iscritto) data: 23/08/2013 13:09:29
Vi inoltrato anche l' immagine della mascherina di cui Vi parlavo prima.

Saluti Gennaro
di Vecchio Frac data: 23/08/2013 14:23:26
Nella seconda versione del codice che hai postato, perlomeno, ci sono gli spazi a separare i dati concatenati :)
Invece di SendKeys "y", prova con il return:
SendKeys "~", true
di Gennaro (utente non iscritto) data: 23/08/2013 14:57:28
No, non va :(

vpn Cisco
di Gennaro (utente non iscritto) data: 05/09/2013 15:13:44
Risolto:

Basta richiamare la schermata in questa maniera:

Sub ciscoconnect(sprofile As String, suser As String, spassword As String)
    Dim sconnstring As String
    sconnstring = "c:program filescisco systemsvpn clientvpnclient.exe connect " & _
    sprofile & " user " & suser & " pwd " & spassword
    Shell sconnstring, vbNormalFocus
    
    Application.Wait (Now + TimeValue("0:00:05"))
    AppActivate " AppActivate "VPN Client  |  User Authentication for ""sprofile""
    SendKeys "{TAB}", True
    SendKeys "~", True
    
    
    Application.Wait (Now + TimeValue("0:00:30"))
    AppActivate "c:program filescisco systemsvpn clientvpnclient.exe"
    SendKeys "y", True

di Vecchio Frac data: 05/09/2013 20:32:08
Questa istruzione:
AppActivate " AppActivate "VPN Client | User Authentication for ""sprofile""
è un po' allucinante :)
Se ci sei riuscito da te, complimenti

Vuoi Approfondire?