Syntax:

Dim nto
const ADS_NAME_INITTYPE_SERVER = 2
const ADS_NAME_INITTYPE_DOMAIN = 1
const ADS_NAME_TYPE_1779 = 1
const ADS_NAME_TYPE_NT4 = 3

Set objNetwork = CreateObject("WScript.Network")

Do While strUser = ""
strUser = objNetwork.UserName
WScript.Sleep 100
Loop

dn = "DSHS\" & strUser
Set nto = CreateObject("NameTranslate")
nto.Init ADS_NAME_INITTYPE_DOMAIN, "YourDomain"
nto.Set ADS_NAME_TYPE_NT4, dn
result_ldap = nto.Get(ADS_NAME_TYPE_1779)

WScript.Echo "Translated name: " & result_ldap