none
SCRIPT PARA MAPEAMENTO UTILIZANDO VARIÁVEL DE AMBIENTE RRS feed

  • Pergunta

  •  

    Boa tarde a todos!

     

    Tenho uma situação onde necessito mapear uma pasta específica para cada usuário, ou seja, a pasta contém o nome de logon do usuário - "\\servidor\%username%". Utilizo o comando "NET USE Z: \\S2100as05\%username%" num arquivo .bat, porém gostaria de nomear o mapeamento como é feito no script abaixo:

     

    '*****************************************************************************************************************************

    Option Explicit
    Dim objNetwork, strDrive, objShell, objUNC, strODBC, WSHSHELL
    Dim CAMINHO, UNIDADE, NOME
    '**
    'INICIALIZANDO DAS VARIÁVEIS
    UNIDADE = "Z:"
    CAMINHO = "\\s2100as05\USER"
    NOME = "USER"
    '**
    ' MAPEAMEANDO OS DRIVES
    Set objNetwork = CreateObject("WScript.Network")
    ON ERROR RESUME NEXT
    objNetwork.RemoveNetworkDRIVE UNIDADE
    objNetwork.MapNetworkDrive UNIDADE, CAMINHO
    '**
    ' RENOMEANDO OS DRIVES
    Set objShell = CreateObject("Shell.Application")
    objShell.NameSpace(UNIDADE).Self.Name = NOME
    '** 
    WScript.Quit

    '*****************************************************************************************************************************

     

    É possível aprimorar o script, a fim que o mesmo reconheça a variável de ambiente %username%?

     

    Assim, mapearia um caminho para cada usuário e o título seria o nome da pasta do usuário que por sua vez é igual ao valor da variável de ambiente username.

    '**
    'INICIALIZANDO DAS VARIÁVEIS
    UNIDADE = "Z:"
    CAMINHO = "\\s2100as05\%username%"
    NOME = "%username%"
    '**

     

     Testei o script colocando a variável %username% mas não funciona.

     

    Agradeço desde já pela tenção.

     

     

    Oliveira.

     

    quinta-feira, 10 de abril de 2008 15:54

Respostas

  • Oliveira, neste tópico tem um problema parecido com o seu Wink

     

    http://forums.microsoft.com/Technet-BR/ShowPost.aspx?PostID=3082716&SiteID=29

    quinta-feira, 10 de abril de 2008 17:21
  • Boa tarde!

     

    Funcionou perfeitamente!!!!

     

    Segue o script:

     

    '*****************************************************************************************************************************

    Option Explicit
    Dim objNetwork, strDrive, objShell, objUNC, strODBC, WSHSHELL
    Dim CAMINHO, UNIDADE, NOME, WSHNETWORK

    '*****************************************************************************************************************************
    'INICIALIZANDO DAS VARIÁVEIS
    set wshnetwork = createobject("wscript.network")
    UNIDADE = "Z:"
    CAMINHO = "\\SERVIDOR\"& wshnetwork.username &""
    NOME = ""& wshnetwork.username &""
    '*****************************************************************************************************************************
    ' MAPEAMEANDO OS DRIVES
    Set objNetwork = CreateObject("WScript.Network")
    ON ERROR RESUME NEXT
    objNetwork.RemoveNetworkDRIVE UNIDADE
    objNetwork.MapNetworkDrive UNIDADE, CAMINHO
    '*****************************************************************************************************************************
    ' RENOMEANDO OS DRIVES
    Set objShell = CreateObject("Shell.Application")
    objShell.NameSpace(UNIDADE).Self.Name = NOME
    '*****************************************************************************************************************************
     WScript.Quit

     

    '*****************************************************************************************************************************

     

     

    Grato,

     

     

    Oliveira.

    quinta-feira, 10 de abril de 2008 18:24

Todas as Respostas

  • Oliveira, neste tópico tem um problema parecido com o seu Wink

     

    http://forums.microsoft.com/Technet-BR/ShowPost.aspx?PostID=3082716&SiteID=29

    quinta-feira, 10 de abril de 2008 17:21
  • Boa tarde!

     

    Funcionou perfeitamente!!!!

     

    Segue o script:

     

    '*****************************************************************************************************************************

    Option Explicit
    Dim objNetwork, strDrive, objShell, objUNC, strODBC, WSHSHELL
    Dim CAMINHO, UNIDADE, NOME, WSHNETWORK

    '*****************************************************************************************************************************
    'INICIALIZANDO DAS VARIÁVEIS
    set wshnetwork = createobject("wscript.network")
    UNIDADE = "Z:"
    CAMINHO = "\\SERVIDOR\"& wshnetwork.username &""
    NOME = ""& wshnetwork.username &""
    '*****************************************************************************************************************************
    ' MAPEAMEANDO OS DRIVES
    Set objNetwork = CreateObject("WScript.Network")
    ON ERROR RESUME NEXT
    objNetwork.RemoveNetworkDRIVE UNIDADE
    objNetwork.MapNetworkDrive UNIDADE, CAMINHO
    '*****************************************************************************************************************************
    ' RENOMEANDO OS DRIVES
    Set objShell = CreateObject("Shell.Application")
    objShell.NameSpace(UNIDADE).Self.Name = NOME
    '*****************************************************************************************************************************
     WScript.Quit

     

    '*****************************************************************************************************************************

     

     

    Grato,

     

     

    Oliveira.

    quinta-feira, 10 de abril de 2008 18:24
  • Vou ressussitar este tópico...

     

     

    Estou com um problema parecido... só que em vez do nome do usuário, o mapeamento é direcionado a uma pasta para o Setor...  por exemplo:

     

     

    Tenho 2 setores o primeiro setor é o setor de contabilidade que possui usuários (Joao, José, Maria), e o setor de tesouraria ( Rodrigo, Marcos, Carlos).  no servidor existem 2 pastas compartilhadas, uma para cada setor... Tenho como criar um script para isso? 

     

    por exemplo...    net use z: \\servidor\%usergroup%     

     

     

    deste jeito conseguiria fazer com que cada pessoa de cada setor fizesse um mapeamento com sua respectiva pasta do setor...

     

     

    Sei que nao existe %usergroup%, usei só para exemplificar a variável que desconheço.

     

     

     

    quinta-feira, 27 de novembro de 2008 17:16