Vbscript 如何查找给定GPO的GUID'；她叫什么名字？

有人知道使用VBScript查找给定名称的特定GPO的GUID的方法吗？我见过很多从GUID到GPO的例子，但不是相反。

使用LDAP查询筛选给定的显示名称。GPO的

name

属性包含GUID

displayName = "..."

domain = GetObject("LDAP://rootDSE").Get("defaultNamingContext")

Set cn = CreateObject("ADODB.Connection")
cn.Provider = "ADsDSOObject"
cn.Open "Active Directory Provider"

Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection = cn
cmd.CommandText = "SELECT name " & _
                  "FROM 'LDAP://CN=Policies,CN=System," & domain & "' " & _
                  "WHERE objectClass = 'groupPolicyContainer' AND " & _
                  "displayName = '" & displayName & "'"

Set rs = cmd.Execute
Do Until rs.EOF
  WScript.Echo rs.Fields("name").Value
  rs.MoveNext
Loop