Script création de dns Active Directory 2008
Par admin, le mercredi 29 avril 2009 à 14:55 | Dev
Lors de cette migration vers Active Directory 2008, je vais aussi en profiter pour migrer les DNS et DHCP vers Windows.
Ayant environs 200 ip fixes a gérer tant en interne que sur les différentes DMZ, je ne me voyais pas les ajouter une à une et créer les "reverses" ... Donc, scriptons !
Pour cette migration j'ai extrais de mon DNS actuel sous Linux les informations que je place dans un fichier csv de la forme :
adresse-ip;nom
Le script quant à lui lit le fichier, crée les containers des reverses DNS et insère les enregistrements. Ce script perl fait appelle à la bibliothèque Win32::OLE :
#!/usr/bin/perl -w
use strict;
use utf8;
use Encode;
use Win32::OLE;
$Win32::OLE::Warn=2;
my $strServer="ad1.maboite.com";
my $dom="maboite.com";
my $objDNS=Win32::OLE->GetObject("winMgmts:\\\\$strServer\\root\\MicrosoftDNS");
my $objDNSZone=$objDNS->Get("MicrosoftDNS_Zone");
my $objRR=$objDNS->Get("MicrosoftDNS_ResourceRecord");
open FILE, "<intranet.csv";
my @intranet=<FILE>;
close FILE;
foreach my $line (@address) {
my ($ip,$add)=split /;/,$line;
chop $add;
print "$ip -> $add\n";
my ($a,$b,$c,$d)=split /\./, $ip;
my $fAdd="$add.$dom. IN A $ip";
my $arpa="$c.$b.$a.in-addr.arpa";
my $rAdd="$arpa IN PTR $add.$dom";
my $ret = $objDNSZone->CreateZone($arpa, 0 , True);
my $strNull = $objRR->CreateInstanceFromTextRepresentation(
$objDNSZone->Name,
$dom,
$fAdd,
$objOutParam);
$strNull = $objRR->CreateInstanceFromTextRepresentation(
$objDNSZone->Name,
$arpa,
$rAdd,
$objOutParam);
}
Bonjour Vincent,
Je me permets de vous contacter pour la raison suivante.
Notre société FineMedia édite un réseau d'une centaine de sites spécialisés sous l'url ombrelle comprendrechoisir.com
L'objectif de chacun de ces sites est très simple : Mieux comprendre pour bien choisir. Site de contenu informatif composé de :
- un guide pratique
- des fonctionnalités permettant aux internautes / professionnels du sujet de contribuer
- questions / réponses
- conseils et astuces
et bientôt d'autres fonctionnalités (articles, interviews, témoignages..)
Voici quelques exemples dans votre univers, sachant que les sites vont être totalement modifiés d'ici quelques semaines (mise en avant plus importante des experts contributeurs par exemple).
- ADSL: http://adsl.comprendrechoisir.com/
- nous avons d'autre sujets sur des thèmes trés différents, si jamais vous avez d'autres savoir faire !
Comme vous pouvez le voir, les fonctionnalités de conseils et astuces / questions-réponses sont déjà bien utilisées par les visiteurs et les membres de nos sites.
Nous souhaitons enrichir les Conseils et Astuces et cherchons des rédacteurs. Seriez vous intéressé ?
Voici quelques motivations pour écrire :
- visibilité et référencement : vous créez votre compte avec vos articles, renvoi possible vers votre blog / site
- rémunération : vous ne deviendrez pas riche, mais c'est un bon complément de revenu
- contribution à un ou plusieurs sites, que l'on espère, "pas trop mal" !
Le fonctionnement serait très simple (si vous êtes partant, nous vous donnerons plus de détails)
- vous vous créez un compte sur http://www.comprendrechoisir.com/
- vous écrivez des conseils sur les sujets choisis avec vous (vous pouvez écrire sur des sujets différents à partir d'un seul et même compte)
- ces conseils doivent être précis et si possible pratiques
- nous modérons chaque contribution
- bientôt nous aurons une fonctionnalité permettant de publier des articles (points de vue / avis..)
- nous vous rémunérons 3% par conseil sous forme d'achat de droits d'auteur (contrat de 50 ou plus)
- la rémunération des articles sera différente
En espérant que cette idée vous tente. Merci de votre feed back.
Julie Crédou
Responsable éditoriale
Finemedia
01 44 90 05 99