none
Criar mapeamento e atalho de pastas do mapeamento RRS feed

  • Pergunta

  •  

    Olá! Boa Noite.

    Preciso de um script que crie um mapeamento. Nessa pasta possuo cinco subpastas.

    Preciso que nesse script ele também criei na área de trabalho um atalho para quatro pastas que esteja dento do mapeamento.

    Até mais.
    quinta-feira, 6 de março de 2008 22:30

Respostas

  •  

    Prezado Felipe Vieira,

     

    Para mapear suas Unidade utlize o scrip abaixo:

     

    Option Explicit
    Dim objNetwork, strDrive, objShell, objUNC, WSHSHELL
    Dim CAMINHO, UNIDADE, NOME
    '*****************************************************************************************************************************

    'INICIALIZANDO DAS VARIÁVEIS

    UNIDADE = "G:"
    CAMINHO = "\\SERVIDOR\COMPARTILHAMENTO"
    NOME = "NOME AMIGAVEL"

    '*****************************************************************************************************************************

    ' MAPEAMEANDO OS DRIVES

    Set objNetwork = CreateObject("WScript.Network")
    ON ERROR RESUME NEXT
    objNetwork.RemoveNetworkDRIVE UNIDADE
    objNetwork.MapNetworkDrive UNIDADE, CAMINHO

    '*****************************************************************************************************************************

    ' RENOMEANDO OS DRIVES
    Set objShell = CreateObject("Shell.Application")
    objShell.NameSpace(UNIDADE).Self.Name = NOME

    '*****************************************************************************************************************************

    WScript.Quit

     

    Para criação dos atalho no desktop utilize o topico abaixo:

     

    http://forums.microsoft.com/technet-br/ShowPost.aspx?PostID=1187574&SiteID=29

     

    Espero ter ajudado,

     

    Atenciosamente,

     

    Heber Lopes

    São José dos Campos

    msn: heber.lopes@gmail.com

     

    Caso este post tenha respondido sua pergunta marque como resposta para auxiliar em futuras pesquisas.

    sexta-feira, 14 de março de 2008 18:10