$a = "OU=Users,OU=Some Site,DC=somedc,DC=somedc,DC=somedc,DC=some"

; This works if you never include commas in any OU name.

$DNparts = split($a, ",")
? $DNparts[1]

$sitename = SubStr($DNparts[1], 4)
? $sitename

$SiteParts = split($sitename)

? $SiteParts[0]
? $SiteParts[1]

;Bring it altogether

$SiteParts2 = split(SubStr(split($a, ",")[1], 4))

? $SiteParts2[0]
? $SiteParts2[1]

Ok, I want to understand this as well as use it, so I hope you don't mind some teaching.

Ok I get this part. Setting the variable

Quote:

Code:


$a = "OU=Users,OU=Some Site,DC=somedc,DC=somedc,DC=somedc,DC=some"

Ok, here you are taking the variable and making it an array (I think) of it's split parts and getting "Ou=Some Site". Does the split start at zero or one? I'm guessing 0 because the second value, which is the one needed, appears to be one here.

Quote:

Code:

 
$DNparts = split($a, ",")
? $DNparts[1]

Ok, I understand what your doing here. Your taking "OU=Some Site" and stripping off the ",OU=" as represented by the "4", as in counting from left to right ",OU=" equals 4 characters.

Quote:

Code:


$sitename = SubStr($DNparts[1], 4)
? $sitename

Ok, I got this I think. This is splitting "Some Site" into "Some" and "Site"

Quote:

Code:

 
$SiteParts = split($sitename)
 
? $SiteParts[0]
? $SiteParts[1]

This seems a repeat of the section above. What am I missing here?

Quote:

Code:

 
$SiteParts2 = split(SubStr(split($a, ",")[1], 4))
 
? $SiteParts2[0]
? $SiteParts2[1]

Oh, and one further question. Let say "OU=Some Site" actually looked like this:
OU=Region1 Houston Texas
And I would need SiteParts[0] and SiteParts[1] to be reflected this way:
SiteParts[0] would equal "Region1"
SiteParts[1] would equal "Houston Texas"
Would the space in "Houston Texas" cause problems?

Thanks again for the help.

Regards
Bill

break on
$DN = 'OU=Users,OU=Region1 New York City,DC=somedc,DC=somedc,DC=somedc,DC=some'
$SS = Split(Split($DN,',DC=')[0],',OU=')[1]
$SS ?

$SS1 = Left($SS,Instr($SS,' ')-1)
$SSLeft = Right($SS,Instr($SS,' ')+1)

'SS1 = ['+$SS1+']' ?
'SSLeft = ['+$SSLeft+']' ?

$ou = GetUserOU()
$SS = Split(Split($ou,',DC=')[0],',OU=')[1]
$SS1 = Left($SS,Instr($SS,' ')-1)
$SSLeft = Right($SS,Len($SS)-Instr($SS,' '))
SET "SITE="+$SSLeft
SET "REGION="+$SS1

Function GetUserOU()
Redim $TempArray[0]
Redim $GetUserOU
$adSys = CreateObject("ADSystemInfo")
$TempArray = Split($adSys.UserName,",")
If Right($TempArray[0],1) = "\"
$Start = 2
Else
$Start = 1
EndIf

For $Counter = $Start To UBound($TempArray)
If Len($GetUserOU) = 0
$GetUserOu = $TempArray[$Counter]
Else
$GetUserOu = $GetUserOu + "," + $TempArray[$Counter]

EndIf
Next

$adSys = 0
EndFunction GetUserOU()

; Get users AD OU data by calling the getuserou function
$ou = GetUserOU()
; Take the string and split out the needed part
$SS = Split(Split($ou,',DC=')[0],',OU=')[1]
; Take the resulting string and parse left from the first space
$SS1 = Left($SS,Instr($SS,' ')-1)
;Take the string and parse right from the first space
$SSLeft = Right($SS,Len($SS)-Instr($SS,' '))
; Set the system variables
SET "SITE="+$SSLeft
SET "REGION="+$SS1

;Function GetUserOU()
;
;Author Remko Weijnen
;
;Action Returns the DN of the OU/Container which the user is placed in
;
;http://www.kixhelp.com/udfs/udf/112015.htm
;
;Returns If the DN eq CN=SomeUser,OU=SomeOU,DC=ad,DC=local
; it returns OU=SomeOU,dc=ad,dc=local
;
;
Function GetUserOU()
Redim $TempArray[0]
Redim $GetUserOU
$adSys = CreateObject("ADSystemInfo")
$TempArray = Split($adSys.UserName,",")
; Check if there's a comma in the CN, eg if the user name = "Surname, Name" AD returns "Surname\, Name"
If Right($TempArray[0],1) = "\"
$Start = 2
Else
$Start = 1
EndIf

For $Counter = $Start To UBound($TempArray)
If Len($GetUserOU) = 0
$GetUserOu = $TempArray[$Counter]
Else
$GetUserOu = $GetUserOu + "," + $TempArray[$Counter]

EndIf
Next

$adSys = 0
EndFunction GetUserOU()