none
Mapeamento de pastas RRS feed

  • Pergunta

  • Pessoal, bom dia.


    Preciso de criar um script para mapear alguns drivers. Preciso de chegar se já existem, caso sim não fazer nada, caso não executar o mapeamento.

    Abraços
    sexta-feira, 19 de fevereiro de 2010 12:07

Respostas

  • Prezado amigo,

    Utilizo o seguinte script para mapeamento de pastas

    dim UserObj
    dim objNetwork

    set objNetwork=CreateObject("WScript.Network")

    set UserObj = GetObject("WinNT://" & objNetwork.UserDomain & "/" & objNetwork.UserName)

    For Each Group In UserObj.groups

    'Baseado no nome do Grupo em que o usuário é membro, alguns drivers serão mapeados, inclusive impressoras

    'Comparei aqui Maiúsculas para não ter nenhuma confusão ou erro
    Select Case UCASE(Group.Name)

    Case "GG_VENDAS"
    objNetwork.MapNetworkDrive "G:", "\\SRV\Laboratorio"
    objNetwork.AddPrinterConnection "LPT1", file://servidordeimpressao/HPLaserjet1

    Case "GRP-TI"
    objNetwork.MapNetworkDrive "G:", "\\SRV\TI"
    objNetwork.AddPrinterConnection "LPT1", file://servidordeimpressao/LexmarkLaserjet2

    Case "GRP-DIRETORES"
    objNetwork.MapNetworkDrive "G:", "\\SRV\Diretoria"
    objNetwork.MapNetworkDrive "H:", "\\SRV\Contabilidade"
    objNetwork.MapNetworkDrive "I:", "\\SRV\Financeiro"
    objNetwork.AddPrinterConnection "LPT1", "\\SRV\HPLaserjet1"
    objNetwork.AddPrinterConnection "LPT2", "\\SRV\HPLaserjetColor"
    End Select
    Next

    'Mapeamente geral da empresa para todos os usuários
    objNetwork.MapNetworkDrive "P:", "\\ServidorDFS\Pulico"
    objNetwork.MapNetworkDrive "Z:", "\\ServidorDFS\AplicativosEmpresa"


    Vale lembrar que o script pode ser salvo em .vbs e deve ficar na pasta SYSVOL


    Espero ter ajudado.

    Um grande abraço.


    Alan Tadeo Camera Supervisor de TI Microsoft Certified Professional
    • Marcado como Resposta Richard Juhasz terça-feira, 10 de abril de 2012 17:37
    sexta-feira, 19 de fevereiro de 2010 12:22