none
script vbs mapeamento pasta rede RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    pessoal

    tenho um script em vbs que mapeia varias pastas para os usuarios
    so que estou com um problema

    cada vez que o usuario logo o script em vbs tenta mapear de novo, como a unidade ja esta mapeada ele apresenta uma tela com erro
    dizendo que a letra ja esta em uso
    como faço pra que nao exiba mais esta tela
    e que ele verifique que ja tem a letra mapeada e nao tente mapear de novo

    veja o meu script

    Dim WshNetwork
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    WshNetwork.MapNetworkDrive "G:", "\\servidor\pessoal"
    WshNetwork.MapNetworkDrive "H:", "\\servidor\public"
    WshNetwork.MapNetworkDrive "F:", "\\servidor\usuarios"


    aguardo
    sexta-feira, 12 de março de 2010 00:45
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Olá,

    Utilize o exemplo abaixo:


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

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

    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




    O script acimia tem a Sub DriveMapper que desconecta a unidade que você quer antes de mapear.



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    sexta-feira, 12 de março de 2010 11:47
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Olá,

    Utilize o exemplo abaixo:


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

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

    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




    O script acimia tem a Sub DriveMapper que desconecta a unidade que você quer antes de mapear.



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    sexta-feira, 12 de março de 2010 11:47
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Bom dia,

    Para windows 7 o seu script é funcional, estou com problemas para fazer mapeamento no windows 10. Alguma sugestão?

    terça-feira, 9 de maio de 2017 12:44
    |