sub add2Grp {

	my $group = $_[0];
	my $user = $_[1];
	print "Adding: $group to: $user\n";	
	my $win32 = Win32::OLE->new('WScript.Shell') || die "Can not create WScript Shell; $!\n";
	my $result = $win32->Run('runas /noprofile /user:DOMAIN\\USER Net Group $group $user /ADD /DOMAIN');
	sleep(3);
	$win32->SendKeys('password~');
        return "$result";
}