Problem getting 1 mapped network drive to showup

[Toasterleavins]

Hi all

I recently started modifying a VBS logon script for use in my company but im having a weird problem i cant solve regarding the drive mappings. All of the drives i want to map, work correctly except for 1. I cant seem to find any differences between the ones that work and the one that doesnt. It just doesnt show up after a logon. If i map it manually, it works fine. Its probably something stupid, but i am about to start pulling my hair out. Any help is greatly apprecaited. The drive that will not show up is the HR drive (M). Here is the code from the script i am trying to use:

'================================================= =======================================
' Logon Script
'================================================= =======================================
Set objNetwork = CreateObject("WScript.Network")
Set objPrinters = objNetwork.EnumPrinterConnections
Set objShell = CreateObject("Shell.Application")
Set objCMDShell = CreateObject("WScript.Shell")
Set objDrives = objNetwork.EnumNetworkDrives
Set objFSO = CreateObject("Scripting.FileSystemObject")


'-------------------------------------------------------------------
' System Variables
'-------------------------------------------------------------------
strUserName = UCASE(objNetwork.Username)
strComputerName = UCASE(objNetwork.ComputerName)
strLogonServer = UCASE(objCMDShell.ExpandEnvironmentStrings("%LOGON SERVER%"))
strDC = "RRADC1"


'-------------------------------------------------------------------
' Synch time to domain controller
'-------------------------------------------------------------------
objCMDShell.Run "%COMSPEC% /c NET TIME \\" & strDC & " /set /y",0,TRUE
'objCMDShell.Run "\\192.168.0.16\Citrixplugin\CitrixOnlinePluginFul l.exe /silent ENABLE_SSON=" & Q & "Yes" & Q & " SERVER_LOCATION=" & Q & "https://login.ndrhost.com/pnagent/silversearch/config.xml" & Q


'-------------------------------------------------------------------
' This add on will rename the My Computer icon with the Computer Name
'-------------------------------------------------------------------
MCPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
objCMDShell.RegWrite MCPath & "\", strComputerName, "REG_SZ"


'--------------------------------------------
' List Network Drives
'--------------------------------------------
'--Letters-----------------------------------
Rdrive = "R:"
Udrive = "U:"
Hdrive = "H:"
Sdrive = "S:"
Idrive = "I:"
Gdrive = "G:"
Kdrive = "K:"
Mdrive = "M:"


'--Paths-------------------------------------
Rpath = "\\*****\Company"
Upath = "\\*****\users\" & strUserName
Hpath = "\\*****\doccontrol"
Spath = "\\*****\autopol"
Ipath = "\\*****\Engineer"
Gpath = "\\*****\Service"
Kpath = "\\*****\Company\Acct"
Mpath = "\\*****\Company\HR"


'--Names-------------------------------------
Rname = "Company"
Uname = strUserName & "'s Drive"
Hname = "doccontrol"
Sname = "autopol"
Iname = "Engineer"
Gname = "Service"
Kname = "Acct"
Mpath = "HR"


'--------------------------------------------
' Remove all network drives
'--------------------------------------------
On Error Resume Next
For Each strDrive in objDrives
objNetwork.RemoveNetworkDrive strDrive,TRUE,TRUE
Next


'--------------------------------------------
' List Network Printers
'--------------------------------------------
printer01 = "\\**\Service_Refract"
printer02 = "\\**\Sales_Color_LJ2025"
printer03 = "\\**\QCP1320"
printer04 = "\\**\purch_stock"
printer05 = "\\**\LexmarkM412"
printer06 = "\\**\Laserjet5100"
printer07 = "\\**\GrowthPower_Laser"
printer08 = "\\**\DocLaser"
printer09 = "\\**\Autopol_FTC_Laser"
printer10 = "\\**\6250DP"
printer11 = "\\**\stockroom"


'================================================= =======================================
' START ---- Drive and Printer logic
'================================================= =======================================
On Error Resume Next


If IsMember("*** Share") = -1 Then
MapNetworkDrive Rdrive, Rpath, Rname
MapNetworkDrive Udrive, Upath, Uname
MapNetworkDrive Ndrive, Npath, Nname
MapNetworkDrive Sdrive, Spath, Sname
End If


If IsMember("Accounting Share") = -1 Then
MapNetworkDrive Rdrive, Rpath, Rname
MapNetworkDrive Udrive, Upath, Uname
MapNetworkDrive Ndrive, Npath, Nname
MapNetworkDrive Sdrive, Spath, Sname
MapNetworkDrive Kdrive, Kpath, Kname
End If


If IsMember("HR Share") = -1 Then
MapNetworkDrive Rdrive, Rpath, Rname
MapNetworkDrive Udrive, Upath, Uname
MapNetworkDrive Ndrive, Npath, Nname
MapNetworkDrive Sdrive, Spath, Sname
MapNetworkDrive Mdrive, Mpath, Mname
End If


If IsMember("Engineer Share") = -1 Then
MapNetworkDrive Rdrive, Rpath, Rname
MapNetworkDrive Udrive, Upath, Uname
MapNetworkDrive Ndrive, Npath, Nname
MapNetworkDrive Sdrive, Spath, Sname
MapNetworkDrive Tdrive, Tpath, Tname
MapNetworkDrive Wdrive, Wpath, Wname
End If


If IsMember("Service Share") = -1 Then
MapNetworkDrive Rdrive, Rpath, Rname
MapNetworkDrive Udrive, Upath, Uname
MapNetworkDrive Ndrive, Npath, Nname
MapNetworkDrive Sdrive, Spath, Sname
MapNetworkDrive Pdrive, Ppath, Pname
End If


If IsMember("Mobile Share") = -1 Then
MapNetworkDrive Udrive, Upath, Uname
MapNetworkDrive Pdrive, Ppath, Pname
MapNetworkDrive Ndrive, Npath, Nname
MapNetworkDrive Sdrive, Spath, Sname
End If


If IsMember("Density Share") = -1 Then
MapNetworkDrive Rdrive, Rpath, Rname
MapNetworkDrive Udrive, Upath, Uname
MapNetworkDrive Sdrive, Spath, Sname
End If


objNetwork.AddWindowsPrinterConnection printer01
objNetwork.AddWindowsPrinterConnection printer02
objNetwork.AddWindowsPrinterConnection printer03
objNetwork.AddWindowsPrinterConnection printer04
objNetwork.AddWindowsPrinterConnection printer05
objNetwork.AddWindowsPrinterConnection printer06
objNetwork.AddWindowsPrinterConnection printer07
objNetwork.AddWindowsPrinterConnection printer08
objNetwork.AddWindowsPrinterConnection printer09
objNetwork.AddWindowsPrinterConnection printer10
objNetwork.AddWindowsPrinterConnection printer11
'objNetwork.SetDefaultPrinter printer01




'================================================= =======================================
' END ---- Drive and Printer logic
'================================================= =======================================


'------------------------------------------------------------
' Drive Mapping Function
'------------------------------------------------------------
Private Function MapNetworkDrive(driveLetter,drivePath,driveName)
objNetwork.MapNetworkDrive driveLetter, drivePath
objShell.NameSpace(driveLetter & "\").Self.Name = driveName
End Function


'------------------------------------------------------------
' Check Group Membership Function
'------------------------------------------------------------
Private Function IsMember(groupName)


Set netObj = CreateObject("WScript.Network")
domain = netObj.UserDomain
user = netObj.UserName
flgIsMember = false


Set userObj = GetObject("WinNT://" & domain & "/" & user & ",user")


For Each grp In userObj.Groups
If grp.Name = groupName Then
flgIsMember = true
Exit For
End If
Next


IsMember = flgIsMember


Set userObj = nothing
Set netObj = nothing


End Function

[Windy12]

Hi,

Is "HR Share" a member of the right group?
You could put a messagebox in the code to show the variable "Ismember" when it tries to map the "HR Share".
If it is a member of the group, "Ismember" should be true, else its false and therefore won't map the drive