VB Script to check if someone is member of a group then map a drive if they are?

[Sam_Brown]

Is there an easy way to do this at all?!?!

 

Want to create a new single logon script instead of using the 20 we have at the moment. Want to map drives depending on what groups they are members of.

 

Is there an easy way to do this?!?!

 

Hope you can help!

[MYK-IT]

A GUI based alternative is Group Policy Preferences (GPP) that can do this for you...

 

Works with Server 2003 upwards...

Windows XP with update patch, or Windows 7 upwards...

 

Just need a Windows 7 Client to configure the GPP within your Group Policies.

[bytejunkie]

pretty universal login script here...

' Get current username
strUser = ""
Do While strUser = ""
   strUser = objNetwork.UserName
   WScript.Sleep 100
Loop


set objUser = GetObject("WinNT://CORPORATE/" & strUser &",User")


' Enumerate Group Membership
strGroups = ";"
For Each objGroup In objUser.Groups
  strGroups = strGroups & objGroup.Name & ";"
Next


' the command
MapGroup "Training", "T:", "\\SAN\Group$\Training"


' Uses the MapDrive function to map a network drive for a particular user group.
'
Sub MapGroup(strGPName, strDrive, strShare)
  Const vbTextCompare = 1
  If InStr(1, strGroups, strGPName, vbTextCompare) > 0 Then
  MapDrive strDrive, strShare
  End If
End Sub

Edited May 7, 2013 by bytejunkie

[localzuk]

This is the script I created a little while ago - Simple drive mapping and printer deployment - Script Center - Spiceworks

[Marshall_IT]

We use Group Policy to Map drives based on Group membership.