none
Problema com Mapeamento de Unidades de Rede via VPN RRS feed

  • Pergunta

  • Prezados.

    Meu cenario e o seguinte, na empresa a onde eu trabalho, possui 5 unidades, 1 - matriz e 4 - filiais, cada unidade possui seu dominio (Ex: matriz.local, filial-1.local, filial-2.local, filial-3.local, filial-4.local), este dominios se integram através da VPN configurado como "Relação de confiança entre dominios" 

    Recentemente crie um script .vbs para mapeamento de unidade de rede cuja a função seja: no momento que usuario que esteja cadastrado no AD da unidade MATRIZ realizar o logon na estação que esteja presente umas das unidade "FILIAL" logando com dominio "MATRIZ\nomedousuario", o script e executado e o mapeamento das unidades "MATRIZ "e realizado.

    conforme o script abaixo:

    'Impedindo exibição de error para o usuário
    On error Resume Next
    Err.clear 0

    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objNetwork = CreateObject("Wscript.Network")
    Set objNetwork = CreateObject("Wscript.Network")
    Set objShell = CreateObject("Shell.Application")

    strUserPath = "LDAP://" & objSysInfo.UserName
    set objUser = GetObject(strUserPath)

    for Each strGroup in objUser.GetEx("memberOf")
    strGroupPath = "LDAP://" & strGroup
    set objGroup = GetObject(strGroupPath)
    strGroupName = objGroup.CN

    Select Case strGroupName
    Case "Informatica"
    objNetwork.MapNetworkDrive "P:","\\arqs-bh\Documentos$\Documentos\Informatica"
    objShell.NameSpace("P:").Self.Name = "MATRIZ - Informatica"
    objNetwork.MapNetworkDrive "Q:","\\arqs-bh\Documentos$\Documentos"
    objShell.NameSpace("Q:").Self.Name = "MATRIZ - Deptos"
    objNetwork.MapNetworkDrive "S:","\\img-bh\imagens$\Minhas-Imagens"
    objShell.NameSpace("S:").Self.Name = "MATRIZ - Minhas-Imagens"
    '====================================================================================
    Case "Almoxarifado"
    objNetwork.MapNetworkDrive "P:","\\arqs-bh\Documentos$\Documentos\Almoxarifado"
    objShell.NameSpace("P:").Self.Name = "MATRIZ - Almoxarifado"
    objNetwork.MapNetworkDrive "Q:","\\arqs-bh\Documentos$\Documentos"
    objShell.NameSpace("Q:").Self.Name = "MATRIZ - Deptos"
    objNetwork.MapNetworkDrive "S:","\\img-bh\imagens$\Minhas-Imagens"
    objShell.NameSpace("S:").Self.Name = "MATRIZ - Minhas-Imagens"
    '====================================================================================

    Este script funciona perfeitamente dentro da rede local, alem de outras politca aplicada no GPO do dominio "MATRIZ", porem não funciona com usuario logando em uma rede VPN e nenhuma politica feita no GPO.

    Fico grato pela ajuda.

     


    Clayton Agenil da Silva

    quinta-feira, 9 de fevereiro de 2017 12:15

Respostas

  • Olá,

    Para executar o script sem aviso de segurança pode criar um tarefa com o seguinte:

    set oShell= CreateObject("Wscript.Shell")
    set oEnv = oShell.Environment("PROCESS")
    oEnv("SEE_MASK_NOZONECHECKS") = 1
    oShell.Run "{caminho do script}   /norestart",0,True
    oEnv.Remove("SEE_MASK_NOZONECHECKS")

    Fonte: https://support.microsoft.com/pt-pt/help/889815/the-open-file---security-warning-dialog-box-is-displayed-when-you-try-to-silently-install-a-hotfix-or-an-update-by-using-a-visual-basic-script-in-windows-xp-service-pack-2

    If this answer help please mark it as a answer :) Thanks, Ricardo Cabral Se essa resposta ajuda por favor, marque-o como uma resposta :) Obrigado, Ricardo Cabral

    segunda-feira, 13 de fevereiro de 2017 11:42

Todas as Respostas

  • Olá,

    Em utilizadores ligados na rede VPN experimente utilizar o FQDN completo no script  (arqs-bh.XPTO.local) . 

    Os utilizadores ligados pela VPN alem de fazerem a resolução de nomes de DNS no ISP também tem de fazer no DNS interno devido ao FQDN.


    If this answer help please mark it as a answer :) Thanks, Ricardo Cabral Se essa resposta ajuda por favor, marque-o como uma resposta :) Obrigado, Ricardo Cabral

    quinta-feira, 9 de fevereiro de 2017 14:59
  • Olá Ricardo

    Fiz como indicado, mas não funcionou, quando eu executo script manualmente as unidades são mapeadas corretamente, mas de forma automática, criado uma politica no GPO não funciona.

    Mas tem um detalhe me chamado atenção, quando eu clico no script para executa-lo manualmente, aparece uma mensagem de Aviso de segurança do Windows, talvez seja por isso que script não seja executado de forma "automatica', por questão de segurança, Windows esta bloqueado o script.

    Conforme a imagem abaixo.

    Existe alguma forma de torna script "confiável" para que a mensagem de aviso de segurança não apareça?


    Clayton Agenil da Silva

    sexta-feira, 10 de fevereiro de 2017 16:44
  • Olá,

    Para executar o script sem aviso de segurança pode criar um tarefa com o seguinte:

    set oShell= CreateObject("Wscript.Shell")
    set oEnv = oShell.Environment("PROCESS")
    oEnv("SEE_MASK_NOZONECHECKS") = 1
    oShell.Run "{caminho do script}   /norestart",0,True
    oEnv.Remove("SEE_MASK_NOZONECHECKS")

    Fonte: https://support.microsoft.com/pt-pt/help/889815/the-open-file---security-warning-dialog-box-is-displayed-when-you-try-to-silently-install-a-hotfix-or-an-update-by-using-a-visual-basic-script-in-windows-xp-service-pack-2

    If this answer help please mark it as a answer :) Thanks, Ricardo Cabral Se essa resposta ajuda por favor, marque-o como uma resposta :) Obrigado, Ricardo Cabral

    segunda-feira, 13 de fevereiro de 2017 11:42
  • Bom dia,

    Por falta de retorno, esta thread será encerrada.

    Caso seja necessário, por gentileza, abra uma nova thread.

    Atenciosamente


    Guilherme Macedo S

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    TechNet Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quinta-feira, 16 de fevereiro de 2017 11:54