none
Mapeando varias unidades com um script RRS feed

  • Pergunta

  • Ola.

    Gostaria de poder mapear varios compartilhamentos em um  mesmo script.

    Segue abaixo meu script que por sua vez nao mapeia mais que uma unidade.

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


    'INICIALIZANDO DAS VARIÁVEIS

    UNIDADE = "Z:"
    CAMINHO = \\server\arquivos
    NOME = "pasta"





    ' 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

    Qualquer ajuda eee bem vinda.

    quinta-feira, 25 de outubro de 2012 12:45

Respostas

Todas as Respostas