Get a firm grasp on your IT environment when you learn Active Directory best practices with Veeam! Watch all, or choose any amount, of this three-part webinar series to improve your skills. From the basics to virtualization and backup, we got you covered.
COURSE of the MONTH
8 days, 14 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Windows 2008 VB logon script map drive by group membership
Posted on 2013-01-04
Hello,
I used a basic VB script I found on a microsoft site. The home directory part is working but the group membership mappings are not working. If anyone can tell me what Im doing wrong id appreciate it. Here is the script I used:
Const Finance_GROUP = "cn=SG_Finance"
Const IT_GROUP = "CN=SG_IT"
Set wshNetwork = CreateObject("WScript.Netw
wshNetwork.MapNetworkDrive
Set adSysInfo = CreateObject("ADSystemInfo
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.Mem
If InStr(strGroups, finance_GROUP) Then
wshNetwork.MapNetworkDrive
ElseIf InStr(strGroups, IT_GROUP) Then
wshNetwork.MapNetworkDrive
End If
I used a basic VB script I found on a microsoft site. The home directory part is working but the group membership mappings are not working. If anyone can tell me what Im doing wrong id appreciate it. Here is the script I used:
Const Finance_GROUP = "cn=SG_Finance"
Const IT_GROUP = "CN=SG_IT"
Set wshNetwork = CreateObject("WScript.Netw
wshNetwork.MapNetworkDrive
Set adSysInfo = CreateObject("ADSystemInfo
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.Mem
If InStr(strGroups, finance_GROUP) Then
wshNetwork.MapNetworkDrive
ElseIf InStr(strGroups, IT_GROUP) Then
wshNetwork.MapNetworkDrive
End If
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2
- +1
5 Comments
I think is more what you are looking for..
http://technet.microsoft.com/en-us/magazine/2006.03.scriptingguy.aspx
HTH,
Kent
http://technet.microsoft.com/en-us/magazine/2006.03.scriptingguy.aspx
HTH,
Kent
Very simple the line
"strGroups = LCase(Join(CurrentUser.Mem
StrGroups is a array value and you should be spliting the array into its different value like
StrGroups(0), StrGroups(1)......and so on and check for the appropriate group.
"strGroups = LCase(Join(CurrentUser.Mem
StrGroups is a array value and you should be spliting the array into its different value like
StrGroups(0), StrGroups(1)......and so on and check for the appropriate group.
This would be helpful to you..
http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/usersgroups/groups/#RetrieveADGroups.htm
HTH,
Kent
http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/usersgroups/groups/#RetrieveADGroups.htm
HTH,
Kent
Active today
the scipt itself looks ok as the Join function merges all the array elements of CurrentUser.MemberOf into a single string.
Can you add
May need to check that it is not empty as well.
the link provided by kent shows a different object used to get membership.
as does this... which i know works.
' **************************
Can you add
Wscript.echo strgroups
May need to check that it is not empty as well.
the link provided by kent shows a different object used to get membership.
as does this... which i know works.
' **************************
**********************
function InGroup(sGroup)
on error resume next
'Checking to see if user is in " & sGroup & " group")
set oDomGrp = GetObject("WinNT://" & sNTDomain & "/" & sGroup)
InGroup = false
if oDomGrp.isMember("WinNT://" & sNTDomain & "/" & sUserName) then
InGroup = true
else
InGroup = false
end if
end function
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
OfficeMate Freezes on login or does not load after login credentials are input.
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This tutorial will show how to push an installation of Backup Exec to an additional server in both 2012 and 2014 versions of the software.
Click on the Backup Exec button in the upper left corner. From here, select Installation and Licensing, then I…
This tutorial will walk an individual through the steps necessary to install and configure the Windows Server Backup Utility.
Directly connect an external storage device such as a USB drive, or CD\DVD burner:
If the device is a USB drive, ensure i…
Suggested Courses
Course of the Month8 days, 14 hours left to enroll
764 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.