Hey, Scripting Guy! DN を finance.fabrikam.com/Users という形式に変換する方法はありますか

あれ？なんかちがくね？
オレの求めてるものと違う・・・。

てわけで。

On Error Resume Next 
 
Set objSysInfo = CreateObject("ADSystemInfo") 
 
strUser = objSysInfo.UserName 

Set objUser = GetObject("LDAP://" & strUser) 

strDN = objUser.distinguishedName 
 
arrDN = Split(strDN, ",") 

redim arrType(UBound(arrDN))
 
For i = 0 to UBound(arrDN) 
    intLength = Len(arrDN(i)) 
    intCounter = intLength - 3 
    arrType(i) = Left(arrDn(i), 2)
    arrDN(i) = Right(arrDn(i), intLength - 3) 
Next 

For i = 0 to UBound(arrType)
	if arrType(i) <> "DC" then
		strNewName = "/" & arrDN(i) &  strNewName  
	else
		if strDomainName = Empty then
			strDomainName = arrDN(i) 
		else
			strDomainName = strDomainName & "." & arrDN(i) 
		end if
	end if
next

strNewName =strDomainName & strNewName 

Wscript.Echo strNewName