Option Explicit

' ADS_NAME_INITTYPE_ENUM
Const ADS_NAME_INITTYPE_DOMAIN                =  1
Const ADS_NAME_INITTYPE_SERVER                =  2
Const ADS_NAME_INITTYPE_GC                    =  3

' ADS_NAME_TYPE_ENUM
Const ADS_NAME_TYPE_1779                      =  1
Const ADS_NAME_TYPE_CANONICAL                 =  2
Const ADS_NAME_TYPE_NT4                       =  3
Const ADS_NAME_TYPE_DISPLAY                   =  4
Const ADS_NAME_TYPE_DOMAIN_SIMPLE             =  5
Const ADS_NAME_TYPE_ENTERPRISE_SIMPLE         =  6
Const ADS_NAME_TYPE_GUID                      =  7
Const ADS_NAME_TYPE_UNKNOWN                   =  8
Const ADS_NAME_TYPE_USER_PRINCIPAL_NAME       =  9
Const ADS_NAME_TYPE_CANONICAL_EX              = 10
Const ADS_NAME_TYPE_SERVICE_PRINCIPAL_NAME    = 11
Const ADS_NAME_TYPE_SID_OR_SID_HISTORY_NAME   = 12


Dim strWinNT_Domain
Dim strWinNT_UserName

Dim strLDAP_UserName

Dim objNameTranslate


strWinNT_Domain   = "Domain"
strWinNT_UserName = "UserName"

With WScript.CreateObject("NameTranslate")
    .Init ADS_NAME_INITTYPE_GC, ""
    .Set  ADS_NAME_TYPE_NT4, strWinNT_Domain & "\" & strWinNT_UserName
    strLDAP_UserName = Replace(.Get(ADS_NAME_TYPE_1779), "/", "\/")
End With

WScript.Echo strLDAP_UserName

'Const ADS_PROPERTY_APPEND = 3
'…
'objGroup.SetInfo

WScript.Quit 0

Visual Basic

Const ADS_PROPERTY_APPEND = 3
 
Set objGroup = GetObject _
    ("LDAP://cn=Atl-Users,cn=Users,dc=NA,dc=fabrikam,dc=com")
objGroup.PutEx ADS_PROPERTY_APPEND, _
    "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objGroup.SetInfo