Windows 创建用户列表'；VBScript中的s组和嵌套组

我在VBScript中遇到了一个问题，我的登录脚本只看到用户直接所在的组，而不是用户间接所在的嵌套组。例如，如果User1在GroupA中，而GroupA在GroupB中，则脚本无法识别User1也是GroupB的成员

Set objNetwork = WScript.CreateObject("WScript.Network")
strUserName = objNetwork.UserName
strComputerName = objNetwork.ComputerName
strUserDomain = objNetwork.UserDomain
Set objUser = GetObject("WinNT://" & strUserDomain & "/" & strUserName & ",user"
strGroupList = ""
For Each objGroup In objUser.Groups
    strGroupList = strGroupList & "[" + objGroup.Name & "] " 
    GetNested(objGroup)
Next 

GetNested的定义如下（这是从一篇关于脚本编写的文章中获得的，稍加修改）

---

感谢您的帮助

找到了我自己的答案。这里的问题似乎源于WinNT和LDAP的混合

Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

使用LDAP创建对象服务器是可行的。希望这对其他人也有帮助

Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)