Renomear mapeamento através de script do ms-dos

FCL · 21 de agosto de 2009

Pessoal, é o seguinte:

Quando o usuario loga no Domínio Windows Server 2003, ele recebe as configuraçoes de script de mapeamento automático. Gostaria de acrescentar no meu script algum comando para renomear o mapeamento e se for possivel criar um atalho desse mapeamento na area de trabalho. Por exemplo:

Renomear o mapeamento FULANO em 'SERVER\USUARIOS'.

o meu script é o seguinte:

@echo off

net use z: \\SERVER\USUARIOS\FULANO

Agradeço a todos antecipadamente.

jefferson.igorbr · 22 de agosto de 2009

Desculpe , mas não entendi qual é a sua dúvida.

Woodsphreaker · 22 de agosto de 2009

Simples.

Inclua no script o seguinte comando

LABEL Z: NOME_DA_UNIDADE

FCL · 22 de agosto de 2009

Amigão eu testei este comando mas infelizmente não funcionou. Tem outro comando bom ai na cartola?

Woodsphreaker · 23 de agosto de 2009

Você precisa colocar esse comando logo após a mapeamento, do contrário não funciona.

Mas faz um teste, quando estiver com o sistema carregado, tente renomear manualmente a unidade e veja se é possível.

Depois poste de novo o resultado. Té mais !!

FCL · 23 de agosto de 2009

Eu já havia tentado usar o comando label de varias maneiras. Afinal a função dele é esta mesmo. Usei logo após os comandos de scripts, mas não funcionou. Renomear manualmente é possivel. O problema é que terei que fazer isso em mais de 4.000 máquinas. De maneira mais simples, o script pode resolver isso no momento que o usuario logar do dominio. Se você tiver alguma maneira de fazer um mapeamento em seu pc, tenta dar uma olhadinha no comando e verás o problema de frente. Agradeço pela força que esta me dando.

ex -1:

@echo off

net use z: \\SERVER\USUARIOS\FULANO

label z: Usuarios

tentei:

ex -1:

@echo off

net use z: \\SERVER\USUARIOS\FULANO

label z:= Usuarios

Tentei de varias maneiras. Eu consigo até executar esse comando em um pendirve normalmente através do autorun.

[autorun]

label=nome do drive

Woodsphreaker · 23 de agosto de 2009

É, não era tão simples como eu imaginei, mas testei umas rotinas aqui e consegui fazer, testei e funciona de boa. Segue o script completo:

@echo off
net use z: \\SERVER\USUARIOS\FULANO
echo Set oShell = CreateObject("Shell.Application") >> z:\Drive_Rename.vbs
echo oShell.NameSpace("z:\").Self.Name = "NomeUnidade" >> z:\Drive_Rename.vbs 
z:
Drive_Rename.vbs
del Drive_Rename.vbs

Explicando...

net use z: \\SERVER\USUARIOS\FULANO

Mapeia a Unidade no servidor e atribui uma letra para a mesma.

echo Set oShell = CreateObject("Shell.Application") >> z:\Drive_Rename.vbs

Instancia o objeto "oShell a função de aplicação e grava a linha no arquivo Drive_Rename.vbs criado por ele.

echo oShell.NameSpace("z:\").Self.Name = "NomeUnidade" >> z:\Drive_Rename.vbs

Nessa linha, o objeto oShell seta a unidade a ser renomeada e em "NomeUnidade" coloque o nome que você desejar. Logo após a função também grava a linha no arquivo Drive_Rename.vbs.

z:

Acessa a unidade mapeada.

Drive_Rename.vbs

Executa a função

del Drive_Rename.vbs

Deleta a função criada, pois já cumpriu o seu papel. Assim não fica disponível na pasta do usuário.

Bom amigo, é isso. Testa aí e veja se atende o que você precisa, qualquer dúvida posta de novo.

Té mais e boa sorte !!

FCL · 23 de agosto de 2009

Amigão, muito bom, o código funcionou beleza. Veja só. Tem algumas máquinas que tem mais de um mapeamento. se eu quiser renomear todos terei que acrescentar o código abaixo de cada uma das linhas de código do mapeamento e trocar as letras das unidades mostradas no comando ou tem algum meio para que isso seja feito dentro desse código que você me mandou sem ter que fazer isso um por um? E quanto ao detalhe de criar um atalho na área de trabalho via script, tem como?

Woodsphreaker · 24 de agosto de 2009

Amigão, muito bom, o código funcionou beleza. Veja só. Tem algumas máquinas que tem mais de um mapeamento. se eu quiser renomear todos terei que acrescentar o código abaixo de cada uma das linhas de código do mapeamento e trocar as letras das unidades mostradas no comando ou tem algum meio para que isso seja feito dentro desse código que você me mandou sem ter que fazer isso um por um? E quanto ao detalhe de criar um atalho na área de trabalho via script, tem como?

Ok, adicionei mais uma função p/ criar o atalho no desktop, abaixo o código completo:


@echo off
net use z: [URL="file://\\SERVER\USUARIOS\FULANO"]\\SERVER\USUARIOS\FULANO[/URL]
echo Set oShell = CreateObject("Shell.Application") >> z:\Drive_Rename.vbs
echo oShell.NameSpace("z:\").Self.Name = "NomeUnidade" >> z:\Drive_Rename.vbs 
echo Set oWS = WScript.CreateObject("WScript.Shell") >> z:\Drive_Rename.vbs
echo sLinkFile = "%userprofile%\desktop\Nome_do_link.lnk">> z:\Drive_Rename.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> z:\Drive_Rename.vbs
echo oLink.TargetPath = "Z:\" >> z:\Drive_Rename.vbs
echo oLink.Save >> z:\Drive_Rename.vbs
z:
Drive_Rename.vbs
del Drive_Rename.vbs

Sobre a sua dúvida dos outros compartilhamentos, acredito que não há outra forma se não fazer em cada perfil. Pode ser que criando uma rotina voltada para procurar os drivers e usuários dinamicamente, mas isso demanda mais tempo e a função ficaria um pouco mais complexa.

Mas está aí, da forma que está atende o que você pediu no inicio do tópico, e acho que vai te servir bem.

Qualquer dúvida, posta de novo.

FCL · 24 de agosto de 2009

Irmão obrigado pela força. O programa está funcionando beleza. Fico feliz em saber que tem gente disponivel em usar o seus conecimentos para ajudar outros. Deus te abençoe. Estou ai para o que precisar. Vou adiciona-lo aos meus contatos. Valeu mais uma vez.

Woodsphreaker · 24 de agosto de 2009

Irmão obrigado pela força. O programa está funcionando beleza. Fico feliz em saber que tem gente disponivel em usar o seus conecimentos para ajudar outros. Deus te abençoe. Estou ai para o que precisar. Vou adiciona-lo aos meus contatos. Valeu mais uma vez.

Bacana amigo, fico feliz por ter dado certo e a dica foi útil p/ você.

Agradeço também por voltar e postar se a dica deu certo, pois mtos posts meus em que ajudei o pessoal a resolver o problema, ao menos voltou e postou se resolveu ou não.

Enfim, precisando estamos aí, té mais e sucesso !!

FCL · 25 de agosto de 2009

Amigão que comando eu uso incluso desse script (que você me ajudou a preparar) para quando o usuario logar no servidor seja instalado automaticamente a impressora de rede. Por exemplo o nome do compartilhamento para se chegar a impressora compartilhada é:

\\sever\KyoceraF820.

KyoceraF820 é o nome do compartilhamento da impressora de rede.

Woodsphreaker · 25 de agosto de 2009

Amigão que comando eu uso incluso desse script (que você me ajudou a preparar) para quando o usuario logar no servidor seja instalado automaticamente a impressora de rede. Por exemplo o nome do compartilhamento para se chegar a impressora compartilhada é:
\\sever\KyoceraF820.

KyoceraF820 é o nome do compartilhamento da impressora de rede.

Olá amigo, abaixo segue o código completo.


@echo off
net use z: [URL="file://server/USUARIOS/FULANO"]\\SERVER\USUARIOS\FULANO[/URL]
echo Set oShell = CreateObject("Shell.Application") >> z:\Drive_Rename.vbs
echo oShell.NameSpace("z:\").Self.Name = "Woods_Server" >> z:\Drive_Rename.vbs 
echo Set oWS = WScript.CreateObject("WScript.Shell") >> z:\Drive_Rename.vbs
echo sLinkFile = "%userprofile%\desktop\Servidor.lnk">> z:\Drive_Rename.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> z:\Drive_Rename.vbs
echo oLink.TargetPath = "Z:\" >> z:\Drive_Rename.vbs
echo oLink.Save >> z:\Drive_Rename.vbs
echo PathPrinter = "\\server\KyoceraF820" >> z:\Drive_Rename.vbs
echo Set PrinterNet = CreateObject("WScript.Network") >> z:\Drive_Rename.vbs
echo PrinterNet.AddWindowsPrinterConnection PathPrinter >> z:\Drive_Rename.vbs
echo PrinterNet.SetDefaultPrinter PathPrinter >> z:\Drive_Rename.vbs 
z:
Drive_Rename.vbs
del Drive_Rename.vbs

Obs.: Lembrando que para adicionar a impressora nos clientes, os mesmos precisam ter os drivers necessários para a instalação, caso contrário o script não funcionará.

Testei aqui e funciona perfeitamente. Qualquer dúvida, poste de novo.