拆分数组并获得某个位置

Question

我想获取当前计算机的可分辨名称。有效：

Dim objSysInfo, objComp, arr, UCID 
Set objSysInfo = CreateObject("ADSystemInfo")

' Current computer
Set objComp = GetObject("LDAP://" & objSysInfo.ComputerName)


DN = objComp.distinguishedName

但我只想在新变量中保存一部分专有名称。

例如：识别名是“OU=X, OU=Y, OU=THAT, DC=A, DC=B, DC=C”

我只需要 "THAT" 作为我的变量。它总是在从右边开始的第四个位置。

我该怎么做？我从这个开始...

OU= Split (DN, ",")

非常感谢！！！

Answer 1

如果您检查 documentation for Split，您将看到它 returns 一个数组（zero-based 索引）。因此，您需要在 , 上拆分并获取第三个元素（索引 2），然后在 = 上拆分该结果并获取第二个元素（索引 1）：

OU = Split(Split(DN,",")(2),"=")(1)

拆分数组并获得某个位置

Split array and get a certain position

vbscript

split

ldap

adsi