Solved

Windows 2008 VB logon script map drive by group membership

Posted on 2013-01-04

4 solutions

535 Views

Last Modified: 2013-01-08

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

Comment

Question by:serverbob

[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

Join The Community

5 Comments

LVL 17

Accepted Solution

by:Kent Dyer

Kent Dyer earned 128 total points

ID: 387451902013-01-04

I think is more what you are looking for..
http://technet.microsoft.com/en-us/magazine/2006.03.scriptingguy.aspx

HTH,

Kent

LVL 11

Assisted Solution

by:netballi

netballi earned 64 total points

ID: 387452222013-01-04

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.

LVL 17

Assisted Solution

by:Kent Dyer

Kent Dyer earned 128 total points

ID: 387452342013-01-04

This would be helpful to you..

http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/usersgroups/groups/#RetrieveADGroups.htm

HTH,

Kent

LVL 32

Assisted Solution

by:Robberbaron (robr)

Robberbaron (robr) earned 63 total points

ID: 387475602013-01-05

the scipt itself looks ok as the Join function merges all the array elements of CurrentUser.MemberOf into a single string.

Can you add

Wscript.echo strgroups

Open in new window

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

Open in new window

Author Closing Comment

by:serverbob

ID: 387545732013-01-08

Thanks everyone. Got it working!

Featured Post

Question has a verified solution.

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

Suggested Solutions

Title	# Comments	Views	Activity
Set DateTime format for a SEP Date Control Object	2	40	2017-04-25
remote desktop user rights	5	95	2017-05-04
sync 2 servers 2008	9	67	6d
NTDS CN=Infrastructure FSMORoleOwner	5	9	14h

Using VBScript to Update or Add To Microsoft's custom.dic

Article by: ltlbearand3

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…

VB Script

VBS script to start Windows Updates installation

Article by: Hector2016

If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.

Configuring Windows Server 2008 Volume Shadow Copies

Video by: Rodney

This tutorial will walk an individual through configuring a drive on a Windows Server 2008 to perform shadow copies in order to quickly recover deleted files and folders. Click on Start and then select Computer to view the available drives on the se…

Windows Server 2008 – Transferring Active Directory FSMO Roles

Video by: Rodney

This tutorial will walk an individual through the process of transferring the five major, necessary Active Directory Roles, commonly referred to as the FSMO roles to another domain controller. Log onto the new domain controller with a user account t…