Group Membership

[bbright20]

Is there a way to use VBS to remove a user from a group and add them to another? Example - I have a user name that I need administrative rights in order to set some stuff up, but rather than going through the normal motions of changing the group membership, I was wondering if it's possible to get this done in VBS.I'd like to have a prompt box that asks what user name, then another prompt box that asks for which group...then a confirmation box that says "user" was successfully changed to "group" and the group membership to be changed of course.Thanks in advance.

[bbright20]

Is there a way to use VBS to remove a user from a group and add them to another? Example - I have a user name that I need administrative rights in order to set some stuff up, but rather than going through the normal motions of changing the group membership, I was wondering if it's possible to get this done in VBS.I'd like to have a prompt box that asks what user name, then another prompt box that asks for which group...then a confirmation box that says "user" was successfully changed to "group" and the group membership to be changed of course.Thanks in advance.

[jvierra]

You ae in luck. The answer is absolutely.

Start by looking into teh "Shareing Forum" here. Search for grouop members or AD roup and you will find a number of scripts that can do most of what you are asking.

Take a crack at making the sript perform the way you like. Post back with questions if you get stuck.

Here is a link t oget you started.
http://www.scriptinganswers.com/forum2/ ... asp?FID=24

[bbright20]

Thanks jvierra - that makes perfect sense to me. It had been a very long day yesterday when I posted that...sorry for not thinking it through a little more.That being said - is there any direction you can point me in to accomplish what you have laid out?Thanks again.

[jhicks]

Here's some code to list all the groups in your domain:Set oNetwork=CreateObject("WScript.Network")Set oDomain=GetObject("WinNT://" & oNetwork.UserDomain)oDomain.Filter=Array("group")For Each oGroup In oDomain WScript.Echo oGroup.NameNext

[jhicks]

I really think you are going to need to make this an HTA to get the graphical functionality I think you are after.