ローカルグループ毎のアカウントの一覧

  mlist.vbs



  
cscript.exe mlist.vbs
  

mlist.vbs
  
Set groups = GetObject("WinNT://.")
groups.Filter = Array("Group")
list = ""
For Each group In groups
	list = list & "Group : " & group.Name & vbCrLf
	list = list & "-------------------------" & vbCrLf
	target = GetMemberName( group.Name )
	if target = "" then
		list = list & "メンバー無し" & vbCrLf
	else
		list = list & target
	end if
	list = list & "-------------------------" & vbCrLf
	list = list & vbCrLf
Next

Wscript.Echo list

Function GetMemberName( strGroup )

	Set users = GetObject("WinNT://.")
	ret = ""
	users.Filter = Array("User")
	For Each user In users
		For Each grp In user.Groups
			if strGroup = grp.Name then
				ret = ret & user.Name & vbCrLf
			end if
		Next
	Next
	
	GetMemberName = ret

End function 
  


↓実行結果サンプル
  
Group : Administrators
-------------------------
Administrator
lightbox
user
-------------------------

Group : Backup Operators
-------------------------
メンバー無し
-------------------------

Group : Guests
-------------------------
Guest
IUSR_NIGHT
IWAM_NIGHT
-------------------------

Group : Power Users
-------------------------
user
-------------------------

Group : Replicator
-------------------------
メンバー無し
-------------------------

Group : Users
-------------------------
ASPNET
lightbox
user
-------------------------

Group : ORA_DBA
-------------------------
Administrator
lightbox
-------------------------

Group : SQLServer2005MSSQLServerADHelperUser$NIGHT
-------------------------
メンバー無し
-------------------------

Group : SQLServer2005MSSQLUser$NIGHT$SQLEXPRESS
-------------------------
メンバー無し
-------------------------

Group : SQLServer2005SQLBrowserUser$NIGHT
-------------------------
メンバー無し
-------------------------
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ