search for: strgroup

...et objSysInfo = CreateObject("ADSystemInfo") Set objNetwork = CreateObject("Wscript.Network") strUserPath = "LDAP://" & objSysInfo.UserName Set objUser = GetObject(strUserPath) objNetwork.MapNetworkDrive "Z:", "\\10.100.1.128\Public" For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN Select Case strGroupName Case "HR" objNetwork.MapNetworkDrive "N:", "\\10.100.1.128\HR"...

......") ;************************************************************************* *********** ;**************************** USER DEFINED FUNCTIONS ******************************** ;************************************************************************* *********** FUNCTION ISINGROUP($strGroup) ; Quick, surefire way of testing if user is member of a group ; Avoids use of untested possible alternative of LDAP via RPC ; Needs a directory named after each group under netlogon directory, ; with chmod 750, owner root, group = name of dir and withn each d...