Myrdinn Photographie

Deux visions pour un même objectif

21déc. 2011

Photos des concerts


Si vous désirez copier les photos merci d'indiquer en retour l'adresse de mon site en tant qu'auteur des clichés.

Cordialement,

Photos au Klub 18/12/2011

  • Septentrion
  • Oes Galliath
  • PHTO
  • Les Chants de Nihil

Photos Arosian Black Mass 12/11/2011

  • Son Of Fenris
  • Tomhet
  • Darkened Nocturn Slaughtercult
  • One Tail One Head

Photos au Black Hawk Tours 05/11/2011

  • Seide
  • Hecate

13déc. 2011

Script création de groupe AD avec description en powershell

Ce script permet de créer des groupes AD pour windows serveur 2008 (éventuellement 2003 mais pas tester) avec la description des groupes. Celui-ci utilise un fichier CSV.


Lien ZIP complet : Script création groupes AD

############
#
#   Author:         Karl ERNEST
#   Version:         1.0 - Powershell
#   Date:             21/11/2011
#   Description:     Script permetant de créer les groupes AD
#                     avec decription depuis un fichier
#                   
#   Usage:          Le script fait appel à un fichier ADGroupFile.csv
#    Contenue du CSV : Variable0;Variable1;Variable2;...
#    Le modifier au besoin
#
#
#############

    # Chemin du fichier vers le CSV
    $ADGroupFile = gc c:\ADGroupFile\ADGroupFile.csv |
    % {
        $val = $_.split(';')
        $obj = new-object psObject
        $obj | add-member noteProperty NomGroupe $val[0] -p |
        add-member noteProperty DesignationGroupe $val[1] -p # |
        # add-member noteProperty Autres $val[2] -p
    }
   
#############
# Par défaut les groupes sont dans crées l'OU "Groups"
# ci dessous (changer au besoin) ainsi que le DOMAINE TEST.LOCAL
$objOU = [ADSI]"LDAP://localhost:389/ou=Groups,dc=TEST,dc=LOCAL"
#############
           
   #Vérification sur le fichier est non vide (-ne veut dire Not Equal)
   #Boucle qui va lire le fichier .CSV file
   foreach ($group in $ADGroupFile){
                Write-Host -ForegroundColor green "----------------------";
                echo "Création du groupe : "$group.NomGroupe;
                $objGroup = $objOU.Create("group", "CN=" + $group.NomGroupe)
                $objGroup.Put("sAMAccountName", $group.NomGroupe )
                echo "Description du groupe : "$group.DesignationGroupe;
                $objGroup.Put("Description", $group.DesignationGroupe)
                $objGroup.SetInfo()
                Write-Host -ForegroundColor green "----------------------"; 
    }  
    Write-Host;
    Write-Host -ForegroundColor Yellow "** Creation des groupes fini **";  

07déc. 2011

Script création d'enregistrements DNS Hote A

Script permettant de créer des enregistrements DNS hote A compatible 2003, 2008 et 2008R2

Lien ZIP complet : Script DNS hote A


'#   Author: Karl ERNEST
'#   Version: 1.1 - VBS
'#   Date: 30/11/2011
'#   Description: créer des enregristrements DNS hote A
'#                    
'#   Usage: Le script fait appel à un fichier Liste.txt
'#    Contenue du txt :
'#       Nom,IP
'#       Nom,IP
'#    Il faut renseigné les nom de domaine et serveur

'#    Placer le fichier dns dans c:\dns
'#    
'#    lancer le fichier c:\dns\CreerDns.vbs

Set Shell = WScript.CreateObject("WScript.shell")
Set objFSO = CreateObject("scripting.fileSystemObject")

set listeDNS = objfso.OpenTextFile("C:\dns\Liste.txt")
'lecture du fichier
set objlog = objfso.OpenTextFile("C:\dns\Log.txt",8,true)
'Ecriture du log

Do Until listeDNS.AtEndOfStream
   Ligne = listeDNS.Readline
   Arguments = Split(Ligne,",")
   'Le séparateur pour le fichier Liste.txt est une virgule argument0,argurment1
   NomMachine = Arguments(0)
   AdresseIp = Arguments(1)
   set result = shell.exec("dnscmd.exe servad.domaine.com" & " /recordadd domain.com " & NomMachine & " A " & AdresseIP)
   objlog.writeline adresseIp & " " & NomMachine & vbcrlf & result.stdOut.readall
   objlog.writeline "---------------------"
Loop

05déc. 2011

Galerie photo

Après un certain temps la galerie est de nouveau disponible cependant le design doit être refait.

Voir la galerie photo