Gael Biletta » Non classé

Outil de capture Windows 7

Gael Biletta — Sun, 02 Oct 2011 20:53:03 +0000

L’outil de capture intégré dans Windows 7 permet d’enregistrer une partie ou la totalité de l’écran sous différent formats d’images, de personnaliser vos captures et même de les partager par e-mail. Nous allons voir comment l’utiliser :

D’abords où se trouve-t-il ?

Allez dans le menu Démarrer –> Tous les programmes –> Accessoires –> Outil capture

le voilà ouvert :

un conseil, pour l’avoir toujours sous la main, épinglez-le dans la barre des tâches : clic droit sur l’icône de la barre et choisissez :

plusieurs modes de captures sont possibles, en cliquant sur « nouveau » :

et en cliquant sur « options » voici les différentes options:

Une fois le programme ouvert, le fond de l’écran devient blanchâtre, il suffit choisir le mode de capture et de sélectionner la zone à capturer

Une fois la zone capturée voici les options disponibles :

1 = nouvelle capture
2 = enregistrer la capture
3 = copier
4 = envoyer la capture : destinataire de courrier électronique, destinataire de courrier électronique (pièce jointe)
5 = stylet (permet de dessiner sur la capture, le stylet est personnalisable)
6 = surligneur
7 = gomme
Voilà pour la présentation de cet outil simple mais efficace. Sous XP nous devions utiliser le fameux « Paint » avec la touche « Impr écr », voilà qui est fini maintenant grâce à cet outil incorporé à Windows 7 qui vous simplifiera la tâche.

Désinstaller Internet Explorer 8 sous Windows 7

Gael Biletta — Sun, 02 Oct 2011 20:15:18 +0000

Si vous n’utilisez pas Internet Explorer, sachez qu’il est possible de le désinstaller en quelques clics pour n’utiliser qu’un autre navigateur alternatif (Chrome, Opera, Firefox… etc).

Je vais vous expliquer ci-dessous la procédure . Cette dernière est réalisée sous Windows 7 et concerne la version 8 du navigateur de Microsoft. Cela reste identique pour la version IE 9 ou plus récente.

Étape 1: Rendez-vous dans le Panneau de configuration par le menu démarrer. Cliquez ensuite sur Programmes et fonctionnalités.

Étape 2: Cliquez ensuite sur Activer ou désactiver des fonctionnalités windows situé sur la colonne de gauche. Cherchez Internet Explorer 8 dans la liste déroulante, puis décochez la case correspondante. Validez le message d’avertissement puis redémarrez votre ordinateur. Et le tour est joué !

Vous savez maintenant désinstaller Internet Explorer 8 sous Windows 7 !

Déployer PDFCreator

Gael Biletta — Mon, 26 Sep 2011 20:27:03 +0000

Comment faire une installation personnalisée de PDF Creator en vu d’un déploiement ? Comment supprimer les « toolbar » lors d’une installation silencieuse ? Voici la solution !

Depuis à version 1.2.x le programme d’installation intègre un outil de configuration qui génère un fichier « PDFcreator.ini » afin de personnaliser l’installation.

1 – Capturez les paramètres d’installation dans un fichier INI

Lancer le fichier setup avec ces paramètres :
PDFCreator-1_2_3_setup.exe /SAVEINF= »PDFCreator.ini »

Cela lance l’installation et capture dans un fichier PDFCreator.ini toutes les options choisies durant l’installation.
Pensez à désactiver les toolbar !

Voici le résultat du fichier ini :

[Setup]
Lang=french
Dir=C:\Program Files\PDFCreator
Group=PDFCreator
NoIcons=0
SetupType=custom
Components=program,ghostscript,images2pdf,comsamples,helpfiles,helpfiles\french,languages,languages\english,languages\french
Tasks=winexplorer
Printername=PDFCreator
ServerInstallation=0
Win9xPrinterdriver=0
WinNtPrinterdriver=0
Win2k32bitPrinterdriver=0
Win2k64bitPrinterdriver=0
Toolbar=0

2 – Installation silencieuse

Ensuite pour lancer l’installation silencieuse avec les paramètres du fichier PDFCreator.ini voici la ligne de commande :
PDFCreator-1_2_3_setup.exe /LOADINF= »PDFCreator.ini » /VERYSILENT /FORCEINSTALL

Faire un package Adobe Reader X

Gael Biletta — Sun, 25 Sep 2011 14:07:10 +0000

Dans ce tutoriel, nous allons apprendre comment personnaliser un package d’installation Adobe Reader X.

Qu’est ce qu’un package ?

Dans le cadre d’un déploiement d’un logiciel, un package est un exécutable ou script qui permet d’automatiser l’installation et la configuration du logiciel avec des paramètres prédéfinis.
Selon les logiciels il existe différentes méthodes de « packaging » cela dépend souvent du programme d’installation (Windows installer, InstallShield, Wise, InnoSetup…etc) et du logiciel qui propose parfois un outil de configuration.

Licence de déploiement

Bien que Adobe Reader soit gratuit, vous aurez besoin d’obtenir une licence pour le distribuer dans votre propre environnement.
L’obtention d’une licence est assez simple, il vous suffit de répondre à quelques questions telles que le nombre de copies, comment vous allez distribuer Adobe Reader, sur quelles plateformes et quelques informations sur votre entreprise, y compris les informations de contact. La même licence peut être utilisée pour distribuer Flash Player et Adobe AIR. Pour demander le permis se rendre à cette adresse : http://www.adobe.com/go/rdr_apply_dist

Obtention de l’Assistant Personnalisation d’Adobe

Malheureusement, Adobe n’utilise pas le même installateur dans l’ensemble de ses produits et versions.

Pour commencer la personnalisation Reader, vous aurez besoin d’installer l’assistant de personnalisation « Adobe Customization Wizard X »

Adobe Customization Wizard X n’a pas beaucoup changé depuis Adobe Customization Wizard 9 , donc si vous avez une expérience du déploiement d’Adobe Reader 8 ou Reader 9 , vous serez à l’aise pour la personnalisation et le déploiement de la nouvelle version.

Vous trouverez l’assistant à cette adresse :

http://www.adobe.com/support/downloads/detail.jsp?ftpID=4950

Téléchargement du Reader X MSI

Lorsque vous créez un programme d’installation personnalisée pour Adobe Reader, commencez toujours par récupérer la dernière version sur la page FTP public :

ftp://ftp.adobe.com/pub/adobe/reader/win/10.x/

Remarque : si vous devez télécharger le dernier programme d’installation, toujours récupérer une copie du site d’Adobe pour vous garantir une source confiance

Une fois que vous avez téléchargé le programme d’installation Adobe Reader X, nous allons extraire les fichiers de configuration afin de créer par la suite un fichier de transformation personnalisé. Pour extraire, exécutez la commande suivante:

AdbeRdr1010_en_US.exe.exe -nos_o »C:\AdobeReaderX » -nos_ne

Une fois extrait, vous devriez avoir les fichiers suivants requis pour le déploiement Reader:

ABCPY.INI
AcroRead.msi
Data1.cab
setup.exe
Setup.ini

Création d’une transformation personnalisée pour Reader X

Ici, je ne vais pas détailler toutes les options de l’outil de personnalisation reader X, je vous laisse voir la documentation détaillé de adobe :

http://kb2.adobe.com/cps/837/cpsid_83709/attachments/Acrobat_Enterprise_Administration.pdf

Une fois les modifications faite enregistrez votre fichier de transformation (.mst)

Installation du package

Pour utiliser votre transformation et installer de manière silencieuse il suffira de lancer la commande suivante :

msiexe /i AcroRead.msi TRANSFORMS= »AcroRead.mst » /qn

Adobe fournissant souvent des patch non cumulatif vous pouvez également ajouter les patchs lors de l’installation avec le paramètre commande suivante :

msiexe /i AcroRead.msi TRANSFORMS= »AcroRead.mst » PATCH= »patch1.msp;patch2.msp » /qn

Créer des installations personnalisées d’Office 2010

Gael Biletta — Fri, 23 Sep 2011 20:15:33 +0000

Dans ce tutoriel je vais vous expliquer comment déployer une installation personnalisée de Microsoft Office 2010 grâce à l’Outil de personnalisation Office (OPO).

Cet outil fait partie du programme d’installation, c’est le principal outil utilisé pour personnaliser une installation de client Office 2010. Il est inclus dans les versions de licence en volume de Office 2010 comme Microsoft Office Professionnel Plus 2010.

Etape 1 – Copiez tous les fichiers et dossiers du CD Office 2010 dans un dossier sur le réseau ou sur votre ordinateur.

Dans notre exemple, copiez les fichiers dans « D:\Office14\ »

Etape 2 – Lancer l’outil de personnalisation Office 2010

A partir du dossier D:\Office14, créez un raccourci de Setup.exe et renommer le en Setup Admin. Ensuite allez dans les propriétés du raccourci et modifier la cible avec la ligne de commande : D:\Office14\Setup.exe /admin

Etape 3 – Creation d’un fichier de Personnalisation

Etape 4 – Choisissez le type de fichiers par défaut

Ici nous laissons les paramètres par défaut

Etape 5 – Outil de personnalistion Microsoft Office

Je ne vais pas détailler tous les paramètres mais je vous propose ici les différents réglages pour configurer une installation « Classique » avec Word, Excel, Outlook, PowerPoint avec une installation automatisée.

Configuration du chemin d’installation et de la société

Configuration de la licence et de l’interface d’installation

Pour la licence :

Soit vous passez par un serveur de licence KMS
Soit par une clé produit (clé MAK)

N’oubliez pas de cocher l’acceptation des termes du contrat de licence

Ensuite, point important pour l’installation vous avez 3 possibilité d’affichage :

Aucun : installation totalement silencieuse aucun affichage durant l’installation
Simple : Affiche une fenetre avec une barre d’avancement
Complet : Affichage interactif de l’utilisateur (doit cliquer sur les boutons suivant)

Dans note exemple nous allons choisir Aucun

Sur l’écran suivant vous pouvez choisir de conserver certaines versions antérieur en cas de mise à jour d’office.

Dans notre exemple nous laissons tout par défaut

Sélection des composants

C’est ici que vous allez décidez quels éléments d’office vont être installés ou non.

Dans notre exemple nous enlevons Access, OneNote et SharePoint.

Je passe les autres écrans de configurations, mais vous pouvez allez très loin dans la configuration de l’installation Office (ajouter des fichiers, des clés de registres, préconfigurer des comptes Outlook, modifier des paramètres utilisateurs… Etc

Une fois la configuration terminée, nous enregistrons notre configuration « Fichier/Enregistrer »

Nous appelons le fichier « Office-classique.msp »

Notre fichier de configuration d’installation est maintenant créé… mais comment lancer l’installation ?

C’est très simple il suffit de lancer l’installation avec la commande :

Setup.exe /adminfile

TrashMe un peu de nettoyage avec AutoIT

Gael Biletta — Mon, 19 Sep 2011 15:28:52 +0000

J’ai développé ce script afin de nettoyer certain dossiers qui se remplissent assez vite en fonction de l’utilisation du poste.

Voici les dossiers nettoyé par le script :

Nettoyage des dossiers système :
C:\TEMP\
C:\WINDOWS\TEMP\
C:\RECYCLER\
C:\WINDOWS\Prefetch\
C:\WINDOWS\system32\CCM\Cache\
C:\System Volume Information\
C:\WINDOWS\$KB***$

Nettoyage des profils utilisateurs:
C:\Documents and Settings\%USER%\Cookies\
C:\Documents and Settings\%USER%\Recent\
C:\Documents and Settings\%USER%\Local Settings\Temp\
C:\Documents and Settings\%USER%\Local Settings\Temporary Internet Files\

Voici le code autoIT :

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\..\..\Program Files\ExtracteurIcones31\Sauve\trashme.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; #REMOTE CONTROL# =======================================================================================================================
;
; Title .........: TRASH ME
; Software Version : 1.0
; AutoIt Version : 3.3.6.0
; Description ...: Outil de nettoyage de disque à distance
;
; Liste des dossiers traités :
; ==================
; Nettoyage des dossiers système :
; C:\TEMP\
; C:\WINDOWS\TEMP\
; C:\RECYCLER\
; C:\WINDOWS\Prefetch\
; C:\WINDOWS\system32\CCM\Cache\
; C:\System Volume Information\
; C:\WINDOWS\$KB***$
;
; Nettoyage des profils utilisateurs:
; C:\Documents and Settings\%USER%\Cookies\
; C:\Documents and Settings\%USER%\Recent\
; C:\Documents and Settings\%USER%\Local Settings\Temp\
; C:\Documents and Settings\%USER%\Local Settings\Temporary Internet Files\
;

; ===============================================================================================================================
;
; Author ........: Gael BILETTA
; Modified.......: 21/01/2011
;
; ===============================================================================================================================

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include "Installations.au3"
#include "login.au3"
#Include <Date.au3>
#Include <File.au3>
#Include <FileListToArrayNT.au3>
#include <Color.au3>
#include <Date.au3>
#include <TreeViewConstants.au3>
#include <Array.au3>

; On vérifie si on passe par une ligne de commande
; ligne de commande : "trashme.exe computer"
$computer = ""
If $cmdline[0] <> "0" Then
If $cmdline[0] > "0" Then $computer = $cmdline[1] ; si le nom du pc est renseigné dans la ligne de commande on lance le nettoyage du pc
Else
$computer = InputBox("Trash Me","Computer Name","") ; sinon on demande le nom du pc
EndIf

trash_me($computer) ; on lance le nettoyage du pc

; ************************** FONCTION TRASH ME ******************************************
func trash_me($computer)
; ********************* DEBUT INTERFACE GRAPHIQUE ***************************
#Region ### START Koda GUI section ### Form=c:\documents and settings\a-bilettgb\bureau\scripts\trash me.kxf
Global $Trashme = GUICreate("Trash Me", 483, 149, -1, -1)
GUISetBkColor(0xFFFFFF)
;Global $trash_button = GUICtrlCreateButton("Trash Me !", 368, 8, 99, 25, $WS_GROUP)
Global $path = GUICtrlCreateLabel("Veuillez patienter", 16, 104, 452, 34)
GUICtrlSetColor(-1, 0x808080)
Global $label_file_number = GUICtrlCreateLabel("Fichiers supprimés :", 16, 40, 96, 17)
Global $file_number = GUICtrlCreateLabel("0", 120, 40, 34, 17)
GUICtrlSetColor(-1, 0x0000FF)
Global $Label4 = GUICtrlCreateLabel("Nettoyage du PC : ", 16, 8, 144, 22)
GUICtrlSetFont(-1, 12, 800, 2, "Arial")
Global $computer_name = GUICtrlCreateLabel("", 168, 9, 93, 22)
GUICtrlSetFont(-1, 12, 800, 2, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
Global $Label1 = GUICtrlCreateLabel("Dossier en cours :", 16, 56, 89, 17)
Global $dossier_en_cours = GUICtrlCreateLabel("Analyse en cours...", 120, 56, 351, 34)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
; ********************* FIN INTERFACE GRAPHIQUE ***************************

GUICtrlSetData($computer_name,$computer)
global $nb_file = 0

$auto = 1
While 1

$nMsg = GUIGetMsg()

Select
Case $nMsg = $GUI_EVENT_CLOSE

ExitLoop
case $auto = 1
Nettoyage()
GUICtrlSetData($path,"Nettoyage terminé...")
GUICtrlSetData($dossier_en_cours,"")
GUICtrlSetData($file_number,$nb_file)
MsgBox(64,"Trash Me", "Nettoyage du PC " & $computer & " terminé, " & $nb_file & " fichiers supprimés")
$auto = 2
Exit

EndSelect
WEnd

EndFunc

; ************************** FONCTION SUPPRESSION DES FICHIERS ******************************************
func Nettoyage()

;Nettoyage du dossier C:\TEMP\
$temp_dir = "\\" & $computer & "\c$\temp\"
global $dir = "C:\TEMP\"
_EmptyDir($temp_dir)

Local $pid = RunWait(@ComSpec & ' /c cacls "\' & $computer & '\C$\System Volume Information" /E /G ' & @UserName & ':C',@TempDir)

;Nettoyage du dossier C:\Windows\TEMP\
$temp_dir = "\\" & $computer & "\c$\windows\temp\"
global $dir = "C:\Windows\TEMP\"
_EmptyDir($temp_dir)

;Nettoyage du dossier C:\RECYCLER\
$temp_dir = "\\" & $computer & "\c$\RECYCLER\"
global $dir = "C:\RECYCLER\"
_EmptyDir($temp_dir)

;Nettoyage du dossier C:\WINDOWS\Prefetch\
$temp_dir = "\\" & $computer & "\c$\WINDOWS\Prefetch\"
global $dir = "C:\WINDOWS\Prefetch\"
_EmptyDir($temp_dir)

;Nettoyage du dossier C:\WINDOWS\system32\CCM\Cache\
$temp_dir = "\\" & $computer & "\c$\WINDOWS\system32\CCM\Cache\"
global $dir = "C:\WINDOWS\system32\CCM\Cache\"
_EmptyDir($temp_dir)

;Nettoyage du dossier C:\WINDOWS\system32\CCM\Cache\
$temp_dir = "\\" & $computer & "\c$\System Volume Information\"
global $dir = "C:\System Volume Information\"
_EmptySystemVol($temp_dir)

;Nettoyage du des profils utilisateurs C:\Documents and Settings\
$ListProfil = _FileListToArrayNT ("\\" & $computer & "\c$\Documents and Settings\","*.*", 2, 0, False,"")

For $i = 1 To UBound($ListProfil) - 1

;Nettoyage du des profils utilisateurs C:\Documents and Settings\%USER%\Cookies\
$temp_dir = "\\" & $computer & "\c$\Documents and Settings\" & $ListProfil[$i] & "\Cookies\"
global $dir = "C:\Documents and Settings\" & $ListProfil[$i] & "\Cookies\"
_EmptyDir($temp_dir)

;Nettoyage du des profils utilisateurs C:\Documents and Settings\%USER%\Recent\
$temp_dir = "\\" & $computer & "\c$\Documents and Settings\" & $ListProfil[$i] & "\Recent\"
global $dir = "C:\Documents and Settings\" & $ListProfil[$i] & "\Recent\"
_EmptyDir($temp_dir)

;Nettoyage du des profils utilisateurs C:\Documents and Settings\%USER%\Local Settings\Temp\
$temp_dir = "\\" & $computer & "\c$\Documents and Settings\" & $ListProfil[$i] & "\Local Settings\Temp\"
global $dir = "C:\Documents and Settings\" & $ListProfil[$i] & "\Local Settings\Temp\"
_EmptyDir($temp_dir)

;Nettoyage du des profils utilisateurs C:\Documents and Settings\%USER%\Local Settings\Temporary Internet Files\
$temp_dir = "\\" & $computer & "\c$\Documents and Settings\" & $ListProfil[$i] & "\Local Settings\Temporary Internet Files\"
global $dir = "C:\Documents and Settings\" & $ListProfil[$i] & "\Local Settings\Temporary Internet Files\"
_EmptyDir($temp_dir)
Next

;Nettoyage des dossiers $NtUninstallKB$ C:\WINDOWS\
$Liste = _FileListToArrayNT ("\\" & $computer & "\c$\windows\",'$NTUninstall*.*', 0, 2, False,"")

$total = UBound($Liste) - 1
; Boucle de suppression.
For $i = 1 To $total
$nMsg = GUIGetMsg()
if $nMsg = $GUI_EVENT_CLOSE then
Exit
EndIf
$dirlist = _FileListToArray($Liste[$i])
$nb_file = $nb_file + UBound($dirlist)
global $dir = $Liste[$i]
_EmptyDir($Liste[$i])
DirRemove($Liste[$i], 1)

Next
EndFunc

; ************************** FONCTION SUPPRESSION DES DOSSIERS ******************************************
Func _EmptyDir($DirIn)
; Mise en place des fichiers/Dossier dans un tableau.
$FileList = _FileListToArrayNT ($DirIn, "*.*", 0, 2, True,"tracking.log;skpswi.dat;desktop.ini;~*.*")
$total = UBound($FileList) - 1
; Boucle de suppression.
For $i = 1 To $total
; Modification des attributs des Fichiers/Dossiers du répertoire.
;FileSetAttrib($FileList[$i], "-RAH", 1)
$nMsg = GUIGetMsg()
if $nMsg = $GUI_EVENT_CLOSE then
Exit
EndIf
; Si le $FileList[$i] est un répertoire on fait un DirRemove.
If StringInStr(FileGetAttrib($FileList[$i]), "D") Then
$dirlist = _FileListToArray($FileList[$i])
$nb_file = $nb_file + UBound($dirlist)
DirRemove($FileList[$i], 1)
Else
; Sinon on fait un FileDelete.
local $result = FileDelete($FileList[$i])
if $result = 1 then
GUICtrlSetData($dossier_en_cours,$dir)
GUICtrlSetData($path,$FileList[$i])
$nb_file = $nb_file + 1
GUICtrlSetData($file_number,$nb_file)
EndIf

EndIf
; Fin de la boucle.

Next
EndFunc ;==>_EmptyDir

; ************************** FONCTION NETTOYAGE SYSTEM VOLUME INFORMATION ******************************************
Func _EmptySystemVol($DirIn)

; Mise en place des fichiers/Dossier dans un tableau.
$FileList = _FileListToArrayNT ($DirIn, "*.*", 0, 2, True,"tracking.log;skpswi.dat;desktop.ini")
$total = UBound($FileList) - 1

; Boucle de suppression.
For $i = 1 To $total
; Modification des attributs des Fichiers/Dossiers du répertoire.
;FileSetAttrib($FileList[$i], "-RAH", 1)
$nMsg = GUIGetMsg()
if $nMsg = $GUI_EVENT_CLOSE then
Exit
EndIf
; Si le $FileList[$i] est un répertoire on fait un DirRemove.
If StringInStr(FileGetAttrib($FileList[$i]), "D") Then
DirRemove($FileList[$i], 1)
Else
; Sinon on fait un FileDelete.
local $result = FileDelete($FileList[$i])
if $result = 1 then
GUICtrlSetData($dossier_en_cours,$dir)
GUICtrlSetData($path,$FileList[$i])
$nb_file = $nb_file + 1
GUICtrlSetData($file_number,$nb_file)
EndIf

EndIf
; Fin de la boucle.

Next
EndFunc ;==>_EmptyDir

Lister les objets d’une OU active directory

Gael Biletta — Mon, 19 Sep 2011 15:11:29 +0000

Encore un petit bout de code AutoIT.

Cette fois ci je vous propose de lister facilement tous les objets d’une OU active directory

#include <AD.au3>
#include <GuiConstantsEx.au3>
#include <Date.au3>
#include <file.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <StaticConstants.au3>

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Liste les objets d'une OU Active Directory", 448, 87, 333, 162)
Global $IOU = GUICtrlCreateCombo("Please Wait...", 80, 16, 353, 25)
Global $Label1 = GUICtrlCreateLabel("Select OU", 8, 16, 53, 17)
Global $GO = GUICtrlCreateButton("GO", 360, 48, 75, 25, $WS_GROUP)
Global $sOU
Global $aOUs

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_AD_Open()
_listOU()

While 1
Global $nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GO
Global $sOU = GUICtrlRead($IOU)
For $i = 1 To $aOUs[0][0] Step 1
if $aOUs[$i][0] = $sOU Then
$sOU = $aOUs[$i][1]
EndIf
Next
_listObject()
ExitLoop
EndSwitch
WEnd

; ******************************************************
; Fonction pour lister les OU
;*******************************************************
Func _listOU()
Local $listecombo
Global $aOUs = _AD_GetAllOUs("OU=" & "," & $sAD_DNSDomain)

If @error > 0 Then
MsgBox(64, "Erreur", "Impossible de joindre l'AD")
Else
For $i = 1 To $aOUs[0][0] Step 1
$tempo = StringSplit($aOUs[$i][0], "\")

$listecombo = $listecombo & "|" & $aOUs[$i][0]
Next
EndIf
GUICtrlSetData($IOU, $listecombo)
EndFunc ;==>_listOU

; ******************************************************
; Fonction pour lister les Objet d'une OU
;*******************************************************
func _listObject()

Global $aObjects[1][1], $sSeparator

$aObjects = _AD_GetObjectsInOU($sOU, "(name=*)", 2, "sAMAccountName,distinguishedName,displayname")

If @error > 0 Then
MsgBox(64, "Active Directory Objects", "No OUs Object could be found")
Else
_ArrayDisplay($aObjects, "Active Directory Objects in '" & $sOU & "'")
Global $iResult = _AD_GetObjectsInOU($sOU, "(name=*)", 2, "sAMAccountName,distinguishedName,displayname", "", True)

EndIf

EndFunc

_AD_Close()

Lister les groupes AD d’un utilisateur avec AutoIT

Gael Biletta — Mon, 19 Sep 2011 15:05:10 +0000

Ce script est tout bête mais peut s’avérer fort pratique !

Si vous désirer lister rapidement les groupe Active Directory d’un utilisateur voici le code AutoIT :

#include <AD.au3>
#include <GuiConstantsEx.au3>
#include <Date.au3>
#include <file.au3>
#include <WindowsConstants.au3>
_AD_Open()

$user = InputBox("Liste des groupes AD d'un utilisateur","Entrer le Login","","",300,150)
;$groups =_AD_GetUserGroups($user)
$groups =_AD_GetGroupMembers($user)

_ArrayDisplay($groups)

_AD_Close()

Modifier les Quotas Exchange

Gael Biletta — Mon, 19 Sep 2011 14:38:19 +0000

Ce script AutoIT permet de modifier les Quotas Exchanges de plusieurs comptes utilisateur.

Le fichier Liste.txt contient la liste des utilisateur à modifier

Le script propose ensuite quelle valeurs de Quota voulez vous appliquer sur ces comptes.

Le script modifie les attributs suivant :

Emettre un avertissement : mDBStorageQuota
Interdire l’envoi à partir de : mDBOverQuotaLimit
Interdire l’envoi et la réception à partir de : mDBOverHardQuotaLimit

Télécharger les sources : AutoIT – Quota Bal.Zip
Code source :

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\example_gui_au3\img\send.ico
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version : 3.3.6.0
Auteur: GAEL BILETTA

Date modification du script : 08/07/2011

Fonction du Script :
Configuration de la limite de quota pour les BAL Exchange
#ce ----------------------------------------------------------------------------

#include
#include
#include

; On purge le fichier de résultats (suppression et création)
FileDelete(@ScriptDir & "\result.csv")
_FileCreate(@ScriptDir & "\result.csv")

; On compte le nombre d'objet dans la liste
$object = ""
$nb_ligne = 0
$i = 0
$file = FileOpen("liste.txt", 0)
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$nb_ligne = $nb_ligne + 1
Wend
FileClose($file)

if MsgBox(4, "Modification Quota Exchange", "Il y a " & $nb_ligne & " objets à traiter dans le fichier liste.txt, voulez vous continuer ?") = 6 then

; Vérification des fichiers :
$file = FileOpen("liste.txt", 0)
$result = FileOpen("result.csv", 1)

; Vérifie si l'ouverture du fichier liste.txt est OK
If $file = -1 Then
MsgBox(0, "erreur", "Merci de fermer le fichier liste.txt")
Exit
EndIf
; Vérifie si l'ouverture du fichier result.txt est OK
If $result = -1 Then
MsgBox(0, "erreur", "Merci de fermer le fichier result.csv")
Exit
EndIf

$QuotatAdvert=InputBox("Config Quota Avertissement","Message d'avertissement à partir de (Taille en Ko)","450000")
$QuotaLimit=InputBox("Config Quota Limite emission","Bloquage de l'emission à partir de (Taille en Ko)","500000")
$QuotaHardLimit=InputBox("Config Quota Limite Reception","Blocage en réception à partir de (Taille en Ko)","650000")
$erreur = 0
FileWrite($result, "distinguishedName;Quota Actif;Avertissement;Interdire l'envoi;Interdire la reception" & @CRLF) ; on ecrit le titre des colonnes du fichier result.csv

; Boucle de traitement (pour chaque ligne du fichier liste.txt on récupère le nom de l'objet et on effectue les modification dans AD)

While 1
$object = FileReadLine($file) ; on lit le fichier ligne par ligne
If @error = -1 Then ExitLoop ; si le fichier retourne l'erreur -1 , fin du fichier et on sort de la boucle
$i = $i + 1 ; compteur incrémentiel pour lister les étapes

; Ouverture de la base AD
_AD_Open()
SplashTextOn ( "Modification Quotas Exchange" & " - Avertissement: " & $QuotatAdvert/1000 & " Mo" & " - Emission: " & $QuotaLimit/1000 & " Mo" & " - Reception: " & $QuotaHardLimit/1000 & " Mo", "Traitement de l'objet - " & $i & "/" & $nb_ligne & " : " & $object, 550 , 50 , -1 , -1 , 4 , "arial" , 1 , 10)

; Récupère le nom complet de l'objet "FQDN"
$DN = _AD_GetObjectAttribute($object , "DistinguishedName")
$QuotatDefaut = _AD_GetObjectAttribute($object , "mDBUseDefaults")
;$QuotatAdvert = _AD_GetObjectAttribute($object , "mDBStorageQuota")
;$QuotaLimit = _AD_GetObjectAttribute($object , "mDBOverQuotaLimit")
;$QuotaHardLimit = _AD_GetObjectAttribute($object , "mDBOverHardQuotaLimit")

;if $QuotaLimit and $QuotatDefaut <> "True" Then

;$QuotaHardLimit = $QuotaLimit + ($QuotaLimit / 100) * 30

$SetQuotaAdvert = _AD_ModifyAttribute($DN, "mDBStorageQuota", "" & $QuotatAdvert & "")
$SetQuotaLimit = _AD_ModifyAttribute($DN, "mDBOverQuotaLimit", "" & $QuotaLimit & "")
$SetQuotaHardLimit = _AD_ModifyAttribute($DN, "mDBOverHardQuotaLimit", "" & $QuotaHardLimit & "")

;EndIf

FileWrite($result, $DN & ";" & $QuotatDefaut & ";" & $QuotatAdvert & ";" & $QuotaLimit & ";" & $QuotaHardLimit & @CRLF) ; on ecrit dans le fichier result.txt

_AD_Close()

Wend

splashOff()

; On ferme l'utilisation des fichiers
FileClose($file)
FileClose($result)

if $erreur <> 0 then
MsgBox(0, "Fin de l'opération", "Il y a " & $erreur & " opérations en erreur, consultez le fichiers result.csv")
EndIf
MsgBox(0, "Modification des Quota", "Opération terminée. Consulter le fichier result.csv")

EndIf

Installer Windows 8 sur VirtualBox, même quand ça ne fonctionne pas…

Gael Biletta — Mon, 19 Sep 2011 11:38:38 +0000

Après avoir téléchargé Windows 8, j’ai eu quelques galères pour l’installer dans une machine virtuelle Virtualbox. Je suis donc resté dans ma honte quelques heures à bidouiller toutes les options et à fureter sur les forums et j’ai enfin réussi ! Je vais donc vous expliquer comment faire, si au boot de Windows 8, aussi bien avec une machine virtuelle tournant sous Windows que sous Linux, vous rencontrez les erreurs suivantes :

Compter need to restart 0xFFFFFFE6 0x0000001F 0×00000000 0x81B3C6

Your PC ran into a problem that it couldn’t handle, and now it needs to restart.
You can search for the error online : HAL_INITIALIZATION FAILED

(Oui, c’est bien la tronche du nouvel écran bleu. Personnellement, je l’adore !)

Etape 1 : Vérifiez que vous avez bien activé l’option de virtualisation dans le Bios de votre ordinateur.

Pour vérifier que votre processeur supporte bien cette option, vous pouvez télécharger ce softfourni par Intel ou celui-ci fourni par AMD. Pour Linux, je ne sais pas s’il existe une commande capable de dire ça mais j’imagine que oui. Si vous la connaissez, ça m’intéresse.

Si vous êtes sous Linux, lancez un terminal et entrez la commande suivante :

Pour un proc Intel :

grep --color vmx /proc/cpuinfo

Pour un proc AMD :

grep --color svm /proc/cpuinfo

Vous devrez voir alors vmx ou svm s’afficher en couleur. Si c’est le cas, c’est bon, votre processeur supporte la virtualisation. Sinon, c’est mort, vous n’avez plus qu’à changer de machine.

Ensuite, dans le bios de votre PC, partez à la recherche de la fameuse option de virtualisation alias VTx/VTd) et activez là !

Chez moi, c’était désactivé, d’où mes galères pour installer le machin

Voilà, déjà une bonne chose de faite.

Etape n°2 : Virtualbox

Il vous faut la dernière version… Une 4.1.2 au minimum.

Créez une nouvelle machine virtuelle, en choisissant Windows 7 comme système d’exploitation. (Et 64 bits, si vous prévoyez d’installer Windows en 64 bits)

Mettez 1 Go de mémoire au minimum

Créez un nouveau disque dur (VDI) de taille fixe… 20 Go semble bien mais vous pouvez mettre moins.

Une fois le disque créé, et la machine virtuelle créée, allez faire un tour dans les paramètres de la machine virtuelle.

Dans Système, onglet Carte Mère, choisissez le chipset PIIX3, et cochez uniquement la case IO-APIC et celle concernant le périphérique de pointage absolu.

Dans l’onglet Processeur, choisissez le nombre de processeur équivalent à celui de votre ordinateur et activez PAE/NX

Enfin, dans l’onglet accélération, cochez les 2 cases (VTx et pagination imbriquée)

Dans Affichage, cochez les 2 cases d’accélération (2D et 3D)

Ensuite, dans la section stockage, on va enlever le disque en SATA et le remettre en IDE. Celui-ci doit être en maitre primaire et le lecteur DVD en maitre secondaire.

Chargez ensuite l’ISO de Windows 8. Si vous ne l’avez pas encore téléchargé, c’est par ici que ça se passe.

Le reste des options, vous pouvez laisser tel quel.

Et ensuite, y’a plus qu’à démarrer la machine virtuelle et à croiser les doigts. Pour l’install de Windows, je vous laisse vous débrouiller. C’est tellement intuitif que vous n’avez pas besoin de moi !

2 choses à savoir :

Pour que les widgets fonctionnent, il faut passer votre écran en 1024×768 au minimum. Je me demandais pourquoi rien ne se lançait lorsque je cliquais comme un acharné sur le widget Météo, mais j’ai trouvé ! Pour changer la résolution, cliquez sur le widget « Desktop », clic droit sur le bureau « Screen Resolution »
Si une résolution supérieure n’est pas disponible, il vous faudra installer les outils Virtualbox (Guest Additions), merveilleusement bien traduits en français par Additions Invité. Cliquez sur « Installez les Additions invité » dans le menu « Périphériques » pour monter l’ISO dans Windows

Mais pas de bol, ces derniers ne s’installent pas sous Windows 8. J’ai essayé et je me suis retrouvé avec ça :

Rendez vous sur le CD monté, et faites un clic droit -> Properties sur le binaire VBoxWindowsAdditions-x86. Ensuite dans l’onglet « Compatibility », cochez la case « Run this program… » et sélectionnez Windows 7. Validez et relancez ensuite VBoxWindowsAdditions-x86.exe. Tout devrait s’installer parfaitement, vous donnant accès à toutes les possibilités de la machine virtuelle (et aux résolutions d’écran plus hautes).

Sur l’un de mes ordis, j’ai eu l’erreur suivante : « ERROR: Could not install files for Windows 2000 / XP / Vista! Installation aborted » et je n’ai malheureusement pas encore trouvé la solution. Donc si quelqu’un a une idée, je suis preneur.

Si après ce tuto, vous rencontriez encore des petits soucis, n’hésitez pas à jouer avec les options… Par exemple, en changeant le chipset de la carte mère dans Virtualbox. On ne sait jamais, sur un malentendu…