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("%LOGONSERVER%"))

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\CitrixOnlinePluginFull.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\Explorer\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

Edited November 15, 2012 by Toasterleavins

[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