全グループに所属するアカウント・グループを一括表示@VBS

ActiveDirectory内のすべてグループに属しているアカウント・グループを表示します。

strDomain = "pnpk.local"

は実際に使っているドメイン名で置き換えてください。

Dim strDomain
strDomain = "pnpk.local"
Call PullAllGroups(strDomain)
'ドメイン内の全てのグループを摘出
Sub PullAllGroups(strDomain)
    Dim Computer
    Dim Group
    Set Computer = GetObject("WinNT://" & strDomain)
    Computer.Filter = Array("Group")
    For Each Group in Computer
    call PullAllUserFromGroup(strDomain,Group.Name)
    Next
End Sub
'グループ内のメンバーを摘出
Sub PullAllUserFromGroup(strDomain,strGroup)
    Dim Group
    Dim User
    Set Group = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")
    
    Wscript.echo "■" & strGroup & "のメンバー一覧"
    For Each User in Group.Members
        Wscript.Echo User.Name
    Next
End Sub

参考URL
http://www.15seconds.com/issue/020130.htm

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です