全グループに所属するアカウント・グループを一括表示@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
Popularity: 3%
トラックバック URI : http://pnpk.net/cms/archives/345/trackback/
コメント (0)
