none
script para deletar todos os volumes RRS feed

  • Pergunta

  • Pessoal  estou usando este script no perfil dos usuários,  sei que muito irão falar porque não  usar GPO ou GPP e respondo, porque não estou me dando bem com GPO. pelo menos para compartilhamentos.

    todas as vezes que altero a GPO o compartilhamento antigo não desfaz e fica sempre aparecendo  O compartilhamento que não quero mais usar.

    E este script ele esta funcionando muito bem, com exceção na parte em negrito  não esta deletando as unidades, como adapta-lo?

    Queria que deletasse todas as unidades começando coma LETRA I. 

    E depois cria os compartilhamento conforme as unidades que serão informadas para cada usuários do domínio.

    'Script de Logon-

    '============================================================================

    'Impedindo exibição de error para o usuário
    On error Resume Next
    Err.clear 0

    Dim oNetwork,WshNetwork
    bForce = "True"
    bUpdateProfile = "True"
    Set oNetwork = CreateObject("Wscript.Network")
    '==== Apaga Mapeamento da Unidade ===='
    oNet.RemoveNetworkDrive "I:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "T:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "Q:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "p:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "J:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "K:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "L:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "M:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "N:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "O:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "U:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "V:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "S:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "W:", bForce, bUpdateProfile
    oNet.RemoveNetworkDrive "Y:", bForce, bUpdateProfile

    '============================================================================
    'Mapeando Unidades de Disco

    Set WshNetwork = Wscript.CreateObject("Wscript.Network")
    WshNetwork.MapNetworkDrive "P:","\\SRV-PDC1\Informatica","true"
    WshNetwork.MapNetworkDrive "O:","\\SRV-PDC1\Publico","true"
    WshNetwork.MapNetworkDrive "X:","\\SRV-PDC1\DIGITALIZADOS","true"

    '============================================================================
    'Mapeando Impressora 

    'Set WshNetwork = Wscript.CreateObject("Wscript.Network")
    'WshNetwork.AddWindowsPrinterConnection "\\SRV-PDC2\PRINTER1", "PRINTER1"
    'WshNetwork.SetDefaultPrinter "\\SRV-PDC2\PRINTER", "PRINTER1"

    '============================================================================
    'CRIA ATALHO DO COMPARTILHAMENTO NO DESKTOP

    'strAppPath = "U:\"
    'Set wshShell = CreateObject("WScript.Shell")
    'objDesktop = wshShell.SpecialFolders("Desktop")
    'set oShellLink = WshShell.CreateShortcut(objDesktop & "\Diretorio Pessoal.lnk")
    'oShellLink.TargetPath = strAppPath
    'oShellLink.WindowStyle = "1"
    'oShellLink.Description = "Diretorio Pessoal"
    'oShellLink.Save 

    'ENVIA O COMANDO PARA APERTAR A TECLA F5 PARA ATUALIZAR OS ICONES NO DESKTOP
    'WshShell.SendKeys "{F5}"

    '============================================================================
    'SINCRONIZA HORARIO ESTAÇÃO x SERVIDOR
    Set wshShell = CreateObject("WScript.Shell")
    wshShell.Run "NET TIME \\SRV-PDC1 /SET /Y", 0, True

    Wscript.Quit

    quarta-feira, 8 de outubro de 2014 04:01

Respostas

  • Troque a linha

    Set oNetwork = CreateObject("Wscript.Network")

    por

    Set oNet = CreateObject("Wscript.Network")

    Você não iniciou o objeto oNet.


    Fábio de Paula Junior

    quarta-feira, 8 de outubro de 2014 19:33
    Moderador

Todas as Respostas

  • Comente a linha On error resume next pra ver se vai acusar algum erro.

    Fábio de Paula Junior

    quarta-feira, 8 de outubro de 2014 14:13
    Moderador
  • Troque a linha

    Set oNetwork = CreateObject("Wscript.Network")

    por

    Set oNet = CreateObject("Wscript.Network")

    Você não iniciou o objeto oNet.


    Fábio de Paula Junior

    quarta-feira, 8 de outubro de 2014 19:33
    Moderador
  • ok   eu fiz o seguinte ,  comentei as linhas

    'On error Resume Next
    'Err.clear 0

    E alterei estas linhas abaixo.

    Dim oNetwork,WshNetwork
    bForce = "True"
    bUpdateProfile = "True"
    Set oNetwork = CreateObject("Wscript.Network")
    '==== Apaga Mapeamento da Unidade ===='
    oNetwork.RemoveNetworkDrive "P:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "T:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "Q:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "I:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "J:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "K:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "L:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "M:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "N:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "O:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "U:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "V:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "S:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "W:", bForce, bUpdateProfile
    oNetwork.RemoveNetworkDrive "Y:", bForce, bUpdateProfile

    Agora aparece este erro

     Seria esta linha

    oNetwork.RemoveNetworkDrive "P:", bForce, bUpdateProfile

    Também  fiz o que vc indicou e aparece o mesmo erro na mesma linha.

    O que devo fazer agora?

    quinta-feira, 9 de outubro de 2014 02:30
  • Este erro é devido a você tentar "desmapear" uma letra que não está mapeada.

    A solução é reativar a linha on error resume next.

    Quando você for testar o script comente o "on error resume next" e também as linhas que mandam "desmapear" letras que não estão mapeadas.

    Com aquela modificação do oNet o seu script já deve estar funcionando, ative novamente o "on error resume next"


    Fábio de Paula Junior

    quinta-feira, 9 de outubro de 2014 13:28
    Moderador
  • Grande Fábio, o estranho que existe sim a Letra (unidade) mapeada  por exemplo a letra P.

    Esta unidade foi mapeada via GPP e agora não existe mais esta GPO mesmo assim continua aparecendo.

    Por isso estou usando este script para desmapear todas unidades que não estou mais usando nas estações, infelizmente não esta funcionando.

    A minha idéia  era para o escript deletar todos os mapeamento e depois iria mapeando conforrme cada usuários e seu mapeamento  por isso estou usando o profile de usuários, já que pelo GPP  tenho alguns problemas.

    Abraço 

    sexta-feira, 10 de outubro de 2014 00:44
  • Tente rodar apenas o script abaixo nessa máquina que tem o P: mapeado.

    bForce = "True"
    bUpdateProfile = "True"
    Set oNetwork = CreateObject("Wscript.Network")
    '==== Apaga Mapeamento da Unidade ===='
    oNetwork.RemoveNetworkDrive "P:", bForce, bUpdateProfile

    Deu erro? desmapeou? o que acontece?


    Fábio de Paula Junior

    sexta-feira, 10 de outubro de 2014 16:20
    Moderador