none
VPN RRS feed

  • Pergunta

  • bom dia pessoal, pesquisei por aqui mas n encontrei uma resposta! estou precisando de um script q disque uma conexão (vpn) ja existente e apos conectado mapeie uma unidade d rede!
    terça-feira, 17 de março de 2009 12:36

Respostas

  • Olá,

    Utilize o comando: rasdial nome_da_conexao "usuario" "senha" 

    Para mapear unidade de rede utilize o script abaixo:



    Set wshNetwork = CreateObject("WScript.Network")
    Set oDrives = WshNetwork.EnumNetworkDrives

    'COLOCAR AS UNIDADES QUE DESEJA MAPEAR -> AQUI ELE SO DESCONECTA
    DriveMapper "G:"

    wshNetwork.MapNetworkDrive "G:", "\\server01\share"

    Sub DriveMapper(Drive)
    For i = 0 to oDrives.Count -1 Step 2
    if LCase(Drive) = LCase(oDrives.Item(i)) then
    WshNetwork.RemoveNetworkDrive Drive, true, true
    End if
    Next
    End sub



    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Halbe Bruno terça-feira, 17 de março de 2009 16:30
    terça-feira, 17 de março de 2009 14:08
  • Olá,

    Conforme abaixo:

    Dim WSHShell
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WSHShell.Run "rasdial conexão usuario senha", 1, true



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Halbe Bruno terça-feira, 17 de março de 2009 16:28
    terça-feira, 17 de março de 2009 14:25

Todas as Respostas

  • Olá,

    Utilize o comando: rasdial nome_da_conexao "usuario" "senha" 

    Para mapear unidade de rede utilize o script abaixo:



    Set wshNetwork = CreateObject("WScript.Network")
    Set oDrives = WshNetwork.EnumNetworkDrives

    'COLOCAR AS UNIDADES QUE DESEJA MAPEAR -> AQUI ELE SO DESCONECTA
    DriveMapper "G:"

    wshNetwork.MapNetworkDrive "G:", "\\server01\share"

    Sub DriveMapper(Drive)
    For i = 0 to oDrives.Count -1 Step 2
    if LCase(Drive) = LCase(oDrives.Item(i)) then
    WshNetwork.RemoveNetworkDrive Drive, true, true
    End if
    Next
    End sub



    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Halbe Bruno terça-feira, 17 de março de 2009 16:30
    terça-feira, 17 de março de 2009 14:08
  • mas como inserir o comando rasdial no script? quais parametros?
    grato!
    terça-feira, 17 de março de 2009 14:16
  • Olá,

    Conforme abaixo:

    Dim WSHShell
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WSHShell.Run "rasdial conexão usuario senha", 1, true



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Halbe Bruno terça-feira, 17 de março de 2009 16:28
    terça-feira, 17 de março de 2009 14:25
  • Baseado nas informações do colega Jesiel, eu desenvolvi o script abaixo e gostaria de compartilha pois pode ser útil para os menos experientes (assim como eu!).
    O Script  disca uma conexão VPN e em seguida mapeia um compartilhamento que se encontra no servidor

    'Script para conexao a VPN e mapeamento de unidade de rede 
    'Script desenvolvido por: Halbe Bruno de Araújo 
    'Baseado na ajuda do Jesiel S. Pereira - Forum TechNet 
     
    'Ocultando mensagens de erro 
    On Error Resume Next 
     
    'Definindo Variáveis 
    Dim WSHShell, Network 
     
    'Definindo obetos 
    Set WSHShell = WScript.CreateObject("WScript.Shell"
    Set Network = CreateObject("Wscript.network"
    Set FSODrive= CreateObject("Scripting.FileSystemObject"
    Set objShell = CreateObject("Shell.Application"
    Set Env = WSHShell.Environment("PROCESS"
     
    'Conectando-se a vpn 
    WSHShell.Run "rasdial nome_da_conexao_vpn usuario senha", 0, true 
     
    'Desconectando a unidade caso ela já exista 
    Network.RemoveNetworkDrive("Z:"
     
    'Mapeando a Rede 
    'Verifica se a unidade foi desconectada 
    If not FSODrive.DriveExists("Z:"Then 
     
    'Mapeando a unidade 
    Network.MapNetworkDrive "Z:""\\server\compartilhamento"False"usuário""senha" 
     
    'Remomeia a unidade mapeada 
    objShell.NameSpace("Z:").Self.Name = "nome_da_unidade_mapeada" 
     
    'Mensagem no final 
    MB_ICONINFORMATION = 64 
    POPUP_WAIT          = 15 
     
    strTitle = "Conectado à VPN" 
    strMsg = "Bem Vindo, " + chr(13) 
    strMsg = strMsg + "você está conectado ao nosso servidor atravez de uma " + chr(13) 
    strMsg = strMsg + "conexão VPN. " + chr(13) 
    strMsg = strMsg + "TODAS AS SUAS AÇÕES SERÃO AUDITADAS!" + chr(13) + chr(13) 
    strMsg = strMsg + " Obrigado!" + chr(13) 
     
    WSHShell.Popup strMsg, POPUP_WAIT, strTitle, MB_ICONINFORMATION 
     
    End If 
    wscript.quit 
    Code Snippet 


    Não sei se tem algum erro ou algo desnecessário, mas o script ta funcionando perfeitamente! espero que seja útil!
    terça-feira, 17 de março de 2009 16:10
  • Olá Halbe,

    Bacana que ajudou....

    Marque as respostas úteis para ajudar nas pesquisas.

    Até mais,

    Jesiel
    terça-feira, 17 de março de 2009 16:27
  • Onde coloco esse SCRIPT ?

    sábado, 6 de fevereiro de 2010 15:22
  • vai depender como vc queira usar o script amigo!
    sábado, 6 de fevereiro de 2010 18:53
  • Caso tenha que adicionar uma rota assim que logar na vpn ?
    Como ficaria o script ?
    Joseph Life Style
    quinta-feira, 11 de fevereiro de 2010 21:39
  • e como faço para conectar mais de uma unidade pois estou tentando e nada?
    quarta-feira, 12 de setembro de 2012 14:35