VB Drive Mappings - incorrect network label

According to : http://www.experts-exchange.com/Q_22119253.html

Try adding a "\" to the drive letter...

strDriveLetter = "H:\"

:^ )

Hi - Here is part of the code, most of it is replicated with changing of paths and groups:

WshNetwork.RemoveNetworkDrive "n:", true, true
WshNetwork.RemoveNetworkDrive "o:", true, true


''' What Group Is The User A Member Of?
''' Make Sure we start at the beginning of the string

If InStr(1, strGroups, CH_GENEVAAPT) Then
    wshNetwork.MapNetworkDrive "N:", "\\beauws1fps01\genevaapt"
    wshNetwork.MapNetworkDrive "O:", "\\beauws1fps01\allstationsch"
End if

The N: drive is always shown correctly throughout the script, its only the O: drive mapping that does this... FYI a \ after the drive letter does not work in this script.

And the first part of the script if it helps...


''' Ignore Errors
On Error Resume Next

Dim objADSysInfo
Dim objCurrentUser
Dim strGroups
Dim wshNetwork


''' Ensure All Constants are in lowercase
Const CH_GENEVAAPT     = "cn=ch genevaapt"
Const CH_ZURICHAPT      = "cn=ch zurichapt"
Const CH_KLOTENHQ        = "cn=ch klotenhq"
Const CH_ALLSTATIONS     = "cn=ch allstations"
Const AT_ELINDT      = "cn=at elindt"
Const AT_GRAZAPT        = "cn=at grazapt"
Const AT_INNSBRUCKDT        = "cn=at innsbruckdt"
Const AT_KLAGENFURTAPT        = "cn=at klagenfurtapt"
Const AT_LEASEPLANDT        = "cn=at leaseplandt"
Const AT_LINZDT        = "cn=at linzdt"
Const AT_SALZBURGAPT        = "cn=at salzburgapt"
Const AT_WEIZDT        = "cn=at weizdt"
Const AT_WELSDT        = "cn=at welsdt"
Const AT_WIENAPT        = "cn=at wienapt"
Const AT_WIENDT        = "cn=at wiendt"
Const AT_VIENNAAPT        = "cn=at viennaapt"
Const AT_VIENNADT        = "cn=at viennadt"
Const AT_ALLSTATIONS        = "cn=at allstations"
      

''' Define Objects
Set objADSysInfo = CreateObject("ADSystemInfo")
Set objCurrentUser = GetObject("LDAP://" & objADSysInfo.UserName)
Set wshNetwork = CreateObject("WScript.Network")

''' Build a string of group user is member of
If Not IsArray(objCurrentUser.MemberOf) Then
        strGroups = lcase(objCurrentUser.MemberOf)
Else
        strGroups = LCase(Join(objCurrentUser.MemberOf))
End If

It looks like it could be due to the length of the share?
I notice that N is 8 characters, but O is over that limit.

I'm not saying that there's no workaround, but can you validate this theory against another 'shorter' share?

yes, i have tried shorter shared names, around 5 characters (below the other share) and different drive letter mappings in case of registry confusion. Could this be a speed issue with the script, I.E why would N map fine and not O? is the script too long, are there rules for VB scripts mapping drives?

I don't think it has to do with the length of the script (we have some that are massive).
What were the results when using a smaller sharename?  Same results?

What if you flip-flop the mappings?  Map O first, then N?

ok i found the problem, it seems the logon script is running after the explorer interface is loading. In the Group Policy i have enabled run scripts synchronously so they run before the explorer loads.

I can now see the correct labels everytime i login.

Thanks for your answers anyhow.

Glad you got it sorted... :)