Remove All Mapped Drives in VBScript

On Error Resume Next

Set objNetwork = CreateObject(“Wscript.Network”)

Set colDrives = objNetwork.EnumNetworkDrives

For i = 0 to colDrives.Count-1 Step 2
objNetwork.RemoveNetworkDrive colDrives.Item(i)
Next