'Function: TransLDAP
'Arguments:
'Description:
'-----------------------------------------------------------------------------
Function TransLDAP(Domain,Obj)

DIM message
DIM adsNameTranslate
DIM ObjDN

CONST LOCATION = "TRANSLDAP"

ON ERROR RESUME NEXT

' writelog LOCATION, "Start " & LOCATION

' writelog LOCATION,"Translate: " obj & "@" domain

' Use NameTranslate to look up the computer in the directory
Set adsNameTranslate = CreateObject("NameTranslate")
adsNameTranslate.Init ADS_NAME_INITTYPE_GC, vbNullString

' Set the user name into nametranslate
' Specify unknown format, so that system will guess
' adsNameTranslate.Set ADS_NAME_TYPE_UNKNOWN, Domain & "\" & Obj
adsNameTranslate.Set ADS_NAME_TYPE_UNKNOWN, obj & "@" & Domain

' Get the DN of the object
ObjDN = adsNameTranslate.Get(ADS_NAME_TYPE_1779)

If ObjDN = "" then
' sendlog = true
message = "****************** ObjDN is Null for: " & obj & "@" & domain
TransLDAP = ""
writelog LOCATION, message
Else
message = "ObjDN: " & ObjDN
TransLDAP = "LDAP://" & ObjDN
End if

set adsNameTranslate = nothing

' Writelog LOCATION, "End " & LOCATION

End Function


_____________--

SO then later he can call the function like this
strAdsComputer = TransLDAP(strCompDomain,wshComputerName & "$")
and
TransLDAP(Group_Domain,group)
strAdsMember = TransLDAP(AdsMemberDomain,AdsMember.Name)

Thanks in advance.