MapDrive Script Question

[pr4t3ek]

Hi,
I have the following script:

Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "X:" , "\\glbfil03\groups\Custchoice\Pratik\DailyCRMTasksDatabases"
objNetwork.MapNetworkDrive "N:" , "\\GLANW001\DATA\Data\Common\Operational Resource And Reporting\PA\Data Files"
objNetwork.MapNetworkDrive "B:" , "\\glbfil03\Groups\Custchoice\Pratik"
objNetwork.MapNetworkDrive "W:" , "\\glbfil03\groups\Custchoice\Pratik\DailyRunRateDatabases"
objNetwork.MapNetworkDrive "U:" , "\\10.216.2.31\DOS"

How i amend the code to check if the drive is already mapped and if it is then to go onto the next drive..

At the moment, if one of the drives is mapped, it doesnt map either of the other ones

[Paul]

Hi Pr4t3ek,

I haven't tried this myself, so I'm not sure it will even work, but it seemed promising. Supposedly this will unmap your drives, then remap them. Unfortunately I don't know how to check if a drive is already mapped, and if so leave it be.

Set objNetwork = CreateObject("WScript.Network")
With objNetwork
    .RemoveNetworkDrive "X:", True
    .RemoveNetworkDrive "N:", True
    .RemoveNetworkDrive "B:", True
    .RemoveNetworkDrive "W:", True
    .RemoveNetworkDrive "U:", True
    .MapNetworkDrive "X:", "\\glbfil03\groups\Custchoice\Pratik\DailyCRMTasksDatabases"
    .MapNetworkDrive "N:", "\\GLANW001\DATA\Data\Common\Operational Resource And Reporting\PA\Data Files"
    .MapNetworkDrive "B:", "\\glbfil03\Groups\Custchoice\Pratik"
    .MapNetworkDrive "W:", "\\glbfil03\groups\Custchoice\Pratik\DailyRunRateDatabases"
    .MapNetworkDrive "U:", "\\10.216.2.31\DOS"
End With

[pr4t3ek]

Hi,
It unmap's it just fine but doesn't map any of the drives

[Leith Ross]

Hello ,

Here is a script to remap the drives. The limitation is this can only be on the local network. Change \\server1\share and \\server2\share to the old and new network paths you will be using.

Set objNetwork = CreateObject("Wscript.Network")

Set colDrives = objNetwork.EnumNetworkDrives

  For i = 0 to colDrives.Count-1 Step 2
      If colDrives.Item(i + 1) = "\\server1\share" Then
          strDriveLetter = colDrives.Item(i)
          objNetwork.RemoveNetworkDrive strDriveLetter
          objNetwork.MapNetworkDrive strDriveLetter, "\\server2\share"
      End If
  Next i

Sincerely,
Leith Ross

[pr4t3ek]

Hey,
And how would i go about assigning a username + password to a drive which i want to map.

If i manually want to map a drive, i need to be logged in to the server, how can I go about this?

[pmrsed]

Why doesn't this work for Windows 7?

[AliGW]

Administrative Note:

Welcome to the forum.

Given that this thread is over ten years old, so please start a new thread where we shall be happy to help.

If you are not familiar with how to start a new thread see the FAQ: How to start a new thread