trouble with MS .vbs script pulled from their website

[Homerboy]

I'm trying to append our login script to map certin drives based on a user's group membership.
I ripped down a script posted on MS's site HERE but when I login it simply doesn't map the drive. No errors no nothing.

What I have:


'****** ADD DRIVES BASED ON GROUP MEMBERSHIP ******

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN

Select Case strGroupName
Case "Managers"
objNetwork.MapNetworkDrive "X:", "\\Files\Users"

End Select
Next

 

[Gunslinger08]

Marked for tomorrow. I'll try it out at work where I have access to a real AD domain.

 

[Homerboy]

meh... don't worry about it. I just set up a small GPO that runs a special login script for the given user group that will map the drive. Its not eloquent or "right" but it serves the purpose. Thanks for the interest though. I'm sure I'll have more script questions soon enough....

Is there anywhere you suggest to read up on/learn about scripting in vbs?

 

[KB]

The script looks fine. The Case statement is case sensitive, is the Managers group the correct case?

Remove the On Error Resume next so you will get a message for any errors.

The best scripting resource is http://msdn.microsoft.com/scripting/
Here is another good one: http://cwashington.netreach.net/