Using VBscript and EnumNetworkDrives, how can I instruct our login script to NOT delete a drive letter mapping and remove the rest upon each login

scriptingvbscript

I've been working on adding some new parts to an already existing login script using VBscript. I'd like to use the below code to erase all drive mappings on 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

However, I'd like to add a line to the code which tells it essentially, "if drive letter = Z, do not delete."

Can somebody please assist? Thanks in advance.

Best Answer

Something like this might be ok?

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
Related Topic