Mindre problem med logon script

Mit proglem er at alle brugere for mappet drevet, og ikke kun den gruppe jeg har defineret.


Scriptet:

On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" &objSysInfo.UserName)
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
Set objGroup = GetObject

("LDAP://cn=administration,dc=MYDOMAIN,dc=local")
if objGroup.IsMember(objUser.ADSPath) = true then
wscript.echo ("Bruger findes i gruppe" & objGroup.ADsPath)
set oNetwork = CreateObject("Wscript.Network")
oNetWork.RemoveNetworkDrive "r:",true,true
oNetWork.MapNetworkDrive "r:", "\\MYSERVER\administration"

oNetWork.AddWindowsPrinterConnection("\\MYSERVER\HPcolorL")
oNetWork.AddWindowsPrinterConnection("\\MYSERVER\BrotherH2")
oNetWork.SetDefaultPrinter "\\MYSERVER\HPColorL"
end if


Håber at der er nogen der kan se hvad jeg har lavet forkert. :)