Programmatically Create User Groups

I have recently come across the need to create user groups on my local machine for a current project. I have researched and come up with a straightforward VBScript file that I can use as my basis for creating many user groups on each fresh testing installation.

The code is as follows:

‘ Create Network Object
Set objNetwork = WScript.CreateObject(“WScript.Network”)

‘Set the desired group name
strGroup = “Test”

‘ Retreive the local machine name.
strComputer = objNetwork.ComputerName

Set colAccounts = GetObject(“WinNT://” & strComputer & “”)
Set objGroup = colAccounts.Create(“group”, strGroup)
objGroup.SetInfo

The above code will create a user group named “Test” when executed from a VBScript file. This code was created through the use of Microsoft TechNet – User Accounts scripting.

This code is provided to you as-is for your knowledge. I accept no liability in your use of this code.