Hola a todos.
Quisiera saber si alguien conoce alguna forma, tipo módulo, para obtener y modificar los parámetros de las políticas locales de Windows (directivas de cuentas, directivas locales...).
He revisado los módulos de CPAN y no he visto nada válido.
Muchas gracias.
Un saludo,
Ricar.
-
- Publicidad
Obtener y modificar parámetros de la política local de Win32
5 mensajes
• Página 1 de 1
Obtener y modificar parámetros de la política local de Win32
por ricar » 2009-07-16 07:22 @349
- ricar
- Perlero nuevo
- Mensajes: 71
- Registrado: 2009-07-13 07:29 @353
Publicidad
Re: Obtener y modificar parámetros de la política local de win
por explorer » 2009-07-16 07:47 @366
Bienvenido a los foros de Perl en Español, ricar.
No sé si esto te servirá, como ejemplo:
Lo he encontrado en este libro: Windows XP Cookbook.
No sé si esto te servirá, como ejemplo:
Using perl Syntax Highlighting
# From the book "Windows XP Cookbook"
# ISBN: 0596007256
# This code displays the current settings for the password
# and account lockout policies.
# ------ SCRIPT CONFIGURATION ------
use Win32::OLE qw(in);
$strDomain = '<DomainName>';
# e.g. rallencorp.com
# ------ END CONFIGURATION ---------
$objRootDSE = Win32::OLE->GetObject('LDAP://' . $strDomain . '/RootDSE');
$objDomain = Win32::OLE->GetObject('LDAP://' . $objRootDSE->Get('defaultNamingContext'));
# Hash containing the domain password and lockout policy attributes
# as keys and the units (e.g. minutes) as the values
$objDomAttrHash = Win32::OLE->new('Scripting.Dictionary');
$objDomAttrHash->Add('lockoutDuration', 'minutes');
$objDomAttrHash->Add('lockoutThreshold', 'attempts');
$objDomAttrHash->Add('lockoutObservationWindow', 'minutes');
$objDomAttrHash->Add('maxPwdAge', 'minutes');
$objDomAttrHash->Add('minPwdAge', 'minutes');
$objDomAttrHash->Add('minPwdLength', 'characters');
$objDomAttrHash->Add('pwdHistoryLength', 'remembered');
$objDomAttrHash->Add('pwdProperties', ' ');
# Iterate over each attribute and print it
foreach my $strAttr (in $objDomAttrHash->Keys) {
if (((ref $objDomain->Get($strAttr)) =~ /^Win32::OLE/)) {
$objLargeInt = $objDomain->Get($strAttr);
if ($objLargeInt->LowPart == 0) {
$value = 0;
}
else {
$value = abs($objLargeInt->HighPart * 2 ** 32 + $objLargeInt->LowPart);
$value = int($value / 10000000);
$value = int($value / 60);
}
}
else {
$value = $objDomain->Get($strAttr);
}
print $strAttr . ' = ' . $value . ' ' . $objDomAttrHash->Item($strAttr), "\n";
}
# Constants from DOMAIN_PASSWORD_INFORMATION
$objDomPassHash = Win32::OLE->new('Scripting.Dictionary');
$objDomPassHash->Add('DOMAIN_PASSWORD_COMPLEX', 0x1);
$objDomPassHash->Add('DOMAIN_PASSWORD_NO_ANON_CHANGE', 0x2);
$objDomPassHash->Add('DOMAIN_PASSWORD_NO_CLEAR_CHANGE', 0x4);
$objDomPassHash->Add('DOMAIN_LOCKOUT_ADMINS', 0x8);
$objDomPassHash->Add('DOMAIN_PASSWORD_STORE_CLEARTEXT', 0x16);
$objDomPassHash->Add('DOMAIN_REFUSE_PASSWORD_CHANGE', 0x32);
# The PwdProperties attribute requires special processing because
# it is a flag that holds multiple settings.
foreach my $strFlag (in $objDomPassHash->Keys) {
if ($objDomPassHash->Item($strFlag) && $objDomain->Get('PwdProperties')) {
print " $strFlag is enabled\n";
}
else {
print " $strFlag is disabled\n";
}
}
# ISBN: 0596007256
# This code displays the current settings for the password
# and account lockout policies.
# ------ SCRIPT CONFIGURATION ------
use Win32::OLE qw(in);
$strDomain = '<DomainName>';
# e.g. rallencorp.com
# ------ END CONFIGURATION ---------
$objRootDSE = Win32::OLE->GetObject('LDAP://' . $strDomain . '/RootDSE');
$objDomain = Win32::OLE->GetObject('LDAP://' . $objRootDSE->Get('defaultNamingContext'));
# Hash containing the domain password and lockout policy attributes
# as keys and the units (e.g. minutes) as the values
$objDomAttrHash = Win32::OLE->new('Scripting.Dictionary');
$objDomAttrHash->Add('lockoutDuration', 'minutes');
$objDomAttrHash->Add('lockoutThreshold', 'attempts');
$objDomAttrHash->Add('lockoutObservationWindow', 'minutes');
$objDomAttrHash->Add('maxPwdAge', 'minutes');
$objDomAttrHash->Add('minPwdAge', 'minutes');
$objDomAttrHash->Add('minPwdLength', 'characters');
$objDomAttrHash->Add('pwdHistoryLength', 'remembered');
$objDomAttrHash->Add('pwdProperties', ' ');
# Iterate over each attribute and print it
foreach my $strAttr (in $objDomAttrHash->Keys) {
if (((ref $objDomain->Get($strAttr)) =~ /^Win32::OLE/)) {
$objLargeInt = $objDomain->Get($strAttr);
if ($objLargeInt->LowPart == 0) {
$value = 0;
}
else {
$value = abs($objLargeInt->HighPart * 2 ** 32 + $objLargeInt->LowPart);
$value = int($value / 10000000);
$value = int($value / 60);
}
}
else {
$value = $objDomain->Get($strAttr);
}
print $strAttr . ' = ' . $value . ' ' . $objDomAttrHash->Item($strAttr), "\n";
}
# Constants from DOMAIN_PASSWORD_INFORMATION
$objDomPassHash = Win32::OLE->new('Scripting.Dictionary');
$objDomPassHash->Add('DOMAIN_PASSWORD_COMPLEX', 0x1);
$objDomPassHash->Add('DOMAIN_PASSWORD_NO_ANON_CHANGE', 0x2);
$objDomPassHash->Add('DOMAIN_PASSWORD_NO_CLEAR_CHANGE', 0x4);
$objDomPassHash->Add('DOMAIN_LOCKOUT_ADMINS', 0x8);
$objDomPassHash->Add('DOMAIN_PASSWORD_STORE_CLEARTEXT', 0x16);
$objDomPassHash->Add('DOMAIN_REFUSE_PASSWORD_CHANGE', 0x32);
# The PwdProperties attribute requires special processing because
# it is a flag that holds multiple settings.
foreach my $strFlag (in $objDomPassHash->Keys) {
if ($objDomPassHash->Item($strFlag) && $objDomain->Get('PwdProperties')) {
print " $strFlag is enabled\n";
}
else {
print " $strFlag is disabled\n";
}
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Lo he encontrado en este libro: Windows XP Cookbook.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Obtener y modificar parámetros de la política local de Win32
por ricar » 2009-07-16 10:14 @468
Muchas gracias explorer, por la bienvenida y por la respuesta.
Tengo que analizarlo más detenidamente pero tiene pinta de referirse a políticas de dominio.
Me interesa, lo relativo a políticas locales. La verdad es que no creo que me valga.
Muchas gracias.
Un saludo,
Ricar.
Tengo que analizarlo más detenidamente pero tiene pinta de referirse a políticas de dominio.
Me interesa, lo relativo a políticas locales. La verdad es que no creo que me valga.
Muchas gracias.
Un saludo,
Ricar.
- ricar
- Perlero nuevo
- Mensajes: 71
- Registrado: 2009-07-13 07:29 @353
Re: Obtener y modificar parámetros de la política local de Win32
por explorer » 2009-07-16 15:31 @688
He leído por encima el capítulo 15 y habla de ordenadores, usuarios y contraseñas, mientras que el resto de los capítulos se dedican a otros temas.
¿A qué tipo de políticas te refieres?
¿A qué tipo de políticas te refieres?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Obtener y modificar parámetros de la política local de Win32
por ricar » 2009-07-17 00:46 @073
Hola Explorer.
Las políticas de dominio son relativas al Active Directory y las locales a todas las máquinas Windows.
Los "checks" u opciones son prácticamente los mismos, o sea, lo que comentas, directivas de cuentas, directivas locales, etc.
Pero entre otras cosas cambia el modo de propagación de las mismas. Una política de dominio se propaga a través del SYSVOL y consiste en un fichero GptTmpl.inf y se podría (en principio) obtener (cambiar) datos sobre ese fichero.
Pero las políticas locales no guarda la información en un .inf, si no que lo guarda, creo, en la base de datos .sdb, que no es legible.
Por tanto, no sé cómo puedo obtener y/o fijar valores de la política local.
Espero haber expresado lo que quería de forma clara
.
Un saludo,
Ricardo.
Las políticas de dominio son relativas al Active Directory y las locales a todas las máquinas Windows.
Los "checks" u opciones son prácticamente los mismos, o sea, lo que comentas, directivas de cuentas, directivas locales, etc.
Pero entre otras cosas cambia el modo de propagación de las mismas. Una política de dominio se propaga a través del SYSVOL y consiste en un fichero GptTmpl.inf y se podría (en principio) obtener (cambiar) datos sobre ese fichero.
Pero las políticas locales no guarda la información en un .inf, si no que lo guarda, creo, en la base de datos .sdb, que no es legible.
Por tanto, no sé cómo puedo obtener y/o fijar valores de la política local.
Espero haber expresado lo que quería de forma clara
.Un saludo,
Ricardo.
- ricar
- Perlero nuevo
- Mensajes: 71
- Registrado: 2009-07-13 07:29 @353
5 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 20 invitados