VBscript join command causing script to fail

  • Thread starter Thread starter daragh
  • Start date Start date
D

daragh

Im using VBscript to write new logon scripts, when i run
the script as any user with domain admin rights it runs
ok, but when Its run by a standard user it fail due to the
join command. i have tried giving the user local admin
rights but thats not working,

Here is a sample of the script, any help would be
appreciated:

Const FINANCE = "cn=finance"
Const HR = "cn=hr"


Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))

If InStr(strGroups, FINANCE) Then

wshNetwork.MapNetworkDrive "j:", "\\SERVER\FINANCE"

ElseIf InStr(strGroups, HR) Then

wshNetwork.MapNetworkDrive "j:", "\\SERVER\HR"

end if
 
I'm having the exact same problem with a similar script.
When I run the script as a domain admin it runs find and
returns a list of groups, when I run the script as a
domain user it returns no groups.

Here is a sample of my script (similar to yours).
'################################
Set wshNetwork = CreateObject("WScript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
Set AllDrives = WshNetwork.EnumNetworkDrives()

msgbox(ADSysInfo.UserName)

strGroups = Join(CurrentUser.MemberOf)

MyUsername = Right(CurrentUser.Name, Len(CurrentUser.Name)-
3)
msgbox(MyUsername)
msgbox(strgroups)

If InStr(strGroups, "cn=sample group") Then
wshNetwork.AddWindowsPrinterConnection "\\mchprn"
& psrv & "\laser1@3neast"
End If

(the msgbox are for troubleshooting purposes).

I checked the permissions on the domain to ensure
Authenticated Users have Read and List Contents to Group
Objects and OU's. Not sure what else to check.

If anyone can assist, I would be really grateful. We are
in the middle of a Windows 2000 rollout and it would be
much easier to map drives and printers based upon group
membership.

If course the other way to fix this problem, I told our
Security Administrator that I was going to add Domain
Users group to the Domain Admins group. (Just Kidding)

Thanks in Advance
Chris
 
Back
Top