Usando VBscript e EnumNetworkDrives, como posso instruir nosso script de login para NÃO excluir um mapeamento de letra de unidade e remover o restante em cada login?

Question

Eu tenho trabalhado em adicionar algumas novas partes a um script de login já existente usando o VBscript. Gostaria de usar o código abaixo para apagar todos os mapeamentos de unidade no login.

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set clDrives = WshNetwork.EnumNetworkDrives

For i = 0 To clDrives.Count -1 Step 2

    WshNetwork.RemoveNetworkDrive clDrives.Item(i), True, True

Next

No entanto, gostaria de adicionar uma linha ao código que diz essencialmente: "se a letra da unidade = Z, não exclua."

Alguém por favor pode ajudar? Agradecemos antecipadamente.

    

Answer 1

Algo como isso pode estar bem?

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set clDrives = WshNetwork.EnumNetworkDrives

For i =  0 To clDrives.Count -1 Step 2

    If clDrives.Item(i) <> "Z:" Then

        WSHNetwork.RemoveNetworkDrive clDrives.Item(i), True, True

    End If

Next