VBA script to list users/groups in AD

Script 1: Drop down list having all groups -> Pick one group -> List all users (Con: skip groups)

Script 2: Enter group name -> List all users/groups (Con: have to enter group name)

What I did: copy those 2 above, edit here and there. Now: drop down list having all groups -> pick one group -> list all users and groups in 1 excel file (Name, ID, Department, Type (User/Group), Email).

Not known if it’s correct :D. And there are bugs. Anyway I’m happy today hic hic. Many thanks to those who wrote (1) and (2).

More reference:

(1) DocumentGroups.vbs by Richard L. Mueller: Outputs group name, type of group, all members, and types of member, Lists all groups that are members, but does not list the nested group membership. Run at cmd.

(2) Mr Robeto Group Editor: Soft that lists all groups, then all members (users/groups) of a chosen group

(3) WiseSoft_Groups_And_Group_Members_Report.csv: Lists all groups and members (user/group) into excel, with other info (“””Group Type””,””Group””,””Group Path””,””Member Type””,””Member””,””Member Path”””)

5 January, 2011 at 9:00 pm Leave a comment

year-end~

Tổng kết một năm có lẽ là nhiều biến động nhất của mình.

6 tháng đầu năm. Hờ, vẫn dở hơi tiếc nhớ vài điều cũng chả rõ là cái gì. Tốt nghiệp cùi bắp, hên là … tìm được việc làm. Thuê được nhà tốt. Những tháng lương đầu tiên thật tuyệt vời.

6 tháng cuối năm. Im lặng là khi có quá nhiều điều để nói. Mua vài cuốn sách mà cũng chẳng phải cho mình. Muốn nuôi một con cún nhỏ, tất nhiên là không thể. Điệu hơn. Có khi mua sắm quá lố. Về nhà, tha qua chà bông, tôm thịt, và những câu trả lời. Đúng những câu trả lời mình cần mới thật hay, khà. Càng thấy thời gian là câu trả lời kỳ diệu nhất.

Sinh nhật cũng qua rồi. Già quá. May là vẫn còn rất nhiều thời gian cho những việc vơ vẩn, như viết blog như thế này.

If you can spend a perfectly useless afternoon in a perfectly useless manner, you have learned how to live. Lin Yutang

Nếu cần một câu gì đó để nhớ về năm 2010, chắc sẽ chọn câu này: “Take care”. Đang cười, rất vui vẻ đây nè :).

30 December, 2010 at 10:00 am Leave a comment

Not known

Emperor Liang (or Wu Ti) was a devout Buddhist who asked Bodhidharma, “What merit have I achieved through my good works?”
“None whatsoever, ” was the reply.
“What is then is the essence of Buddhism?”
“Vast emptiness, nothing holy.”
“Who addresses me in such a fashion?” asked the infuriated emperor.
“Not known,” was the reply.

– from 1001 Pearls of Buddhist Wisdom

10 December, 2010 at 5:42 pm Leave a comment

VBS – Avoid command windows popping up

Problem: want to use objShell.Exec instead of objShell.Run yet avoid “flashing” command windows.

Solved: Create Click_me.cmd which contains cscript myScript.vbs

Author’s explanation

I am so grateful.

6 December, 2010 at 9:38 pm Leave a comment

bxAutoZip

Integrated to MS Outlook, it auto-zips all attachment(s) you send out. Intro-ed by Jeremy. I find it quite useful! ^.^

*** I upload it here ***

26 November, 2010 at 1:58 pm Leave a comment

Older Posts Newer Posts


March 2026
M T W T F S S
 1
2345678
9101112131415
16171819202122
23242526272829
3031