none
Acesso Negado - Mapear pasta Usuario RRS feed

  • Pergunta

  • bom dia.
    estou tentando mapear as pastas dos usuario mas ao rodar o script ele da a mensagem de acesso negado.
    Mas consigo fazer o mapeamento manual.
    segue o script que estou utilizando..

    strDriveLetter = "U:"
    Network.MapNetworkDrive strDriveLetter, "\\TERRA\Users\ & strUserName &" ,true
    objShell.NameSpace(strDriveLetter).Self.Name = strNovoNameU

    agradeço a atencao de todos..


    sexta-feira, 11 de dezembro de 2009 12:42

Respostas

  • bom dia.
    estou tentando mapear as pastas dos usuario mas ao rodar o script ele da a mensagem de acesso negado.
    Mas consigo fazer o mapeamento manual.
    segue o script que estou utilizando..

    strDriveLetter = "U:"
    Network.MapNetworkDrive strDriveLetter, "\\TERRA\Users\ & strUserName &" ,true
    objShell.NameSpace(strDriveLetter).Self.Name = strNovoNameU

    agradeço a atencao de todos..



    Jonnes, bom dia.

    Poste o script por completo....informe o erro e a linha.  Assim iremos conseguir ajudar...
    Mas já de antemão, tente aterar a sintaxe do script.
    Ex:
    Network.MapNetworkDrive strDriveLetter, "\\TERRA\Users\"& strUserName &"" ,true

    Lembre-se,

    Verifique se a variável strUserName está NULA, se é = a pasta a ser mapeada.
    Verifique se strNovoNameU está informado correto....

    Coisas assim....
    Efetue os testes, poste os resultados!
    Se útil, classifique.

    []s,



    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    • Marcado como Resposta Jonesbill sexta-feira, 11 de dezembro de 2009 15:11
    sexta-feira, 11 de dezembro de 2009 13:26

Todas as Respostas

  • bom dia.
    estou tentando mapear as pastas dos usuario mas ao rodar o script ele da a mensagem de acesso negado.
    Mas consigo fazer o mapeamento manual.
    segue o script que estou utilizando..

    strDriveLetter = "U:"
    Network.MapNetworkDrive strDriveLetter, "\\TERRA\Users\ & strUserName &" ,true
    objShell.NameSpace(strDriveLetter).Self.Name = strNovoNameU

    agradeço a atencao de todos..



    Jonnes, bom dia.

    Poste o script por completo....informe o erro e a linha.  Assim iremos conseguir ajudar...
    Mas já de antemão, tente aterar a sintaxe do script.
    Ex:
    Network.MapNetworkDrive strDriveLetter, "\\TERRA\Users\"& strUserName &"" ,true

    Lembre-se,

    Verifique se a variável strUserName está NULA, se é = a pasta a ser mapeada.
    Verifique se strNovoNameU está informado correto....

    Coisas assim....
    Efetue os testes, poste os resultados!
    Se útil, classifique.

    []s,



    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    • Marcado como Resposta Jonesbill sexta-feira, 11 de dezembro de 2009 15:11
    sexta-feira, 11 de dezembro de 2009 13:26
  • Jonnes,

            Tente executar o script abaixo. Copie o código cole no notepad e salve com a extensão CMD.

    @echo off
    cd s: >nul
    if not "%errorlevel%"=="0" net use L \\SERVIDOR\COMPARTILHAMENTO /user:%userdomain%\%username% /y
    if "%errorlevel%"=="0" echo Mapeamento existente!




    Espero ter ajudado.
    Leonardo Sousa
    sexta-feira, 11 de dezembro de 2009 13:56
  • Olá,

    Pode ser que você já tenha um mapeamento nesta unidade "U:"


    Verifique o exemplo abaixo:


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

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

    wshNetwork.MapNetworkDrive "U:", "\\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


    sexta-feira, 11 de dezembro de 2009 14:33

  • funcionou...
    foi so acrescentar as ""
    muito obrigado pela ajuda..
    sexta-feira, 11 de dezembro de 2009 15:11