Hi,
I wrote some code to get the administrators group name for the registry
by looking up the name for the SID. We could use it for
$ENV('ADMINGROUP') = get_admin_group() to modify the net localgroup add
part in the install.pl.
It's tested and works...
--- code ---
# Return the localized name of the Administrators group my mapping the
SID to a name
sub get_admin_group () {
my $binsid;
my $acct;
my $domain;
my $type;
# Using S-1-5-32-544 from the wellknown SID page
#
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q243330
# Needs to be converted to a binary SID
$binsid = pack("CCnnnVV",1,2,0,0,5,32,544);
#Get Groupname from SID
if (Win32::LookupAccountSID('',$binsid, $acct, $domain, $type))
{
#all done
}
else {
die "Unable to get Administrators group name.";
}
return $acct;
}
-------------------------------------------------------
SF.Net email is sponsored by Shop4tech.com-Lowest price on Blank Media
100pk Sonic DVD-R 4x for only $29 -100pk Sonic DVD+R for only $33
Save 50% off Retail on Ink & Toner - Free Shipping and Free Gift.
http://www.shop4tech.com/z/Inkjet_Cartridges/9_108_r285
_______________________________________________
unattended-devel mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/unattended-devel
