none
Script não esta removendo os mapeamentos RRS feed

  • Pergunta

  • Pessoal, bom dia.

     

    Preciso da ajuda de voces, tenho o scritp abaixo que não está funcionando como deveria, ele não remove mapeamentos existentes e mapeia novamente com o mapeamento correto, tem algum outro comando que posso alterar onde está net.RemoveNetworkDrive ??

     

    Desde ja agradeço.

     

     

    Set net = CreateObject("Wscript.Network")


    on error resume next

    net.RemoveNetworkDrive "P:",true
    net.RemoveNetworkDrive "R:",true
    net.RemoveNetworkDrive "S:",true
    net.RemoveNetworkDrive "T:",true
    net.RemoveNetworkDrive "U:",true
    net.RemoveNetworkDrive "V:",true

    Dim WshNetwork
    Set WshNetwork = WScript.CreateObject("WScript.Network") 
    WshNetwork.MapNetworkDrive "R:", "\\srvcc02\Projetos"
    WshNetwork.MapNetworkDrive "S:", \\srvcc01\Sa "
    WshNetwork.MapNetworkDrive "T:", "\\srvcc02\Prospect"
    WshNetwork.MapNetworkDrive "U:", "\\srvcc01\Users"

    quinta-feira, 28 de fevereiro de 2008 10:54

Respostas

  • Bernandino, eu não aconselho o uso do removenetwork, dá muito problema use o net use mesmo Wink

     

    set shell = createobject("wscript.shell")

    shell.run "net use P: /delete /y"

    shell.run "net use R: /delete /y"

    shell.run "net use S: /delete /y"

    shell.run "net use T: /delete /y"

    shell.run "net use U: /delete /y"

    shell.run "net use V: /delete /y"

     

    Set WshNetwork = WScript.CreateObject("WScript.Network") 
    WshNetwork.MapNetworkDrive "R:", "\\srvcc02\Projetos"
    WshNetwork.MapNetworkDrive "S:", \\srvcc01\Sa "
    WshNetwork.MapNetworkDrive "T:", "\\srvcc02\Prospect"
    WshNetwork.MapNetworkDrive "U:", "\\srvcc01\Users"

     

    quinta-feira, 28 de fevereiro de 2008 16:36

Todas as Respostas

  • Bernandino, eu não aconselho o uso do removenetwork, dá muito problema use o net use mesmo Wink

     

    set shell = createobject("wscript.shell")

    shell.run "net use P: /delete /y"

    shell.run "net use R: /delete /y"

    shell.run "net use S: /delete /y"

    shell.run "net use T: /delete /y"

    shell.run "net use U: /delete /y"

    shell.run "net use V: /delete /y"

     

    Set WshNetwork = WScript.CreateObject("WScript.Network") 
    WshNetwork.MapNetworkDrive "R:", "\\srvcc02\Projetos"
    WshNetwork.MapNetworkDrive "S:", \\srvcc01\Sa "
    WshNetwork.MapNetworkDrive "T:", "\\srvcc02\Prospect"
    WshNetwork.MapNetworkDrive "U:", "\\srvcc01\Users"

     

    quinta-feira, 28 de fevereiro de 2008 16:36
  • Esse script poderá ajudar , vc pode excluir quantos mapeamentos vc quiser , basta aumentar seu codigo apartir da sintaxe abaixo :

    Set objNetwork = CreateObject("Wscript.Network")
    objNetwork.RemoveNetworkDrive "X:", True, True

    Set objNetwork = CreateObject("Wscript.Network")
    objNetwork.RemoveNetworkDrive "Y:", True, True

     

     


    Denis Faustino
    quarta-feira, 6 de julho de 2011 03:48