none
SCRIPTS( DESMAPEAR TODAS AS UNIDADES DE REDE E MAPEAR NOVAS UNIDADES DE REDE) RRS feed

  • Pergunta

  • Boa tarde!

    Tenho um parque computacional com mais de 150 estações, queria desmapear todas as unidades de rede, e gerar novas unidades de rede novas para cada usuário, porém não estou conseguindo, já criei para cada usuário um script(.Bat) e nada funcionou.

    Se puderem me ajudar, obrigado.

    terça-feira, 15 de março de 2016 18:51

Respostas

  • cara vc pode criar uma bat simples

    net use * /delete /yes

    net use Z: \\servidor\compartilhamento

    net use X: \\servidor\compartilhamento

    Na primeira linha apaga todos os mapeamentos existentes sem perguntar e nas duas seguintes cria novos mapeamentos nas Letras Z e X.

    Aqui funciona perfeitamente. Abraço

    • Marcado como Resposta Marcos SJ quinta-feira, 24 de março de 2016 15:39
    quarta-feira, 16 de março de 2016 13:26

Todas as Respostas

  • Nechio, como você criou os scripts? Pode postar aqui? Para "desmapear" é simples, no começo do Script escreva: 

    net use * /d 

    terça-feira, 15 de março de 2016 20:18
  • Exemplo:

    Net use i: \delete

    Net use \\ip do servidor\Nome do compartilhamento

    Obs.: Não exclui quando faço isso e sim fica da mesma forma, só quando eu apago todos os mapeamentos na mão e coloco o script no ad (.bat) ai funciona.

    terça-feira, 15 de março de 2016 20:55
  • Boa noite

    o que você pode fazer é o seguinte :

    Set WshNetwork = Wscript.CreateObject("Wscript.Network")
    on error resume next
    WSHNetwork.RemoveNetworkDrive "E:", True, True
    WSHNetwork.RemoveNetworkDrive "F:", True, True
    WSHNetwork.RemoveNetworkDrive "G:", True, True
    WSHNetwork.RemoveNetworkDrive "H:", True, True
    WSHNetwork.RemoveNetworkDrive "I:", True, True
    WSHNetwork.RemoveNetworkDrive "J:", True, True
    WSHNetwork.RemoveNetworkDrive "K:", True, True
    WSHNetwork.RemoveNetworkDrive "L:", True, True
    WSHNetwork.RemoveNetworkDrive "M:", True, True
    WSHNetwork.RemoveNetworkDrive "N:", True, True
    WSHNetwork.RemoveNetworkDrive "O:", True, True
    WSHNetwork.RemoveNetworkDrive "P:", True, True
    WSHNetwork.RemoveNetworkDrive "Q:", True, True

    salve o arquivo como .vbs e seja feliz.

    Se a resposta foi útil favor marcar como resposta

    terça-feira, 15 de março de 2016 23:25
  • Mas, coloca essa vbs na pasra sysvol da mesma foram que é colocada a bat ?  criar normalmente o arquivo no bloco de notas .vbs é isso?
    terça-feira, 15 de março de 2016 23:29
  • Sim.

    Pega  esse script cola no bloco de Notas e salva como .vbs e salve no Sysvol

    o que você pode fazer que as vezes eu utilizo é : se a rede não for mt grande criar um vbs para cada usuário.

    Ex : andrelima.vbs,marciacosta.vbs

    Segue abaixo o script completo de remoção e criação das novas unidades :

    'Mapeando Unidades de Disco
    
    Set WshNetwork = Wscript.CreateObject("Wscript.Network")
    on error resume next
    WSHNetwork.RemoveNetworkDrive "E:", True, True
    WSHNetwork.RemoveNetworkDrive "F:", True, True
    WSHNetwork.RemoveNetworkDrive "G:", True, True
    WSHNetwork.RemoveNetworkDrive "H:", True, True
    WSHNetwork.RemoveNetworkDrive "I:", True, True
    WSHNetwork.RemoveNetworkDrive "J:", True, True
    WSHNetwork.RemoveNetworkDrive "K:", True, True
    WSHNetwork.RemoveNetworkDrive "L:", True, True
    WSHNetwork.RemoveNetworkDrive "M:", True, True
    WSHNetwork.RemoveNetworkDrive "N:", True, True
    WSHNetwork.RemoveNetworkDrive "O:", True, True
    WSHNetwork.RemoveNetworkDrive "P:", True, True
    WSHNetwork.RemoveNetworkDrive "Q:", True, True
    WshNetwork.MapNetworkDrive "G:","\\server\Compart","true"
    WshNetwork.MapNetworkDrive "H:","\\server\PASTA","true
    
    'CRIA ATALHO DO COMPARTILHAMENTO NO DESKTOP
    
    strAppPath = "G:\"
    Set wshShell = CreateObject("WScript.Shell")
    objDesktop = wshShell.SpecialFolders("Desktop")
    set oShellLink = WshShell.CreateShortcut(objDesktop & "\CLIENTES.lnk")
    oShellLink.TargetPath = strAppPath
    oShellLink.WindowStyle = "1"
    oShellLink.Description = "Compart"
    oShellLink.Save 
    Se lhe ajudei, favor "marcar como resposta"



    terça-feira, 15 de março de 2016 23:49
  • Obrigado, de certa forma me ajudou, mas eu precisava de um em (.bat) pois ja fiz todos os scripts para os funcionários que existem, eu só precisava ajustar ele para funcionar redondo, estou tendo dificuldades. 
    quarta-feira, 16 de março de 2016 00:20
  • Exemplo:

    Net use i: \delete

    Net use \\ip do servidor\Nome do compartilhamento

    Obs.: Não exclui quando faço isso e sim fica da mesma forma, só quando eu apago todos os mapeamentos na mão e coloco o script no ad (.bat) ai funciona.

    Teria que usar a outra barra para remover. 

    Net use i: /d 

    ou /delete, dá no mesmo. 

    quarta-feira, 16 de março de 2016 00:36
  • Ex:

    net use * /d 


    net use N:\\ip do servidor\nome do compartilhamento

    já coloquei net use * /d /y

    e nada vai.

    Obs: Esta assim na bat , mas no script de inicialização esta pedindo confirmação do usuário, mas eu quero forçar o desmapeamento dos existentes, e subir os novos.


    quarta-feira, 16 de março de 2016 00:43
  • Script de inicialização foi configurado por GPO (Computer Configuration) ou por objeto do AD (Profile > Logon Script)? Na confirmação ele alega que está em uso ou algo do tipo?
    quarta-feira, 16 de março de 2016 12:58
  • O script foi feito e posto na pasta sysvol, e atrelado ao usuários na propriedade do usuário no Active Directory.Na aba perfil. Ele alega que esta sendo feito o script, só que ele pede confirmação S/N , e eu não quero esse procedimento e sim automatizado, mudar o antigos e colocar os novos mapeamentos com as mesmas letras de unidade.


    • Editado Nechio Neves quarta-feira, 16 de março de 2016 13:10
    quarta-feira, 16 de março de 2016 13:09
  • cara vc pode criar uma bat simples

    net use * /delete /yes

    net use Z: \\servidor\compartilhamento

    net use X: \\servidor\compartilhamento

    Na primeira linha apaga todos os mapeamentos existentes sem perguntar e nas duas seguintes cria novos mapeamentos nas Letras Z e X.

    Aqui funciona perfeitamente. Abraço

    • Marcado como Resposta Marcos SJ quinta-feira, 24 de março de 2016 15:39
    quarta-feira, 16 de março de 2016 13:26
  • Boa tarde,

    Por falta de retorno do usuário, esta thread será encerrada.

    Caso seja necessário, por gentileza, abra uma nova thread.

    Atenciosamente


    Marcos SJ

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quinta-feira, 24 de março de 2016 15:39