none
Script para substituir mapeamento RRS feed

  • Pergunta

  • Bom dia a todos,

    Alguém poderia me ajudar no seguinte:

    Preciso de um script que desconecte um mapeamento e substitua por outro. O que acontece?
    Preciso substituir uma pasta de 2009 para uma de 2010 aqui da empresa.

    Desde já agradeço,
    Marcello Rogério
    segunda-feira, 4 de janeiro de 2010 11:00

Respostas

  • Olá,

    Verifique o script abaixo:


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

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

    'AQUI VOCÊ COLOCA O NOVO CAMINHO A SER MAPEADO
    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


    segunda-feira, 4 de janeiro de 2010 13:23
  • Marcello,

              Veja se o script abaixo ajuda.


    @echo off
    net use j: /del
    net use j: \\compartilhamento\2010
    net use x: \\compartilhamento\2009



    espero ter ajudado.
    ░ Leonardo Sousa ░ ░ MCP / MCDST / MCSA Windows Server 2003 ░
    segunda-feira, 4 de janeiro de 2010 17:32

Todas as Respostas

  • Olá,

    Verifique o script abaixo:


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

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

    'AQUI VOCÊ COLOCA O NOVO CAMINHO A SER MAPEADO
    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


    segunda-feira, 4 de janeiro de 2010 13:23
  • Obrigado Primeiramente Jesiel.

    Esse script não está trocando o mapeamento Jesiel. Exemplo:

    Se o "G" já estiver mapeado pra outra pasta ele não está trocando.

    Marcello Rogério
    segunda-feira, 4 de janeiro de 2010 13:34
  • Olá, Marcello Rogério.

    Crie um script .bat com os seguintes parametros:


    @echo off
    echo Atualização de mapeamentos...
    ECHO =====================================================
       ECHO ****  Removendo mapeamentos...****
    net use j: /delete                                                    #Onde j é a unidade a ser removida.
    net use l: /delete                                                    #Onde l é a unidade a ser removida.
    net use m: /delete                                                  #Onde m é a unidade a ser removida.
    net use n: /delete                                                   #Onde n é a unidade a ser removida.

    ECHO =====================================================
       ECHO ****  Atualizando mapeamentos...****
    net use j: \\diretoria\arquivos /persistent:yes           #Onde j é a nova unidade a ser refeita.
    net use l: \\contabil\arquivos /persistent:yes            #Onde l é a nova unidade a ser refeita.
    net use m: \\rh\arquivos /persistent:yes                  #Onde m é a nova unidade a ser refeita.
    net use n: \\financeiro\arquivos /persistent:yes        #Onde n é a nova unidade a ser refeita.


    Se útil classifique com tal. Att, Diógenes Torres
    segunda-feira, 4 de janeiro de 2010 15:09
  • Olá,

    Você mudou nas duas linhas abaixo??

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

    'AQUI VOCÊ COLOCA O NOVO CAMINHO A SER MAPEADO
    wshNetwork.MapNetworkDrive "G :", "\\server01\novocompartilhamento "

    Deveria mudar, fiz os testes aqui e funcionou...

    Verifique e nos retorne.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    segunda-feira, 4 de janeiro de 2010 15:36
  • Jesiel,

    Ele ta mapeando caso não esteja nada mapeado nesta unidade. Se tiver algo já mapeado ele ñ está trocando.
    Marcello Rogério
    segunda-feira, 4 de janeiro de 2010 16:12
  • Jesiel,

    Ele ta mapeando caso não esteja nada mapeado nesta unidade. Se tiver algo já mapeado ele ñ está trocando.
    Marcello Rogério


    Tente esse:

    Set oFs = CreateObject("Scripting.FileSystemObject")
    Set objNetwork= CreateObject("WScript.Network")

    strDrive = "G:"
    strCaminho = "\\Servidor\empresa"

    if oFs.DriveExists(strDrive) then
     objNetwork.RemoveNetworkDrive strDrive, true, true
     wscript.sleep 1000
     objNetwork.MapNetworkDrive strDrive, strCaminho
      
    else
     objNetwork.MapNetworkDrive strDrive, strCaminho
    end if


    []s,


    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    segunda-feira, 4 de janeiro de 2010 17:00
  • Marcello,

              Veja se o script abaixo ajuda.


    @echo off
    net use j: /del
    net use j: \\compartilhamento\2010
    net use x: \\compartilhamento\2009



    espero ter ajudado.
    ░ Leonardo Sousa ░ ░ MCP / MCDST / MCSA Windows Server 2003 ░
    segunda-feira, 4 de janeiro de 2010 17:32