troubleshooting Question

VBS script to remove all mapped drives

Avatar of resourcepc
resourcepc asked on
Programming
6 Comments1 Solution3511 ViewsLast Modified:
Can someone provide the script that I need to remove all mapped drives?  I have this (below), but why do I need this line:

strDriveLetter = UCase("z:" ) ' Force UPPER case
--------------------------------------------------------------------------------------

Set wshNetwork = CreateObject("WScript.Network")
On Error Resume Next
Set CheckDrive = wshNetwork.EnumNetworkDrives()
strDriveLetter = UCase("z:" ) ' Force UPPER case
Dim intdrive, bforce

bforce = true

'****Remove all mapped drives****
For intDrive = 0 To CheckDrive.Count - 1 Step 2
If CheckDrive.Item(intDrive) <> strDriveLetter Then
wshNetwork.RemoveNetworkDrive CheckDrive.Item(intDrive), bforce
End if
Next
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 6 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 6 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros