none
Mapear Pasta Particular de Usuario RRS feed

  • Pergunta

  • Bom dia pessoal

    estou precisando de um help de vocês.....

    Tenho aqui na empresa um servidor de arquivos para pasta particular de cada usuário e preciso que estas pastas sejam mapeadas via vbscript, estas pastas estão com compartilhamento oculto "$".
    Dei uma olhada no forum e fiz alguns testes com os scripts que encontrei, mais eles só funcionam se o compartilhamento não estiver oculto.

    segue esquema de como esta o server:

    \\server\user$

    Até pensei em colocar no login de cada usuário, direto no ad, o caminho de cada pasta na home folder mais teria que alterar manualmente e são 1320 usuarios sem contar uns 200 que trocam de 6 em 6 meses.

    Poderiam me ajudar

    Obrigado
    quinta-feira, 11 de setembro de 2008 12:30

Respostas

  • Agora com o $ rs
    Valeu Felipe





    ' MNDUserName.vbs
    ' VBScript to map a network drive to the UserName.
    ' Author Guy Thomas http://computerperformance.co.uk/
    ' Version 1.3 - April 24th 2005
    ' -----------------------------------------------------------------'
    Option Explicit
    Dim objNetwork
    Dim strDriveLetter, strRemotePath, strUserName
    strDriveLetter = "J:"
    strRemotePath = "\\grand\home"

    ' Purpose of script to create a network object. (objNetwork)
    ' Then to apply the MapNetworkDrive method. Result J: drive
    Set objNetwork = WScript.CreateObject("WScript.Network")
    ' Here is where we extract the UserName
    strUserName = objNetwork.UserName
    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _
    & "\" & strUserName & "$"

    ' Extra code just to add a message box
    WScript.Echo " Launch Explorer, check: "& strDriveLetter
    WScript.Quit

    ' End of MapNetworkDrive Example logon script.
    domingo, 21 de setembro de 2008 01:20

Todas as Respostas

  • Já experimentou selecionar todos os usuários que deseja alterar e conectar a homefolder a \\SERVIDOR\%USERNAME% ???

     

    quinta-feira, 11 de setembro de 2008 16:22
  • Na verdade, do jeito que eu uso seria assim: \\servidor\compartilhamento$\%username%, eu esqueci de citar o compartilhamento. Por exemplo tenho um compartilhamento no servidor Mssrv chamado Usuarios$. Na home folder do usuario eu mando conectar a letra ao caminho \\mssrv\usuarios$\%username% , assim ele cria automaticamente uma pasta com o nome do usuario dentro do compartilhamento, acredito que %username%$ nesse caso nao funcionaria, porque ele está criando uma pasta dentro de um compartilhamento, e o valor $ só valeria pra compartilhar a pasta...

    quinta-feira, 11 de setembro de 2008 20:34
  • Entendi

     

    mais aqui na empresa eu uso assim: \\servidor\user$

     

    o que acontece é que cada usuario tem uma pasta com seu nome compartilhada com o $

     

    ex: \\server\mcbarbalho$

     

    precisaria mapear asim mais ta dificil fazer via script isto viu...

     

    não da para alterar e partir para o seu esquema pois são muitas pastas e ia ser meio demorado, gostaria de conseguir realizar esta ação com vbscript e com o cenario atual, vou continuar tentando e ver o que acontece...

     

    se alguem mais puder ajudar....

     

     

    obrigadoooooooooooooo

     

    quinta-feira, 11 de setembro de 2008 21:01
  • http://www.computerperformance.co.uk/Logon/Logon_HomeDirAdv.htm


    ' MNDUserName.vbs
    ' VBScript to map a network drive to the UserName.
    ' Author Guy Thomas http://computerperformance.co.uk/
    ' Version 1.3 - April 24th 2005
    ' -----------------------------------------------------------------'
    Option Explicit
    Dim objNetwork
    Dim strDriveLetter, strRemotePath, strUserName
    strDriveLetter = "J:"
    strRemotePath = "\\grand\home"

    ' Purpose of script to create a network object. (objNetwork)
    ' Then to apply the MapNetworkDrive method. Result J: drive
    Set objNetwork = WScript.CreateObject("WScript.Network")
    ' Here is where we extract the UserName
    strUserName = objNetwork.UserName
    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _
    & "\" & strUserName

    ' Extra code just to add a message box
    WScript.Echo " Launch Explorer, check: "& strDriveLetter
    WScript.Quit

    ' End of MapNetworkDrive Example logon script.
    terça-feira, 16 de setembro de 2008 19:45
  • Obrigado vou testar
    quarta-feira, 17 de setembro de 2008 12:06
  •  

    Vc pode usar uma versão menor do script do Romeu...

     

    E Romeu... Faltou o $ no nome da pasta...

     


    Code Snippet

    Set objNetwork = WScript.CreateObject("WScript.Network")

    caminho = "\\server\" & objNetwork.UserName & "$"
    objNetwork.MapNetworkDrive "J:", caminho
    wscript.quit

     

     

    Abs
    quinta-feira, 18 de setembro de 2008 21:29
    Moderador
  • Agora com o $ rs
    Valeu Felipe





    ' MNDUserName.vbs
    ' VBScript to map a network drive to the UserName.
    ' Author Guy Thomas http://computerperformance.co.uk/
    ' Version 1.3 - April 24th 2005
    ' -----------------------------------------------------------------'
    Option Explicit
    Dim objNetwork
    Dim strDriveLetter, strRemotePath, strUserName
    strDriveLetter = "J:"
    strRemotePath = "\\grand\home"

    ' Purpose of script to create a network object. (objNetwork)
    ' Then to apply the MapNetworkDrive method. Result J: drive
    Set objNetwork = WScript.CreateObject("WScript.Network")
    ' Here is where we extract the UserName
    strUserName = objNetwork.UserName
    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _
    & "\" & strUserName & "$"

    ' Extra code just to add a message box
    WScript.Echo " Launch Explorer, check: "& strDriveLetter
    WScript.Quit

    ' End of MapNetworkDrive Example logon script.
    domingo, 21 de setembro de 2008 01:20