digital-nation

; *********************************************************
; Propriétés de l'exécutable
; *********************************************************
#Region
#AutoIt3Wrapper_Version=dev
#AutoIt3Wrapper_outfile=eiq.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description=Logiciel d'enquête
#AutoIt3Wrapper_Res_Fileversion=0.0.1.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=© Groumphy 2008
#AutoIt3Wrapper_Res_Language=2060
#AutoIt3Wrapper_Res_Field=Company|Privé
#AutoIt3Wrapper_Icon=monIcone.ico
#EndRegion

#NoTrayIcon
#include <GUIConstants.au3>

; *********************************************************
; Déclaration des variables
; ********************************************************* 
Dim $s_fichierINI = "parametres.ini"
Dim $s_fichierResultat = "enquete.txt"
Dim $s_lectureSectionUtilisateur = IniReadSection($s_fichierINI, "UTILISATEURS")
Dim $i

_version("DEV")
_verificationFichierResultat()

Func _routineIdentification()
For $i = 1 To $s_lectureSectionUtilisateur[0][0]
If $s_lectureSectionUtilisateur[$i][0] = @UserName Then
If $s_lectureSectionUtilisateur[$i][1] = "Y" Then _GUI()
Else
;MsgBox(0, "", "Ne rien faire")
EndIf
Next
EndFunc

Func _GUI()
MsgBox(0, "", "lancement GUI")
#Region ### START Koda GUI section ### Form=i:\script\en développement\enquete satisfaction it\gui_enqueteinformatique.kxf
GUICreate("Enquête informatique", 272, 219, 246, 115)
GUICtrlCreateLabel("Afin d'optimiser son efficacité, le service informatique ", 10, 10, 254, 17)
GUICtrlCreateLabel("vous demande de répondre à la question suivante :", 10, 30, 256, 17)
GUICtrlCreateGroup(" Qualité du support : ", 25, 55, 225, 105)
GUICtrlCreateLabel("Veuillez choisir dans la liste déroulante.", 35, 75, 185, 17)
GUICtrlCreateLabel("Quelle est la qualité du support donné ?", 35, 95, 190, 17)
$cbx_ChoixListeDeroulante = GUICtrlCreateCombo("Sélectionnez votre choix", 35, 115, 200, 25, -1, -1)
GUICtrlSetData($cbx_ChoixListeDeroulante, "Excellente|Très bonne|Bonne|Médiocre|Très mauvaise")
GUICtrlSetTip($cbx_ChoixListeDeroulante, "Faite votre choix dans la liste déroulante")
GUICtrlSetCursor ($cbx_ChoixListeDeroulante, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$btn_Valider = GUICtrlCreateButton("&Valider", 160, 175, 100, 33, 0)
GUICtrlSetTip($btn_Valider, "Valider l'enquête informatique")
GUICtrlSetCursor ($btn_Valider, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Case $cbx_ChoixListeDeroulante
Case $btn_Valider
$cbx_ChoixListeDeroulante = GUICtrlRead($cbx_ChoixListeDeroulante)
If $cbx_ChoixListeDeroulante = "Sélectionnez votre choix" Then
MsgBox(0 + 32, "Information", "Vous n'avez effectué aucun choix dans la liste déroulante.")
Else
MsgBox(0, "Tracking", "Choix : " & $cbx_ChoixListeDeroulante)
GUISetState(@SW_HIDE)
; Lancer l'écriture dans un fichier texte !!
Dim $s_OuvertureFichier
$s_OuvertureFichier = FileOpen($s_fichierResultat, 1)
FileWriteLine($s_OuvertureFichier, @UserName & @TAB & $cbx_ChoixListeDeroulante)
FileClose($s_OuvertureFichier)
_ChangeValeurINI("N")
MsgBox(0, "", "Valeur changée en N, sortie")
EndIf
EndSwitch
WEnd
EndFunc

Func _ChangeValeurINI($s_Valeur)
IniWrite($s_fichierINI, "UTILISATEURS", @UserName, $s_Valeur)
EndFunc

Func _verificationFichierResultat()
If NOT FileExists($s_fichierResultat) Then 
MsgBox(0, "Erreur", "Pas de fichier résultat !")
Exit
ElseIf NOT FileExists($s_fichierINI) Then
MsgBox(0, "Erreur", "Pas de fichier d'initialisation")
Exit
Else
_routineIdentification()
EndIf
EndFunc

Func _version($s_typeVersion)
If $s_typeVersion = "DEV" Then
$s_typeVersion = "Le logiciel lancé est en devélopement et est présenté à titre d'idée. V.DEV"
ElseIf $s_typeVersion = "ALPHA" Then
$s_typeVersion = "Le logiciel lancé est en développement et nécessite encore des améliorations " & @CR & _
"toutefois il est parfaitement exploitable. V.ALPHA"
ElseIf $s_typeVersion = "BETA" Then
$s_typeVersion = "Le logiciel lancé est en version de test et nécessite encore des corrections " & @CR & _
"Merci de faire un feedback à xxxx. V.BETA"
ElseIf $s_typeVersion = "PROD" Then
$s_typeVersion = ""
EndIf
If NOT $s_typeVersion = "" Then
MsgBox(0 + 64, "Information", $s_typeVersion)
EndIf
EndFunc

[UTILISATEURS]
USER1=Y
USER2=Y
# on continue les utilisateurs au fur et à mesure, 
# seul le login compte. La valeur N ne fera aucun effet sur la fonction

USER1 (espace blanc, tabulation...) CoteDonnées (ici Médiocre, bonne, excellente...)
USER2 Bonne
USER3 Excellente

Cher utilisateur de Microsoft Outlook,

Merci d'utiliser Microsoft® Office Outlook®. D'après les informations dont nous disposons, vous utilisez Outlook pour accéder à un compte de messagerie Windows Live™ Hotmail® avec un protocole appelé DAV (Distributed Authoring and Versioning). Tout comme POP3 ou IMAP, DAV est la façon dont un client de messagerie communique avec un serveur de messagerie Web.

Nous avons tenu à informer nos utilisateurs les plus fidèles qu'à partir du 30 juin 2008, Microsoft désactivera le protocole DAV, ce qui signifie que vous ne pourrez plus accéder à votre boîte de réception Hotmail via Outlook.

En conséquence, nous vous conseillons de télécharger Microsoft Office Outlook Connector pour Windows Live Hotmail, complément gratuit de Microsoft Office Outlook 2007 et 2003. La dernière version de ce complément vous permettra de gérer facilement votre compte de messagerie Windows Live Hotmail à partir d'Outlook, de même que vos autres comptes de messagerie POP3/IMAP. Mieux encore : Microsoft Office Outlook Connector synchronisera également vos contacts, ainsi que votre calendrier* (si votre service le prend en charge) !

Téléchargez Microsoft Office Outlook Connector pour Windows Live Hotmail.

http://www.microsoft.com/Downloads/details.aspx?FamilyID=7aad7e6a-931e-438a-950c-5e9ea66322d4&displaylang=fr

Merci encore d'utiliser Outlook ! Il ne fait aucun doute que vous serez tout aussi satisfait par le de Microsoft Office Outlook Connector pour Windows Live Hotmail.



L'équipe Windows Live Hotmail



Questions fréquemment posées :

Pourquoi désactiver le protocole DAV ?

DAV est un protocole d'ancienne génération qui gère mal l'accès à des boîtes de réception volumineuses. Or, nous avons progressivement augmenté la capacité des boîtes de réception de nos utilisateurs (jusqu'à une capacité gratuite de 5 Go aujourd'hui), ce qui rendait nécessaire l'utilisation d'un protocole plus efficace.

Qu'est-ce qui remplace le protocole DAV ?

Nous avons mis au point un nouveau protocole, DeltaSynch, qui est beaucoup plus performant que DAV, en particulier pour gérer les boîtes de réception volumineuses. Il permet aux clients de messagerie de télécharger uniquement les modifications enregistrées depuis la dernière consultation du serveur. Ce fonctionnement est beaucoup plus efficace que celui de DAV, qui télécharge systématiquement tous les en-têtes de tous les dossiers.

DeltaSynch est-il compatible avec Outlook ?

Microsoft Office Outlook Connector pour Windows Live Hotmail offre un accès DeltaSynch pour Outlook.

J'ai une version d'Outlook antérieure à 2003. Puis-je utiliser Microsoft Office Outlook Connector ?

Microsoft Office Outlook Connector pour Windows Live Hotmail est compatible uniquement avec Microsoft Office Outlook 2007 et 2003. Pour synchroniser avec Windows Live Hotmail, vous devez passer à Microsoft Office Outlook 2007, qui vous aide à gérer votre temps et vos informations grâce à de nouvelles fonctionnalités très intéressantes. Vous pouvez ainsi retrouver en un clin d'oeil le message dont vous avez besoin, gérer facilement vos priorités quotidiennes grâce à la nouvelle Barre des tâches et communiquer avec vos contacts en publiant votre calendrier en ligne ou en envoyant des cartes de visite électroniques personnalisées !

Microsoft propose également Windows Live Mail, client gratuit de nouvelle génération qui permet de gérer facilement plusieurs comptes de messagerie (Windows Live Hotmail et autres) prenant en charge les protocoles POP3/IMAP. Windows Live Mail s'intègre également très bien aux autres services Windows Live, est optimisé pour une utilisation avec Windows Live Hotmail et offre les avantages suivants :

Utilisation hors connexion
Regroupement des comptes Windows Live Hotmail pour les utilisateurs disposant de plusieurs comptes Hotmail
Regroupement des comptes de messagerie POP et IMAP
Puissance des fonctionnalités de partage de photos
Recherche avancée via une intégration à Desktop Search
Outils garantissant la sécurité (fonctionnalités de protection contre les virus, le hameçonnage et le courrier indésirable pour tous les utilisateurs dépourvus de logiciel antivirus)
Intégration aux services Windows Live, y compris Windows Live Spaces
Regroupement des flux RSS (Real Simple Syndicat)
Possibilité d'envoyer des SMS à un appareil mobile à partir de Windows Live Mail
Vous pouvez télécharger Windows Live Mail à partir de : http://get.live.com/wlmail/overview.



*La synchronisation du calendrier, des tâches et des notes n'est pas disponible pour tous les services. Si votre service propose la synchronisation du calendrier, il assurera aussi celle des tâches et des notes. Pour en savoir plus, consultez la liste des possibilités offertes par votre service.



Microsoft respecte votre vie privée. Pour plus d'informations, consultez notre déclaration de confidentialité en ligne.

Microsoft Corporation, One Microsoft Way, Redmond, WA 98052, États-Unis

#Include <IE.au3>

Dim $s_iptBox
$s_iptBox = InputBox("Recherche Google","Que désirez-vous chercher sur Google ?")
_GoogleSearch($s_iptBox)
Exit

Func _GoogleSearch($strSearch)
    Local $o_IE
    $strSearch = StringReplace($strSearch," ","+")
    $o_IE = _IECreate ("http://www.google.com/search?hl=en&q=" & $strSearch)
EndFunc

REM DEFINITION DES VARIABLES
SET PRTSRV=NOMSERVERIMPRESSION
SET PRTSRVBCK=NOMSERVERIMPRESSIONBACKUP
CHANGE CLIENT /DEFAULT_PRINTERS
REM SUPPRESSION IMPRIMANTE
%LOGONSERVER%\NETLOGON\CON2PRT.EXE /F
IF %CLIENTNAME%==NOMDELASTATION Goto NOMSIGNET
:AUTRES
%LOGONSERVER%\NETLOGON\CON2PRT.EXE /CD \\%PRTSRV%\NOMDEPARTAGE
GOTO END
:NOMSIGNET
%LOGONSERVER%\NETLOGON\CON2PRT.EXE /CD \\%PRTSRV%\NOMDEPARTAGE
GOTO END
:END

EXIT

[SERVERS]
PRINTSERVER=NomDuServerImpression
LOGONSERVER=LogonServer
[USERNAME]
GROUMPHY=Imprimante1|Imprimante2
GROUMPHY2=0

Global Const $s_INI = "InstImpNetLogon.ini"

Global Const $s_C2P = "con2prt.exe"

Func _test()
            If NOT FileExists(@ScriptDir & "\" & $s_INI) Then _error($s_INI)
            If NOT FileExists(@ScriptDir & "\" & $s_C2P) Then _error($s_C2P)
EndFunc
Func _error($param1)
            MsgBox(0 + 16, "Error", "Fatal Error. Application 'Core' File Not Found." & @CR & _
                                                                                  "Error Code : " & @ScriptLineNumber & @CR & _
                                                                                  "File Code : " & $param1 & " not found." & @CR & @CR & _
                                                                                  "Please contact your System Administrator",10)
            Exit
EndFunc

Func _deletePrt()
            RunWait(@ScriptDir & "\" & $s_C2P & " /f")
EndFunc

Global Const $s_PrtServer = IniRead($s_INI, "SERVERS", "PRINTSERVER", "")
Global Const $s_LogonServer = IniRead($s_INI, "SERVERS", "LOGONSERVER", "")
Dim $s_UserName, $s_iniRead, $s_Compteur
            $s_UserName = @UserName
            $s_iniRead = IniRead($s_INI, "USERNAME", $s_UserName, "")
            $s_iniRead = StringSplit($s_iniRead, "|")

If $s_iniRead[1] = 0 Then
            MsgBox(0 + 64, "Information", "No printers to install... Exit of script.", 10)
            Exit
EndIf

$s_Compteur = 0
Do
            $s_Compteur = $s_Compteur + 1
            _installPrt($s_iniRead[$s_Compteur])
Until $s_Compteur = $s_iniRead[0]

Func _installPrt($param2)
            RunWait("\\" & $s_LogonServer & "\" & $s_C2P & " /c " & "\\" & $s_PrtServer & "\" & $param2)
EndFunc

$comm = RunWait("rundll32 printui.dll,PrintUIEntry /in /q /n\\" & $s_PrtServer & "\" & $param2, "", @SW_HIDE)

@ECHO OFF
CLS

ECHO ---------------------------------
ECHO Variables
ECHO ---------------------------------
ECHO Fichier : %~s0
ECHO Utilisateur : %1
ECHO (Vide au lancement du BATCH)
ECHO Password : %2
ECHO (Vide au lancement du BATCH)
PAUSE

WSCRIPT.EXE MSG.VBS %~s0

EXIT

' Passage de Variable BATCH VBS BATCH
' v0.3.19 (c) Groumphy


' Pose des variables
Dim Variable, UserName, Password, Executable

' Récupération du premier argument passé dans le VBS
' par le BATCH. Ligne de commande :
' WSCRIPT.EXE MSG.VBS Argument
Variable = wscript.arguments(0)

'Exposition de la variable récupérée
WScript.Echo "La variable est : " & Variable

' Demande du nom d'utilisateur par InputBox
UserName = InputBox("Quel est le nom d'utilisateur ?")

    ' Si le nom d'utilisateur est vide
    If IsNull(UserName) Then
        ' Message d'information d'erreur
        MsgBox "Erreur - Nom d'utilisateur incorrect."
    ' Sinon lancement de la suite de la procédure
    Else
        ' Demande du mot de passe par InputBox
        Password = InputBox("Quel est le mot de passe associé au nom d'utilisateur " & UserName)
        ' Si le mot de passe est vide
        If IsNull(Password) Then
            ' Message d'information d'erreur
            MsgBox "Erreur - Mot de passe incorrect."
        ' Sinon poursuite de la procédure
        Else
            ' Affichage de la variable, du nom d'utilisateur et du mot de passe
            WScript.Echo Variable & " " & UserName & " " & Password
            ' Définition de la variable en tant qu'objet du Shell
            Set Executable = CreateObject("WScript.Shell")
            ' Lancement de l'objet Shell contenant la variable, le nom
            ' d'utilisateur et le mot de passe
            Executable.Run Variable & " " & UserName & " " & Password
        End If
    End If

SET TEST=%1
IF NOT DEFINED TEST1 GOTO END

:END
EXIT

Mesdames, Messieurs,

Faisant suite à la publicité parue dans le Metro de ce jour, je désirais faire une commande d'un "livre photographie".
Malheureusement il ne m'est pas possible de pouvoir passer cette commande, en effet il est obligatoire de télécharger un logiciel (exécutable) uniquement compatible avec Microsoft Windows, hors je suis un utilisateur Linux.

Excepté si votre politique commerciale se limite aux utilisateurs de Microsoft Windows, auriez-vous une solution pour les utilisateurs étant sous un système d'exploitation basé sur Linux ?

D'avance un grand merci,

<link type="text/css" rel="stylesheet" href="css/SyntaxHighlighter.css"></link>
<script language="javascript" src="js/nom_du_langage.js"></script>
<!-- nom_du_language.js doit être remplacé par un élément existant et correspondant au language désirée, 
exemple pour le CSS : shBrushCss.js -->

<pre name="code" class="c-sharp">
 // Début du code... etc...
</pre>

<code poet>
  <windows>
  Linux : because rebooting is only for installing new hardware !
  </windows>
</code poet>

#Include <Date.au3>
Dim $acc, $delai, $alphabet, $msg1, $msg2
$acc = _DateToDayValue("2008","05","28")
Select
    Case ($acc - 31) < $acc
        SplashTextOn("Patienter", "Veuillez encore quelques temps 
patienter, " & @CR & _
                    "Construction en cours...", -1, -1, -1, -1)
        While ($acc - 31) < _DateToDayValue(@YEAR, @MON, @MDAY) > ($acc 
- 14)
            Sleep(1000)
        WEnd
        SplashOff()
    Case ($acc - 14) < _DateToDayValue(@YEAR, @MON, @MDAY) > ($acc + 14)
        SplashTextOn("Ouin", "Les jours sont comptés, cela " & _
                        "peut arriver d'une minute à l'autre !" & @CR & _
                        "Albine & Xavier sont heureux de " & _
                        "vous annoncer la venue au monde de ...")
        While ($acc - 14) < _DateToDayValue(@YEAR, @MON, @MDAY)
            Sleep(1000)
        WEnd
        SplashOff()
    Case $acc = _DateToDayValue(@YEAR, @MON, @MDAY)
        MsgBox(0 + 64, "Ouin !", "Albine et Xavier sont heureux " & _
                    "de vous annoncer la venue au monde de ..." & @CR & _
                    "Les autres informations, ne peuvent vous " & _
                    "être divulguée maintenant")       
EndSelect