# From the book "Active Directory, Third Edition" 
# ISBN: 0-596-10173-2

use Win32::OLE;

use strict;

my ($objDomain, $objGroup, $objComputer);

# Creating a group in a Windows NT domain
$objDomain = Win32::OLE->GetObject('WinNT://MYDOMAIN');
$objGroup = $objDomain->Create('group', 'MyGroup');
$objGroup->SetInfo();

# Creating a local group on a computer or member server

# Valid for Windows NT, Windows 2000 and Windows Server 2003
$objComputer = Win32::OLE->GetObject('WinNT://MYCOMPUTER');
$objGroup = $objComputer->Create('group', 'My Group');
$objGroup->SetInfo();

# Creating a group in Active Directory
$objDomain = Win32::OLE->GetObject('LDAP://cn=Users,dc=mycorp,dc=com');
$objGroup = $objDomain->Create('group', 'cn=My Group');
$objGroup->Put('sAMAccountName', 'MyGroup');
$objGroup->SetInfo();