vbscript基于Active directory中成员资格组的条件语句

我使用vbscript通过环境中的客户端文件夹自动启动internet explorer windows。我们刚刚引入了一个新系统来管理我们的登录，自动启动是基于该系统中的计算机策略。它只能运行特定的计算机策略。所以我的想法是添加一个条件语句。如果一个用户记录查询广告，如果他们属于此组，则启动此窗口，否则启动我们已经启动的窗口。我有通过vbscipt创建和启动网站的代码，我要找的是用于查询广告的脚本，以及基于组成员发布的windows else启动正常网站的脚本。该系统称为Impriva。

此脚本可能会执行您想要的操作：

strGroup = "GroupName"
Set objNetwork = CreateObject("WScript.Network")
strDomain = objNetwork.UserDomain
strUser = objNetwork.UserName
Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser)

Dim found
found = false
For Each objGroup In objUser.Groups
    If StrComp(objGroup.Name, strGroup, 1) = 0 Then
         found = true
         Exit For
    End If
Next

' use the found variable to decide what to do

只需将GroupName更改为您要查找的组

---

然而，Morbo的评论很重要，因为如果你关心间接成员身份，你必须反复查看所有找到的组，看看其中是否有人或他们所属的组等是否是你关心的组的成员。

如果这有助于用户始终是组的直接成员，则该系统称为Impriva，或者，是否可能是间接的，即某个子组的成员，而该子组本身就是您所关注的组的成员