If you want to change the way drives are named in my computer, you can incorporate this script into your logon script to give the drives friendly names
ie
Company(\\192.168.1.1\share\all)(q:)
becomes
Company(q:)
'==========================================================================
On Error Resume Next
Dim fso, ws, wn, wd, wsEnv, oApar, oW2M, strDriveLetter, sUNC, strNewNam
Set wn = CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("Wscript.Shell")
Set oShellApp = CreateObject("Shell.Application")
'Connect drive
MapTheDrive ("i:", "\\192.168.1.1\share\all\company","Company")
'==========================================================================
CleanUp
Sub CleanUp
Set wn = Nothing
Set fso = Nothing
Set ws = Nothing
Set oShellApp = Nothing
End Sub
Sub FolderNameChange (strDriveLetter, strNewName)
oShellApp.NameSpace(strDriveLetter).Self.Name = strNewName
End Sub
Sub MapTheDrive (strDriveLetter, sUNC, strNewName)
If Not fso.DriveExists (strDriveLetter) Then
wn.MapNetworkDrive strDriveLetter, sUNC
End If
FolderNameChange strDriveLetter, strNewName
If Not fso.DriveExists (strDriveLetter) Then
msgbox "Unable to connect to " & strDriveLetter & " Drive"
End If
End Sub