Discussion :

[benzure]

Bonjour

je réalise un projet d'administration réseau basé sur le langage perl

Malheuresement je suis débutant sur ce langage;

En fait je doit en gros piloter l'active directory de windows mais en utilisant Perl

je dois créer des groupes d'utilisateurs, des utilisateurs, créer des stratégies, et des profils locals et itinérants.

voilà en gros une petite base d'une administration

merci de m'aider

a+

[Mr6]

Perl pour l'administration système, chap 6.5

Bon courage

[Invité]

Ou bien Active Directory Cookbook
Et le zip

Il y a des dizaines de scripts en perl pour ça.

[benzure]

j'ai voulu créer un utilisateur a l'aide du liens de kuzco (merci à toi ) mais le probleme c'est qu'il me dit :


F:\>essai.pl
Win32::OLE(0.1703) error 0x80072035: "Le serveur ne souhaite traiter la
requÛte"
in METHOD/PROPERTYGET "SetInfo" at F:\essai.pl line 20

Voila le code utilisé :

use Win32::OLE;
$Win32::OLE::Warn = 3;
# Taken from $ADS_USER_FLAG_ENUM
my $ADS_UF_NORMAL_ACCOUNT = 512;
my $objParent = Win32::OLE->GetObject("LDAP://172.20.74.11");
my $objUser = $objParent->Create("user", "cn=<UserName>");
$objUser->Put("sAMAccountName", "<UserName>");
$objUser->Put("userPrincipalName", "<UserUPN>");
$objUser->Put("givenName", "<UserFirstName>");
$objUser->Put("sn", "<UserLastName>");
$objUser->Put("displayName", "<UserFirstName> <UserLastName>");
$objUser->Put("userAccountControl", $ADS_UF_NORMAL_ACCOUNT);
$objUser->SetInfo;
$objUser->SetPassword("<Password>");
$objUser->{AccountDisabled} = FALSE;
$objUser->SetInfo;


Mais je suppose qu'il doit manquer qqch pour dire a Active Directory d'accepter le fait qu'on le configure comme ça... (c'est qu'une supposition... :/ )

Merci de votre aide

[Invité]

Regarde plutôt du côté de ADSI
ou bien recherche dans la KB de Microsoft

[benzure]

Non c'est bon ça marche ^^ bon il met pas le user ou il faut... mais il le met (il le met a la racine du nom de domaine et non dans le dossier users) mai sça doit etre qu'un tout petit truc a changer jpense... merci à vous

[Invité]

Tag résolu ?

[benzure]

l'erreur est résolu mais j'arrive pas à transférer ce user dans le dossier user approprié

peut-être avec ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
# ------ SCRIPT CONFIGURATION ------
my $strUserDN = "<UserDN>";     # e.g.     J EMET QUOI ICI
 
cn=rallen,cn=users,dc=rallencorp,dc=com
my $strOUDN = "<NewParentDN>";  #  ET ICI AUSSI
e.g.ou=Sales,dc=rallencorp,dc=com
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objUser = Win32::OLE->GetObject("LDAP://" . $strUserDN);
my $objOU = Win32::OLE->GetObject("LDAP://" . $strOUDN);
$objOU->MoveHere($objUser->ADsPath, $objUser->Name);

mais j'arrive pas a m'en servir

QUE VEUT DIRE ADsPath

MERCI je débute et je connais pas grand chose

[benzure]

Et ba non ...
juste une modif ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $objParent = Win32::OLE->GetObject("LDAP://cn=Users,dc=domeq4,dc=fr");

a suffit... bon j'ai pas trop compris ce qu'etait exactement "cn=" "dc="... mais bon ça marche

[GLDavid]

benzure

Peux-tu mettre les balises code s'il te plait dans chacun de tes threads ?
Merci d'avance.

@++

[benzure]

Bon ça avance petit à petit

désormais j'ai réussi à créer des groupes

mais les valeurs présente ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
my $ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = [b]4[/b];
my $ADS_GROUP_TYPE_GLOBAL_GROUP       = [b]2[/b];
my $ADS_GROUP_TYPE_LOCAL_GROUP        = [b]2[/b];
my $ADS_GROUP_TYPE_SECURITY_ENABLED   = [b]-2147483648[/b];
my $ADS_GROUP_TYPE_UNIVERSAL_GROUP    = [b]8[/b];

je ne comprend pas leur sens j'ai modifié celle corespondant à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $ADS_GROUP_TYPE_LOCAL_

et celà à changé le type de groupe de sécurité de 'dmaine local en global"

je trouve peu d'information concernant ce sujet

merci
bye

[benzure]

Bon je sais tjrs pas trop a quoi sers c'est valeur... mais bon maitenant ça serais simpa si je pouvais genre interdire de lancer le "panneau de configuration" ... enfin interdire qq droit ... une idée ?

[Mr6]

Tu t'es plongé dans le fonctionnement d'AD avant d'y mettre les mains avec Perl ? pour administrer une cinquantaine de serveurs avec cette cochonerie, je sais que c'est extrêment sensible et une connerie est vite arrivée, donc j'espère pour toi que tu sais ce que tu fais, ou alors que tu n'es pas sur des serveurs en prod
sinon, pour répondre à ta question, il faut que tu tapes dans les GPO pour les droits. mais modifie 1 droit à la fois, et teste les réactions

@+
Mr6

[benzure]

Tu t'es plongé dans le fonctionnement d'AD avant d'y mettre les mains avec Perl ? pour administrer une cinquantaine de serveurs avec cette cochonerie, je sais que c'est extrêment sensible et une connerie est vite arrivée, donc j'espère pour toi que tu sais ce que tu fais, ou alors que tu n'es pas sur des serveurs en prod
sinon, pour répondre à ta question, il faut que tu tapes dans les GPO pour les droits. mais modifie 1 droit à la fois, et teste les réactions

@+
Mr6

Ouais ouais on a fait qq tp sur AD... et la on nous a imposé, un mini projet comme ils disent, sur perl... et bon... on tatone plus qu'autre chose... mais c'est des serveurs "test" alors pas grd risqu de plantage sur des serveurs de prod... jvais me plonger des les GPO.. merci

[benzure]

Bonjour me voilà de retour

aujourd'hui j'essaye de créer une gpo puis des ACL

bon j'ai utilisé le code fournit sur le site :
http://www.rallenhome.com/books/adcookbook/src/09.02-create_gpo.pls.txt

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
                           # ------ SCRIPT CONFIGURATION ------
my $strGPO      = "<testgpo>";        # e.g. Sales GPO
my $strDomain   = "<domeq5.fr>";  # e.g. rallencorp.com
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objGPM = Win32::OLE->CreateObject("GPMgmt.GPM");
my $objGPMConstants = $objGPM->GetConstants();
 
# Initialize the Domain $object
my $objGPMDomain = $objGPM->GetDomain($strDomain, "", $objGPMConstants->UseAnyDC);
 
# Create the GPO and print the results
my $objGPO = $objGPMDomain->CreateGPO();
print "Successfully created GPO\n";
$objGPO->{DisplayName} = $strGPO;
print "Set GPO name to $strGPO\n";

mais le souci est qu'il me renvoit ça:

Win32::OLE(0.1701) error 0x800401f3: "Chaîne de classe incorrecte" at essaigpo.pl line 7

donc je ne sais pas trop comment faire


sino je voulais savoir, lorsque l'on crée cette gpo, elle est vide,
mais je ne trouve pas les lignes de commandes pour la remplir.

sinon les acls présentent sur:
http://www.rallenhome.com/books/adcookbook/src/PerlChkSec.pls.txt

il y en a bp et je ne comprend pas toute leur signification

Beaucoup de choses à voir en fait

voilà

merci pour vos réponses
bye

[Mr6]

à quoi correspond la ligne 7 ?

[benzure]

a oui excuse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $objGPM = Win32::OLE->CreateObject("GPMgmt.GPM");

merci

[benzure]

je croix que j'ai trouvé il faut que le module gpmc.msi soit installé sur mon serveur.

cependant j'utilise win server 2000 et il n'est pas présent et celui dispo sur microsoft est pour server 2003 et xp


quequ'un a t'il une solution

merci

[benzure]

Bon ba tant pis on feras pas de GPO c'est pas grave... (c'est pour un projet et on a plus vraiment le temps maintenant... les fin d'année sont dures, merci kan mm a vous !!! a une prochaine !!!! )