出来ます。以下でどうぞ。
------------------------------------------------------------------
Set objDC = GetObject("WinNT://SERVER")
dim a,b,c
dim strUserInfo
objDC.Filter = Array("user")
for each a in objDC
Set objUser = objDC.getObject("user",a.name)
strUserInfo = strUserInfo & a.name & vbTab & vbTab
strUserInfo = strUserInfo & objUser.Get("FullName") & vbTab
strUserInfo = strUserInfo & objUser.Get("Description") & vbTab
Set objUser = a.Groups
for each c in objUser
strUserInfo = strUserInfo & c.name & vbTab
next
strUserInfo = strUserInfo & vbCrlf
next
WScript.echo strUserInfo
お礼
コードまで貼っていただきありがとうございます。 ADSIはよくわからなかったりします・・・ 質問で情報が1つ抜けていました(^^;;;;;;; ログインしているユーザーはドメインのユーザーでして、そのユーザーが どのローカルグループに所属しているかということを調べたかったのです。 DOMAIN\DOMUSRの所属グループ一覧はADSIで参照できるのでしょうか?