none
Mapear as pastas de respectivos usuários RRS feed

  • Pergunta

  • Olá Pessoal, atualmente eu tenho um script ".BAT" que faz um mapeamento das pastas dos usuários do domínio,
    Cada usuário possui uma pasta com o mesmo nome da conta do perfil
    Exemplo do script atual:

    -----------------------------------------------------------------------------
    REM MAPEIA RESPECTIVAMENTE A PASTA DE CADA USUARIO
    net use O: \\servidor\%username%
    -----------------------------------------------------------------------------

    O que eu gostaria?

    Bom, eu criei um script em ."vbs" e gostaria de colocar esse mesmo exemplo

    tentei dessa maneira:
    -------------------------------------------------------------------------
    set objNetwork= CreateObject("WScript.Network")
    objNetwork.MapNetworkDrive "G:", \\servigor\%username%
    -------------------------------------------------------------------------

    Não Funciona!!!

    Eu precisaria criar um script que remove todos os mapeamentos e mapeie dessa maneira!

    Obrigado desde já!
    terça-feira, 27 de outubro de 2009 15:24

Respostas

  • Olá,

    Seria assim:


    set objNetwork= CreateObject("WScript.Network")
    objNetwork.MapNetworkDrive "G:", \\servidor\" & objNetwork.username

    mas desconecte as unidades primeiro antes de mapear, conforme 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\" & wshNetwork.username

    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


    • Marcado como Resposta Tberth terça-feira, 27 de outubro de 2009 17:33
    terça-feira, 27 de outubro de 2009 16:48

Todas as Respostas

  • Olá,

    Seria assim:


    set objNetwork= CreateObject("WScript.Network")
    objNetwork.MapNetworkDrive "G:", \\servidor\" & objNetwork.username

    mas desconecte as unidades primeiro antes de mapear, conforme 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\" & wshNetwork.username

    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


    • Marcado como Resposta Tberth terça-feira, 27 de outubro de 2009 17:33
    terça-feira, 27 de outubro de 2009 16:48
  • RESOLVIDO!!!

    OBRIGADO Jesiel S. Pereira!
    • Marcado como Resposta Tberth terça-feira, 27 de outubro de 2009 17:34
    • Não Marcado como Resposta Jesiel S. Pereira terça-feira, 27 de outubro de 2009 19:09
    terça-feira, 27 de outubro de 2009 17:34