string manipulation in vbs or vb.net

Hello

Im retriving users out from a security group in Active Directory.
The output is like the string below.

StrMember = "CN=ctxadmin,OU=ITservices,OU=RootDomain,DC=compan y,DC=com"

How can I clean the string, so it always will list only the username.
StrMember = "ctxadmin"

Thanks,

/Jesper

"Tom Lavedas" <> skrev i meddelelsen
news:504bfc02-1ca4-482f-a4b5-...
> On Nov 9, 5:57 am, "Jesper Ravn" <jesper_r...@hotmail.com> wrote:
>> Hello
>>
>> Im retriving users out from a security group in Active Directory.
>> The output is like the string below.
>>
>> StrMember = "CN=ctxadmin,OU=ITservices,OU=RootDomain,DC=compan y,DC=com"
>>
>> How can I clean the string, so it always will list only the username.
>> StrMember = "ctxadmin"
>>
>> Thanks,
>>
>> /Jesper
>
> Maybe ...
>
> StrMember =
> "CN=ctxadmin,OU=ITservices,OU=RootDomain,DC=compan y,DC=com"
> strMember=Replace(Split(strMember. ",")(0), "CN=", "", -1, 1)

Hi Tom

Thanks, for your suggestion, but the code sample fails. I also tried to
change "StrMember. " to "StrMember," without any luck.
I just ran the code in a VBScript file.

/Jesper

"Tom Lavedas" <> skrev i meddelelsen
news:a59ec48a-62f6-49dc-8ec4-...
> Sorry, I did that from memory and without testing. There is a typo
> and a missing argument (which you could have researched), but the
> concept is valid. Try this ..
>
> strMember = Replace(Split(strMember, ",")(0), "CN=", "", 1, -1, 1)

Hi Tom

Great, it's working now. Thanks a lot.

/Jesper

"Jesper Ravn" <> wrote in message
news:...
>
> "Tom Lavedas" <> skrev i meddelelsen
> news:a59ec48a-62f6-49dc-8ec4-...
>> Sorry, I did that from memory and without testing. There is a typo
>> and a missing argument (which you could have researched), but the
>> concept is valid. Try this ..
>>
>> strMember = Replace(Split(strMember, ",")(0), "CN=", "", 1, -1, 1)
>
> Hi Tom
>
> Great, it's working now. Thanks a lot.
>
> /Jesper

However, note that the result is the "Common Name" of the user, not what
most people call the username, unless the two values have been made always
the same in your environment.

The value of the "cn" attribute is the Common Name of the object. It must be
unique in the OU, but there can be several objects with the same Common Name
as long as they are in different OU's or containers. The value of the
sAMAccountName attribute is the "pre-Windows 2000 logon name" (on the
"Account" tab of ADUC). This is also referred to as the userID, username, or
NT name of the user. This must be unique in the domain.

If the cn and sAMAccountName attributes are always the same in your domain,
you can parse the Distinguished Name of the user. Otherwise, you should use
the NameTranslate object to convert the Distinguished Name into the
sAMAccountName. See this link for details:

http://www.rlmueller.net/NameTranslateFAQ.htm

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

"Richard Mueller [MVP]" <rlmueller-> skrev i
meddelelsen news:#...

> However, note that the result is the "Common Name" of the user, not what
> most people call the username, unless the two values have been made always
> the same in your environment.
>
> The value of the "cn" attribute is the Common Name of the object. It must
> be unique in the OU, but there can be several objects with the same Common
> Name as long as they are in different OU's or containers. The value of the
> sAMAccountName attribute is the "pre-Windows 2000 logon name" (on the
> "Account" tab of ADUC). This is also referred to as the userID, username,
> or NT name of the user. This must be unique in the domain.
>
> If the cn and sAMAccountName attributes are always the same in your
> domain, you can parse the Distinguished Name of the user. Otherwise, you
> should use the NameTranslate object to convert the Distinguished Name into
> the sAMAccountName. See this link for details:
>
> http://www.rlmueller.net/NameTranslateFAQ.htm

Hi Richard

Thanks for the heads up. I will take a look at your great FAQ ressource.

/Jesper

"Jesper Ravn" <> wrote in message
news:...
>
>
> "Richard Mueller [MVP]" <rlmueller-> skrev i
> meddelelsen news:#...
>
>> However, note that the result is the "Common Name" of the user, not what
>> most people call the username, unless the two values have been made
>> always the same in your environment.
>>
>> The value of the "cn" attribute is the Common Name of the object. It must
>> be unique in the OU, but there can be several objects with the same
>> Common Name as long as they are in different OU's or containers. The
>> value of the sAMAccountName attribute is the "pre-Windows 2000 logon
>> name" (on the "Account" tab of ADUC). This is also referred to as the
>> userID, username, or NT name of the user. This must be unique in the
>> domain.
>>
>> If the cn and sAMAccountName attributes are always the same in your
>> domain, you can parse the Distinguished Name of the user. Otherwise, you
>> should use the NameTranslate object to convert the Distinguished Name
>> into the sAMAccountName. See this link for details:
>>
>> http://www.rlmueller.net/NameTranslateFAQ.htm
>
> Hi Richard
>
> Thanks for the heads up. I will take a look at your great FAQ ressource.
>
> /Jesper

A quick example converting a DN into sAMAccountName:
========
Option Explicit

Dim strUserDN, objTrans, strUserName

' Constants for the NameTranslate object.
Const ADS_NAME_INITTYPE_GC = 3
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1779 = 1

' Specify user Distinguished Name.
strUserDN = "CN=ctxadmin,OU=ITservices,OU=RootDomain,DC=compan y,DC=com"

' Use the NameTranslate object to convert Distinguished Name
' into sAMAccountName.
Set objTrans = CreateObject("NameTranslate")

' Initialize NameTranslate by locating the Global Catalog.
objTrans.Init ADS_NAME_INITTYPE_GC, ""
' Use the Set method to specify the Distinguished Name of the object.
objTrans.Set ADS_NAME_TYPE_1779, strUserDN
' Use the Get method to retrieve the NT format of the name.
' This format is <NetBIOS-Domain-Name>\<sAMAccountName>
strUserName = objTrans.Get(ADS_NAME_TYPE_NT4)
' Remove NetBIOS name of domain.
strUserName = Mid(strUserName, InStr(strUserName, "\") + 1)

Wscript.Echo strUserName

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

"Richard Mueller [MVP]" <rlmueller-> skrev i
meddelelsen news:...
>
> A quick example converting a DN into sAMAccountName:
> ========
> Option Explicit
>
> Dim strUserDN, objTrans, strUserName
>
> ' Constants for the NameTranslate object.
> Const ADS_NAME_INITTYPE_GC = 3
> Const ADS_NAME_TYPE_NT4 = 3
> Const ADS_NAME_TYPE_1779 = 1
>
> ' Specify user Distinguished Name.
> strUserDN = "CN=ctxadmin,OU=ITservices,OU=RootDomain,DC=compan y,DC=com"
>
> ' Use the NameTranslate object to convert Distinguished Name
> ' into sAMAccountName.
> Set objTrans = CreateObject("NameTranslate")
>
> ' Initialize NameTranslate by locating the Global Catalog.
> objTrans.Init ADS_NAME_INITTYPE_GC, ""
> ' Use the Set method to specify the Distinguished Name of the object.
> objTrans.Set ADS_NAME_TYPE_1779, strUserDN
> ' Use the Get method to retrieve the NT format of the name.
> ' This format is <NetBIOS-Domain-Name>\<sAMAccountName>
> strUserName = objTrans.Get(ADS_NAME_TYPE_NT4)
> ' Remove NetBIOS name of domain.
> strUserName = Mid(strUserName, InStr(strUserName, "\") + 1)
>
> Wscript.Echo strUserName

Hi Richard

Nice, thanks for all your help.

/Jesper