All pastes #470058 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-05-04 01:09 UTC
rendered paste body
Dim StrPrefix
Dim StrContainer
Dim StrSuffix
Dim StrFQDN
StrPrefix = "(""LDAP://cn="
StrContainer = StrOffice
StrSuffix = ",ou=Temp,dc=primaryt,dc=co,dc=uk"")"
StrFQDN = StrPrefix & StrContainer & StrSuffix


'''' This works but only manualy - lets try insert a variable
'Set objGroup = GetObject _
'    ("LDAP://cn=test1,ou=Temp,dc=primaryt,dc=co,dc=uk")
'objGroup.Add(objUser.ADsPath)

'''' This is it with a variable inserted yet it still doesnt work?!?
Set objGroup = GetObject _
    & StrFQDN
objGroup.Add(objUser.ADsPath)