re: How Can I Find All the Drives Mapped to a Share and Remap Them?

Robert Sampson — Tue, 13 Sep 2011 01:28:40 GMT

You can use this code to remap a share from one server to a share of the same name on another server.

On Error Resume Next

strOldServer = "server1"

strNewServer = "server2"

Set objNetwork = CreateObject("Wscript.Network")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set colDrives = objNetwork.EnumNetworkDrives

For i = 0 to colDrives.Count-1 Step 2

strThisServer = Left(Mid(colDrives.Item(i + 1), 3), InStr(Mid(colDrives.Item(i + 1), 3), "\") - 1)

If LCase(strThisServer) = LCase(strOldServer) Then

strDriveLetter = colDrives.Item(i)

strNewPath = "\\" & strNewServer & "\" & Mid(colDrives.Item(i + 1), Len("\\" & strOldServer & "\") + 1)

If objFSO.FolderExists(strNewPath) = True Then

objNetwork.RemoveNetworkDrive strDriveLetter

objNetwork.MapNetworkDrive strDriveLetter, strNewPath

End If

GregR — Fri, 12 Aug 2011 15:26:14 GMT

Any chance you can post how to remap any share on server1 to any similarly named share on server2? This is exactly what I need to do. :)

Thanks!