none
VBS para desconectar mapeamento ? RRS feed

  • Pergunta

  • Boa noite,
    atualmente utilizo de um .bat para desconectar todas os mapeamentos da sessão do usuário quando o mesmo faz LOGOFF.
    Porem é que, percebi que com esse .bat o LOGOFF ficou mais demorado, coisa de 30segundos até.

    Segue abaixo :
    net use e: /delete /y
    net use f: /delete /y
    net use g: /delete /y
    ....

    Alguem tem algum script VBS que faça isso ??
    Obrigado 
    quarta-feira, 13 de abril de 2011 21:24

Respostas

  • On Error Resume Next

    Set objSysInfo = CreateObject("ADSystemInfo")

    Set objNetwork = CreateObject("Wscript.Network")

    set objShell = CreateObject("WScript.Shell")

    Set wshShell = CreateObject("WScript.Shell")

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    '**** Remove as Unidades de Rede'

    objNetwork.RemoveNetworkDrive "F:", True, True

    objNetwork.RemoveNetworkDrive "G:", True, True

    objNetwork.RemoveNetworkDrive "H:", True, True


    Thomas Edson Mattos Roeder
    • Marcado como Resposta Maurício Costa sexta-feira, 15 de abril de 2011 13:00
    quinta-feira, 14 de abril de 2011 19:56

Todas as Respostas

  • On Error Resume Next

    Set objSysInfo = CreateObject("ADSystemInfo")

    Set objNetwork = CreateObject("Wscript.Network")

    set objShell = CreateObject("WScript.Shell")

    Set wshShell = CreateObject("WScript.Shell")

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    '**** Remove as Unidades de Rede'

    objNetwork.RemoveNetworkDrive "F:", True, True

    objNetwork.RemoveNetworkDrive "G:", True, True

    objNetwork.RemoveNetworkDrive "H:", True, True


    Thomas Edson Mattos Roeder
    • Marcado como Resposta Maurício Costa sexta-feira, 15 de abril de 2011 13:00
    quinta-feira, 14 de abril de 2011 19:56
  • On Error Resume Next

    Set objSysInfo = CreateObject("ADSystemInfo")

    Set objNetwork = CreateObject("Wscript.Network")

    set objShell = CreateObject("WScript.Shell")

    Set wshShell = CreateObject("WScript.Shell")

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    '**** Remove as Unidades de Rede'

    objNetwork.RemoveNetworkDrive "F:", True, True

    objNetwork.RemoveNetworkDrive "G:", True, True

    objNetwork.RemoveNetworkDrive "H:", True, True


    Thomas Edson Mattos Roeder

    Só um comentário, as linhas em negrito você não precisa.
    terça-feira, 23 de agosto de 2011 14:44
  • Usei aqui e ficou 100% somente para apagar que era o que eu queria...

    On Error Resume Next

    Set objNetwork = CreateObject("Wscript.Network")


    '**** Remove as Unidades de Rede'

    objNetwork.RemoveNetworkDrive "F:", True, True

    objNetwork.RemoveNetworkDrive "G:", True, True

    objNetwork.RemoveNetworkDrive "T:", True, True

    objNetwork.RemoveNetworkDrive "U:", True, True

    objNetwork.RemoveNetworkDrive "V:", True, True

    objNetwork.RemoveNetworkDrive "W:", True, True

    objNetwork.RemoveNetworkDrive "X:", True, True

    objNetwork.RemoveNetworkDrive "Y:", True, True

    objNetwork.RemoveNetworkDrive "Z:", True, True

    pode ser utilizado junto ao script de mapeamento, nas linhas antes de mapear roda ele, ou pode também, usar somente para apagar os mapeamentos, colocando numa GPO para executar no logoff da maquina.

     

    para usar ele desfazendo os mapeamentos e depois mapeando podem fazer assim:

     

     

    Dim objNetwork, strDrive, objShell, objUNC, strODBC, WSHSHELL
    Dim Unidade
    Unidade = "Z:"

    On Error Resume Next

    Set objNetwork = CreateObject("Wscript.Network")


    '**** Remove as Unidades de Rede'


    objNetwork.RemoveNetworkDrive "Z:", True, True


    Set WshNetwork = Wscript.CreateObject("Wscript.Network")
    WshNetwork.MapNetworkDrive "z:","\\nomedoservidor\nomedomapeamento","true"

    seguindo assim somente acrescenta as linhas e letras respectivas dos mapeamentos.

    terça-feira, 11 de fevereiro de 2014 20:47