How to use vbscript to delete map persistent drives

[Shashee]

I want to delete map persistent drives using vbscript. How would I code a vbscript for deleting of any persistent drives mapping ?

Can anyone help me providing the vbscript for How to use vbscript to delete map persistent drives ????

Please Help....!

[Katty]

Here is one of the code to do the same hope this will help you....!

Dim Network 
Set Network = CreateObject("Wscript.network") 

Network.MapNetworkDrive "D:", "\\Server1\Data" ,true
Network.MapNetworkDrive "F:","\\Server2\groups" ,true
Network.MapNetworkDrive "G:", "\\Server1\alg" ,true

[Zecho]

Among all the mapped network drives on a computer. Here's one way: At first incident summary

Set objNetwork = CreateObject("Wscript.Network")

Set colDrives = objNetwork.EnumNetworkDrives

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

[kelfro]

A time comes, if you do not need any longer an assigned net drive assembly. Perhaps you are again the allocation of drive assembly letters, or in my case I would like to make only retrogressive assigned net drive assemblies, you with the examination. A further application of this technology would be for log off script to cleans the computer purpose this registration script is to be removed, an assigned net drive assembly P: Here is the key method: objNetwork.MapNetworkDrive.

Instructions :

1. Preamble, create a mapped network drive = P: (See Below)
2. Copy and paste the main script into notepad.
3. Change the server name ALAN to the name of Your server. Check the share name = Drivers.
4. Save the file with .vbs extension e.g. RemoveDrive.vbs
5. Double click and observe drive letters in explorer. What you are looking for is the P:\ drive.
6. If you get errors, check that you have amended the object names alan or home. If you still get Code 800xxxxx message boxes, pay close attention to the commas and speech marks on the second line.

Preamble: A Script to create a mapped network drive, in preparation for the main Example.

Set objNetwork = CreateObject("WScript.Network") 
Set objShell = CreateObject("WScript.Shell") 
DriveLetter1 = "P:"
RemotePath1 = "\\alan\Drivers" 

objNetwork.MapNetworkDrive DriveLetter1, RemotePath1 
objShell.PopUp "Drive " & DriveLetter1 & " connected successfully." 

Wscript.Quit

' End of example VBScript

Source : computerperformance.co.uk