Question

我正在尝试从AD组的Notes字段中检索自动生成的信息，并从中获取特定值。我能够找到我需要的组并使用Get（“Info”）提取数据，但我仍然坚持如何从中得到我需要的东西。以下是我将要看到的一个例子：

Value1=True
Value2=name@domain.org
Value3=Something Else

我需要做的是找到Value2并将其放入变量中。我以前用文本文件做过这个，但这看起来有点不同而且我很难过。

编辑：要清楚，这是基本代码：

Set objGroup = GetObject("LDAP://cn=Group Name,ou=Groups,dc=domain,dc=org")
wscript.echo objGroup.Get("Info")

这将返回上面的例子。我需要从中找到“Value2”并将其值（在本例中为“name@domain.org”）放入一个新变量中。

Answer 1

您可以像以下一样为变量赋值：

Value3 = Get("info")

Answer 2

未测试：

For Each v In Split(objGroup.Get("Info"), vbNewLine)
  If LCase(Left(v, 6)) = "value2" Then
    a = Split(v, "=", 2)
    If UBound(a) = 1 Then var = Trim(a(1))
  End If
Next

VBScript：从对象属性中检索值

2 个答案: