vbscript基于成员资格组的条件语句在Active目录中

Question

我使用vbscript通过我们环境中的客户端文件夹自动启动Internet Explorer窗口。我们刚刚介绍了一个管理登录的新系统，而自动启动则基于该系统中的计算机策略。它只能运行特定的计算机策略。所以我的想法是添加一个条件语句说。如果一个用户记录查询广告，如果它们是该组的一部分，则启动此窗口，否则启动我们已经启动的窗口。我有通过vbscipt创建和启动网站的代码，我正在寻找的是查询广告的脚本，并基于组成员发布，其他Windows启动正常的。该系统被称为imprivata。

Answer 1

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

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的评论很重要，因为如果您关心间接会员资格，您必须通过所有发现的群体进行递归，以查看他们中的任何群体或他们是其成员的群体是否是会员你关心的小组。