Mapp network drives with user group membership

I would like to map drives based on group membership. I have tried the following but get an error on line 21 Char: 1 error: The specified domain either does not exist or could not be contacted. code:8007054B Source:(null)


Const IT = "cn=it"
Const CORPORATE = "cn=corporate"
Const SERVICES = "cn=services"
Const UNIVERSITY = "cn=university"

' ======================================================
' MAP HOME DRIVE H:
' ======================================================

Set wshNetwork = CreateObject("WScript.Network")
wshNetwork.MapNetworkDrive "h:", "\\pways50-fs1\Profiles\" & wshNetwork.UserName



' ======================================================
' COMPILE USER GROUP MEMBERSHIPS
' ======================================================

set ADSysInfo = CreateObject("ADSystemInfo")
set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
if IsArray(CurrentUser.MemberOf) then
strGroups = LCase(Join(CurrentUser.MemberOf))
' else
'strGroups = LCase(CurrentUser.MemberOf)
end if
'set ADSysInfo = nothing
'set CurrentUser = nothing

' ======================================================
' MAP DRIVES
' ======================================================
If InStr(strGroups, IT) Then

wshNetwork.MapNetworkDrive "i:", "\\pways50-fs1\IT"
'

ElseIf InStr(strGroups, CORPORATE) Then

wshNetwork.MapNetworkDrive "x:", "\\pways50-fs1\corporate"

ElseIf InStr(strGroups, SERVICES) Then

wshNetwork.MapNetworkDrive "s:", "\\pways50-fs1\services"

ElseIf InStr(strGroups, UNIVERSITY) Then

wshNetwork.MapNetworkDrive "u:", "\\pways50-fs1\university"

End If

WScript.Echo "Script is complete."


Two objects for this project. 1) I would like one script to map network drives for my users. 2) After 8 hours i lose my connection to the server. I can either log back in or remap the drives. However i can not map the drives with the user that is logged in. i have to use the administrator account and password for the server.

Sorry for the log post.
thanks for your help.
nkeeverAsked:
Who is Participating?
 
dasmcseConnect With a Mentor Commented:
On error resume next doesn't skip a line, it just contines to run the script if an error occurs. A error occurs in your script if a network drive is already mapped and you try to map it again. I went through the trouble of setting up a domain controller in a virtual machine and tested your script. It works.
0
 
dasmcseCommented:
To fix the error, try changing the line
set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

to

set CurrentUser = GetObject("GC://" & ADSysInfo.UserName)
0
 
nkeeverAuthor Commented:
Thanks for the reply. However i get the same error?
0
Cloud Class® Course: SQL Server Core 2016

This course will introduce you to SQL Server Core 2016, as well as teach you about SSMS, data tools, installation, server configuration, using Management Studio, and writing and executing queries.

 
dasmcseCommented:
Add the following line to the beginning of the script.

on error resume next
0
 
nkeeverAuthor Commented:
So if i resume on error and skip the command to set my currentUser how will the strGroups command work?
0
 
nkeeverAuthor Commented:
Ok so maybe my domain is not set up correctly. I am able to get the first drive mapped (wshNetwork.MapNetworkDrive "h:", "\\pways50-fs1\Profiles\" & wshNetwork.UserName) but not the other drives.  the user i am using is only a member for the IT group.

0
 
nkeeverAuthor Commented:
Thanks for your help dasmcse. I needed to have a DNS server installed to run my script.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.