Solved

# Windows 2008 VB logon script map drive by group membership

Posted on 2013-01-04
533 Views
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.Network")
wshNetwork.MapNetworkDrive "h:","\\njfile\us$\" & wshNetwork.UserName Set adSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) If InStr(strGroups, finance_GROUP) Then wshNetwork.MapNetworkDrive "J:","\\njfile\finance" ElseIf InStr(strGroups, IT_GROUP) Then wshNetwork.MapNetworkDrive "J:","\\njfile\it$\"

End If
0
Question by:serverbob

LVL 17

Accepted Solution

Kent Dyer earned 128 total points
ID: 38745190
I think is more what you are looking for..
http://technet.microsoft.com/en-us/magazine/2006.03.scriptingguy.aspx

HTH,

Kent
0

LVL 11

Assisted Solution

netballi earned 64 total points
ID: 38745222
Very simple the line

"strGroups = LCase(Join(CurrentUser.MemberOf))"

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.
0

LVL 17

Assisted Solution

Kent Dyer earned 128 total points
ID: 38745234
0

LVL 32

Assisted Solution

Robberbaron (robr) earned 63 total points
ID: 38747560
the scipt itself looks ok as the Join function merges all the array elements of CurrentUser.MemberOf into a single string.

Wscript.echo strgroups

after the line that creates StrGroups to check what it's value is. ?

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

0

Author Closing Comment

ID: 38754573
Thanks everyone.  Got it working!
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
This tutorial will give a short introduction and overview of Backup Exec 2012 and how to navigate and perform basic functions. Click on the Backup Exec button in the upper left corner. From here, are global settings for the application such as conne…
This tutorial will show how to configure a new Backup Exec 2012 server and move an existing database to that server with the use of the BEUtility. Install Backup Exec 2012 on the new server and apply all of the latest hotfixes and service packs. The…