AutoIt Français

Code : Tout sélectionner

#include <Constants.au3>
#include "uc_start_servers.au3"
; Variables du script
$AppVersion = "0.2"

; Configuration
$StartDP = "Start.bat"
$StopDP = "Stop.bat"
$ZMWSServerPort = "8080"
$ZMWSCmdLineStart = "Start.bat" & $ZMWSServerPort
$ZMWSCmdLineStop = "Stop.bat" & $ZMWSServerPort

; Variables globales
Opt("TrayMenuMode", 1) ; Don't show the default tray context menu
; Recherche une sous-chaine dans le titre des fenêtre
Opt("WinTitleMatchMode", 1)

Global Const $MIM_APPLYTOSUBMENUS   = 0x80000000
Global Const $MIM_BACKGROUND        = 0x00000002
 

;TraySetIcon("shell32.dll", 21)
TraySetToolTip("Depann49 Manager)")

$mnuZMWSStart   = TrayCreateItem("Démarrer")
$mnuZMWSStop  = TrayCreateItem("Arrêter")
TrayCreateItem("")
$Appli = TrayCreateMenu("Application") 
$AppliDirect= TrayCreateItem("Application Direct", $Appli) 
$Gmap= TrayCreateItem("GoogleMap", $Appli) 

TrayCreateItem("")
$Admin = TrayCreateMenu("Administration")
$PHPMyAdmin= TrayCreateItem("PHPMyAdmin", $Admin)
$PANELADMIN = TrayCreateItem("Panel Admin", $Admin)

TrayCreateItem("")
$mnuAbout = TrayCreateItem("A propos")
$mnuQuit  = TrayCreateItem("Quitter")


While 1
    
    $Msg = TrayGetMsg()

    Switch $Msg
        Case $mnuZMWSStart
            ZMWSStart()

        Case $mnuZMWSStop
            ZMWSStop()
        
        Case $Appli            
         ShellExecute("http://127.0.0.1:9080/")     
      Case $AppliDirect           
         ShellExecute("http://127.0.0.1:9080/") 
      Case $Gmap          
         ShellExecute("http://depann49.free.fr/googlemap2.html")    


        Case $PHPMyAdmin            
         ShellExecute("http://127.0.0.1:9080/apanel/phpMyAdmin")                
        Case $PANELADMIN
            ShellExecute("http://127.0.0.1:9080/apanel/")   

        Case $mnuAbout
            Msgbox(64, "A propos...", "Depann49 Server Manager" & @CRLF & "Version AutoIt " & $AppVersion)

        Case $mnuQuit
            ZMWSStop()
            ExitLoop
    EndSwitch   
    


WEnd

Exit

;--------------------------------------------------------------------------------
; ZMWSStart : Start ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStart()
    Run($StartDP)
EndFunc


;--------------------------------------------------------------------------------
; ZMWSStop : Stop ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStop()
    Run($StopDP & " " & $ZMWSCmdLineStop)
EndFunc
 

Code : Tout sélectionner

TITLE UNIFORM SERVER - Start
COLOR B0
mode con:cols=60 lines=20
@echo off
cls
rem ###################################################
rem # Name: Server_Start.bat
rem # Location: uniform_sServer
rem # Created By: The Uniform Server Development Team
rem # Edited Last By: MPG (ric)
rem # V 1.0 21-1-2009
rem # V 1.1 28-2-2009 - Get Apache executable name
rem ##################################################
echo.

rem working directory current folder 
pushd %~dp0

rem  Command line parameters:
rem  Server_Start.bat %1 %2 %3
rem  %1 = Drive letter to use 0 auto-detection
rem  %2 = mysql (run MySql server) or nomysql (do not run MySql server)
rem  %3 = console (Open a command prompt at folder MySQL Bin)
rem Note: If using %2 you must set a value for %1
rem Note: If using %3 you must set values for %1 and %2
rem Note: Default, auto-drive detection, runs Apache and MySQL servers no command prompt.

rem ## Bail out if UniControler running
udrive\home\admin\program\pskill.exe UniController.exe >NUL
if not errorlevel 1 goto :UNICON

rem ## Has this Apache been started
if NOT exist udrive\usr\local\apache2\logs\httpd.pid goto :NOTSTARTED

rem ## It was srarted is it running
SET /P pid=<udrive\usr\local\apache2\logs\httpd.pid
netstat -anop tcp | FIND /I " %pid%" >NUL
IF ERRORLEVEL 1 goto :NOTRUNNING
IF ERRORLEVEL 0 goto :RUNNING

:NOTRUNNING
rem ## Not shutdown using server_stop.bat hence delete files
del udrive\usr\local\apache2\logs\httpd.pid
if exist udrive\usr\local\apache2\logs\drive.txt del udrive\usr\local\apache2\logs\drive.txt

:NOTSTARTED
rem ## Get ports from config files
udrive\usr\bin\perl  udrive\home\admin\program\get_port.pl apache
set apachep=%ERRORLEVEL%

udrive\usr\bin\perl  udrive\home\admin\program\get_port.pl ssl
set sslp=%ERRORLEVEL%

udrive\usr\bin\perl  udrive\home\admin\program\get_port.pl mysql
set mysqlp=%ERRORLEVEL%

rem ## Set initial dummy values for port check
set pass1=found
set pass2=found
set pass3=found


FIND "#LoadModule ssl_module" udrive\usr\local\apache2\conf\httpd.conf >NUL
IF NOT ERRORLEVEL 1  goto :SKIP

rem ## Check for another server on this Secure Apache port
netstat -anp tcp | FIND /I "0.0.0.0:%sslp% " >NUL
IF ERRORLEVEL 1 set pass2=notfound
goto :NOSKIP
:SKIP

set pass2=notfound
:NOSKIP

rem ## Check for another server on this Apache port
netstat -anp tcp | FIND /I "0.0.0.0:%apachep% " >NUL
IF ERRORLEVEL 1 set pass1=notfound

rem ## Check for another server on this MySQL port
netstat -anp tcp | FIND /I "0.0.0.0:%mysqlp% " >NUL
IF ERRORLEVEL 1 set pass3=notfound

if %pass1%==notfound if %pass2%==notfound if %pass3%==notfound goto NOTFOUND
echo.
echo  All three ports must be free to run the servers.
echo.
if %pass1%==notfound echo  Port %apachep%   is free - OK to run Apache server
if %pass1%==found echo  Port %apachep%   in use  - FAIL Cannot run Apache server
if %pass2%==notfound echo  Port %sslp%  is free - OK to run Secure Apache server
if %pass2%==found echo  Port %sslp%  in use  - FAIL Cannot run Secure Apache server
if %pass3%==notfound echo  Port %mysqlp% is free - OK to run MySQL server
if %pass3%==found echo  Port %mysqlp% in use  - FAIL Cannot run MySQL server
echo.
pause
goto END

:NOTFOUND
echo  Port %apachep%  est libre - Lancement du serveur Apache
echo  Port %mysqlp% est libre - Lancement du serveur MySQL 


rem ### Apache not running. Get free drive letter may be used later.
rem ## Find first free drive letter
for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do CD %%a: 1>> nul 2>&1 & if errorlevel 1 set freedrive=%%a

rem ## Use batch file drive parameter.
rem ## If dummy 0 or no parameter, use freedrive
set Disk=%1
if "%Disk%"=="0" set Disk=%freedrive%
if "%Disk%"==""  set Disk=%freedrive%

rem ## Option to force a drive letter, remove "rem" and change drive leter
rem set Disk=w

rem ## Having decided which drive letter to use create the disk
subst %Disk%: "udrive"
if errorlevel 1 goto :PROBLEM

rem ## Save drive letter to file for use by plugins.
(set /p dummy=%Disk%) >udrive\usr\local\apache2\logs\drive.txt <nul

rem ## Wait for drive to be established (created)
:next
udrive\home\admin\program\unidelay.exe
%Disk%: 
IF NOT EXIST %Disk%:\NUL GOTO :next

rem === Get Apache executable file name
FOR /F "tokens=*" %%i in ('dir /B usr\local\apache2\bin\Apache*') do SET Apache_exe=%%i

rem ### Drive was created. Create variables for paths and programs 
set apachepath=\usr\local\apache2\
set apacheit=%Disk%:%apachepath%bin\%Apache_exe% -f %apachepath%conf\httpd.conf -d %apachepath%.
set programit=%Disk%:\home\admin\program\
set closeit=%programit%close.bat %Disk%

rem ### Provide feedback to user
echo.
echo ----------------- LES URLS -----------------------
echo  Panneau de configuration http://127.0.0.1:9080/apanel/             
echo  Application DEPANN49: http://127.0.0.1:9080/
echo --------------------------------------------------
echo.

rem ### Start Apache server
start %programit%uniserv.exe "%apacheit%" "%closeit%"

rem ### Before starting Apanel wait for Apache to start 
rem ### Safety loop counter cnt give up after 60 seconds
echo  Lancement de l'application DEPANN49
rem home\admin\program\unidelay.exe 5

echo.
set /a cnt=0
:next1
set /a cnt+=1
if "%cnt%"=="60" goto :TIMEDOUT
%Disk%:\home\admin\program\unidelay.exe
%Disk%:\home\admin\program\pskill.exe %Apache_exe% > nul
IF ERRORLEVEL 1 goto :next1

%Disk%:\home\admin\program\unidelay.exe 2
rem ### Start Apanel



rem ### Start MySQL server - skip if requested not to start (%2)
if "%2"=="nomysql" goto :NOMYSQL
echo  Starting MySQL ...............

start %Disk%:\usr\local\mysql\bin\mysqld-opt.exe --defaults-file=/usr/local/mysql/my.cnf

%Disk%:\Orca\Orca.exe

:NOMYSQL

rem ### Does user want to run a command prompt, if not END 
if "%3"=="console" goto :CONSOLE
goto :END

:CONSOLE
rem ### User wants to run a command prompt. Opens in MySQL bin
rem ### Allows command clients to be used (musql.exe and mysqladmin.exe ) 

cd %Disk%:\usr\local\mysql\bin
start "UNIFORM SERVER MySQL Command prompt" cmd.exe 
goto :END


:TIMEDOUT
rem ### Apache failed to start. Kill virtual drive. Inform user
subst %Disk%: /D
echo.
echo Unable to start Apache Server
goto :PAUSE

:PROBLEM
echo.
echo The disk %Disk% could not be created!
goto :PAUSE

:UNICON
echo.
echo  You are currently running UniController!
echo.
echo  Stop UniController if you wish to use batch file control.
goto :PAUSE

:RUNNING
echo.
echo  This Apache server is already running.
echo  You can stop the server using Stop.bat

:PAUSE
echo.
pause

:END

rem restore original working directory
popd
EXIT
 

Code : Tout sélectionner

; File name: uc_servers_start_stop.u3
; Date: 22-11-2007
; Author: Mike Gleaves UniCenter
; Description: Start stop servers
; Test Script for testing start-stop unctions. Main code checks if drive is in use
#include <Array.au3>
#include <Constants.au3>

;GLOBAL VARIABLES
$drive_letter="z"                             ; server virtual drive, default w

;======== Snippet Part of main code ========================================
;check drive is free, exit script if in use
If uc_virtual_drive($drive_letter)Then ; is drive in use
   MsgBox(0, "Drive Test", $drive & ":Main: This drive is in Use either change the script or stop servers!"); ########
   Exit ; drive is in use take no action
EndIf

MsgBox(0, "Drive test", "Main :OK To Continue");############# Test

;Start servers
uc_start_servers($drive_letter) ; 

MsgBox(0, "Apache MySQL Started", "Main: Use servers OR Click to STOP SERVERS");######### Test

;Stop servers
uc_stop_servers($drive_letter) ; 
;======== END Snippet Part of main code ====================================


;=================== Is Virtual Drive ======================
;~ Function Checks if supplied drive leter is a virtual drive
;~ Input: Drive letter to be checked
;~ Ouput: True if exists on list else returns false
Func uc_virtual_drive($drive_leter)
    Local $drive = $drive_leter & ":" ; create drive to search for
    Local $is_virtual = False         ; flag
    Local $line =""                   ; DOS output string 
    Local $result = Run(@ComSpec & " /c subst ", "", @SW_HIDE ,$STDERR_CHILD + $STDOUT_CHILD)
    
    While 1  ; loop to grab output string
        $line = $line & StdoutRead($result)
        If @error Then ExitLoop
    Wend
    ;MsgBox(0, "Output from DOS", $line);##### Test
    
    Local $result_array = StringSplit($line, @LF) ; Split string at line boundaries
    
    for $i =1 to $result_array[0]                            ; loop through array
        Local $get_drive = StringLeft( $result_array[$i], 2) ; get first two characters
        ;MsgBox(0, "Drive to check", $get_drive);##### Test
        If ($get_drive = $drive)Then                         ; is it the drive we ar looking for
          $is_virtual = True                                 ; yes: set the flag
          ExitLoop                                           ; nothing else to do
        EndIf                                                
    Next                                                     ; keep chacking

   ;_ArrayDisplay($result_array, "Virtual drives used");##### Test

    Return $is_virtual 
EndFunc
;================== END Is Virtual Drive ===================

;==================== Start Servers =========================
;~ Function Start servers 
;  Set environment variable "Disk"
;  Create virtual drive
;  Start both Apache and MySQL servers
;  Start Apanel
;~ Input: Drive letter
;~ Ouput: None
Func uc_start_servers($drive_leter)
    Local $current_path = '"' & @ScriptDir & '"' ; get scripts current path
    Local $drive = $drive_leter & ":" ; convert driver-letter to drive
    
    ; Set environment variable "Disk" equal to drive letter
    EnvSet("Disk", $drive_leter) ; needed for Apanel to pick-up
    MsgBox(0, "Current Path", "uc_start_servers(): " & $current_path);######### Test
    
    ; create virtual drive to run servers on
    RunWait(@ComSpec & " /c subst " & $drive & " " &  $current_path & "\udrive", "", @SW_HIDE )
    MsgBox(0, "Drive Create", "uc_start_servers(): Drive created please check");######### Test
    
    ; Set Apache paths
    Local $apachepath = $drive & "\usr\local\apache2\bin\Apache.exe "        ;Apache executable
    Local $apacheconf = $drive & "/usr/local/apache2/conf/httpd.conf "       ;Apache configuration file
    Local $apacheroot = $drive & "/usr/local/apache2/"                       ;Apache root folder
    Local $apache =$apachepath & " -f " & $apacheconf & " -d " & $apacheroot ;Apache start string
    MsgBox(0, "uc_start_servers() Apache command", $apache);######### Test
    
    ; run Apache server. select w:, change directory to \usr\local\php required to pick-up libmysql.dll
    Run(@ComSpec & " /c " & $drive & " & cd \usr\local\php & " & $apache,"", @SW_HIDE )

    ; wait for Apache to run
    While Not ProcessExists("Apache.exe");wait for process to run
        Sleep(100)                       ;periodically check
    WEnd
    
    MsgBox(0, "Apache Run", "uc_start_servers(): Apache now running");######### Test
    
    ;StartApanel -- Server up and running safe to display apanel
    Run(@ComSpec & " /c " & $drive & " & \home\admin\www\redirect.html &","", @SW_HIDE )
    MsgBox(0, "Start Apanel", "uc_start_servers(): Apanel now started");######### Test

    ; Set MySQL paths
    $mysql_path ="\usr\local\mysql\bin\mysqld-opt.exe "              ; path to executable
    $mysql_conf =" --defaults-file=/usr/local/mysql/bin/my-small.cnf"; Mysql config file
    
    ; Run MySQL server
    Run(@ComSpec & " /c " & $drive & " & " & $mysql_path & $mysql_conf ,"", @SW_HIDE )
    MsgBox(0, "MySQL", "uc_start_servers(): MySQL Started");######### Test
        
EndFunc ;
;================= END Start Servers ========================

;===================== Stop Servers =========================
;~ Function Close servers and clean-up 
;  Stop Apache loop to close all processes
;  Close  MySQL process
;  Remove virtual drive
;  Delete environment variable "Disk"
;~ Input: Drive letter
;~ Ouput: None
Func uc_stop_servers($drive_leter)
    Local $drive = $drive_leter & ":" ; convert driver letter to drive
    ; close all apache processes
    While ProcessExists("Apache.exe") ; wait for all Apache processs to close
         ProcessClose ("Apache.exe")  ; kill named process
         Sleep(100)                   ; give process chance to close
    WEnd
    MsgBox(0, "Apache Close", "uc_stop_servers: Apache Stopped");######### Test
    
    ; close MySQL process
    ProcessClose ("mysqld-opt.exe")
    MsgBox(0, "MySQL Close", "uc_stop_servers: MySQL Stopped");######### Test
    
    ; delete drive created
    Run(@ComSpec & " /c subst " & $drive & " /D", "", @SW_HIDE)
    
    ; delete environment variable "Disk" 
    EnvSet("Disk", "") ; clean-up
EndFunc ;
;================== END Stop Servers ========================

Code : Tout sélectionner

;Autorun Splash Screen

Dim $ConfigFile ;Configuration File
Dim $ImageFile ;Image to be shown.  Must be BMP,GIF or JPG
Dim $ImageWidth ;Width of the image to display in pixels
Dim $ImageHeight ;Height of image in pixels
Dim $Title ;Title to be displayed
Dim $ShowTime ;Length of time to display image in seconds
Dim $ShowTitle ;Determine whether or not to display the title
Dim $ShowTitleSetting ;Setting for ShowTitle
$StartDP = "Start.bat"
$StopDP = "Stop.bat"
$ZMWSServerPort = "8080"
$ZMWSCmdLineStart = "Start.bat" & $ZMWSServerPort
$ZMWSCmdLineStop = "Stop.bat" & $ZMWSServerPort

; Variables globales
Opt("TrayMenuMode", 1) ; Don't show the default tray context menu
; Recherche une sous-chaine dans le titre des fenêtre
Opt("WinTitleMatchMode", 1)



;TraySetIcon("shell32.dll", 21)
TraySetToolTip("Depann49 Serveur)")

$mnuZMWSStart   = TrayCreateItem("Démarrer")
$mnuZMWSStop  = TrayCreateItem("Arrêter")
TrayCreateItem("")
$Appli = TrayCreateMenu("Application") 
$AppliDirect= TrayCreateItem("Application Direct", $Appli) 
$Gmap= TrayCreateItem("GoogleMap", $Appli) 

TrayCreateItem("")
$Admin = TrayCreateMenu("Administration")
$PHPMyAdmin= TrayCreateItem("PHPMyAdmin", $Admin)
$PANELADMIN = TrayCreateItem("Panel Admin", $Admin)

TrayCreateItem("")
$mnuAbout = TrayCreateItem("A propos")
$mnuQuit  = TrayCreateItem("Quitter")




If $ConfigFile = "Error" Then Exit

$ImageFile = IniRead($ConfigFile,"General","ImageFile","Logo.jpg")

If StringMid($ImageFile,2,1)<>":" and StringMid($ImageFile,2,1)<>"\" Then
    $ImageFile = @ScriptDir & "\" & $ImageFile
EndIf

If Not FileExists($ImageFile) Then Exit

$ImageHeight = IniRead($ConfigFile,"General","ImageHeight",160)
$ImageWidth = IniRead($ConfigFile,"General","ImageWidth",500)
$Title = IniRead($ConfigFile,"General","Title","Depann49 Serveur")
$ShowTime = IniRead($ConfigFile,"General","ShowTime",2)
$ShowTitle = IniRead($ConfigFile,"General","ShowTitle",False)

If $ShowTitle = True Then
    $ShowTitleSetting = -1
Else
    $ShowTitleSetting = 1
EndIf


SplashImageOn($Title,$ImageFile,$ImageWidth,$ImageHeight,-1,-1,$ShowTitleSetting)
Sleep($ShowTime * 500)
SplashOff()

#region Functions
Func _GetConfigFile($filename,$silent = False)
    Local $configfilename
    $configfilename = @ScriptDir & "\" & $filename

    If Not FileExists($configfilename) Then
        If Not $silent Then
            MsgBox(16,"File Missing","The file " & $filename & " is not available." & @CRLF & "Please ensure that it is located in the " & @ScriptDir & " directory." & @CRLF & "The application will now exit.")
            Exit
        EndIf
        SetError(1)
        Return "Error"
    EndIf
    Return $configfilename
EndFunc
#endregion
While 1
    
    $Msg = TrayGetMsg()

    Switch $Msg
        Case $mnuZMWSStart
            ZMWSStart()

        Case $mnuZMWSStop
            ZMWSStop()
        
        Case $Appli            
         ShellExecute("http://127.0.0.1:9080/")     
      Case $AppliDirect           
         ShellExecute("http://127.0.0.1:9080/") 
      Case $Gmap          
         ShellExecute("http://depann49.free.fr/googlemap2.html")    


        Case $PHPMyAdmin            
         ShellExecute("http://127.0.0.1:9080/apanel/phpMyAdmin")                
        Case $PANELADMIN
            ShellExecute("http://127.0.0.1:9080/apanel/")   

        Case $mnuAbout
            Msgbox(64, "A propos...", "Depann49 Server Manager" & @CRLF & "Version AutoIt " & $AppVersion)

        Case $mnuQuit
            ZMWSStop()
            ExitLoop
    EndSwitch   
    


WEnd

Exit

;--------------------------------------------------------------------------------
; ZMWSStart : Start ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStart()
    Run($StartDP)
EndFunc


;--------------------------------------------------------------------------------
; ZMWSStop : Stop ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStop()
    Run($StopDP & " " & $ZMWSCmdLineStop)
EndFunc

Code : Tout sélectionner

$csFilesDir = ""

If @Compiled Then
    If $CMDLINE[0] = 0 Then
        MsgBox(48, @ScriptName, "No directory specified for csfiles" & @CRLF & @CRLF & "USAGE: " & @ScriptName & " ''csfilesdir''" & _
                @CRLF & @CRLF & "Where ''csfilesdir'' is the directory of csfiles to zip.")
    Else
        $csFilesDir = $CMDLINE[1]
    EndIf
Else
    $csFilesDir = FileSelectFolder("Select folder with csfiles to zip", "")
EndIf

Select
    Case $csFilesDir = ""
        ;If $csFilesDir = "" Then
        MsgBox(48, @ScriptName, "No directory specified for csfiles" & @LF & @LF & "Exiting...")
        Exit
        ;EndIf
    Case Not FileExists($csFilesDir) Or Not FileExists($csFilesDir & "\csfil*.dat")
        MsgBox(16, @ScriptName, "'' " & $csFilesDir & " ''" & @CRLF & @CRLF & "is not a valid folder for csfiles: no csfiles found" & @LF & @LF & "Exiting...")
        Exit
        Exit
    Case Else
        $csFilesDir = StringStripWS($csFilesDir, 3)
        _ZipCsFiles($csFilesDir)
EndSelect


Func _ZipCsFiles($csFilesDir)
    $csFilesDir = FileGetShortName($csFilesDir)
    If StringRight($csFilesDir, 1) = "\" Then $csFilesDir = StringTrimRight($csFilesDir, 1)

    $WinZipAddCmd = "c:\Program Files\winzip\wzzip -a"
    $ZipFileName = $csFilesDir & "\csfiles"
    $WinZipSfxCmd = "C:\Program Files\WinZip Self-Extractor\WZIPSE32.EXE -y -auto"
   

    If FileExists($ZipFileName & ".zip") Then FileDelete($ZipFileName & ".zip")
    MsgBox(0,"",$WinZipAddCmd & " " & $ZipFileName & " " & $csFilesDir & "\csfil001.dat")
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & $csFilesDir & "\csfil001.dat")
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & $csFilesDir & "\csfil002.dat")
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & $csFilesDir & "\csfil003.dat")
    ;etc
    ;etc
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & $csFilesDir & "\csfil082.dat")
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & "L:\MAGIC9\rs\csctlv94.mcf")
    RunWait($WinZipAddCmd & " " & $ZipFileName & " " & "L:\MAGIC9\rs\csctlv94.mff")
    RunWait($WinZipSfxCmd & " " & $ZipFileName & " " & "-runasadmin -d c:\magic502\cs")
EndFunc   ;==>_ZipCsFiles

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

    AutoIt Version : 3.3.0.0
    Auteur:         MonNom

    Fonction du Script :
    Modèle de Script AutoIt.

#ce ----------------------------------------------------------------------------


Global $sMsg, $Drive, $Mysql, $Console
Global $Dir = "C:\Rep1\Rep2\"

; Teste du nombre d'argument passer en commande (Si aucun, alors affichage de l'aide puis on quitte).
If $CmdLine[0] = 0 Then
    _Aide()
    Exit
EndIf

; Lecture des paramètres et mise en variable.
If $CmdLine[1] Then $Drive = $CmdLine[1]
If $CmdLine[2] Then $Mysql = $CmdLine[2]
If $CmdLine[3] Then $Console = $CmdLine[3]

; ## Bail out if UniControler running
If Not RunWait(@ComSpec & ' /c "' & $Dir & 'udrive\home\admin\program\pskill.exe" UniController.exe', "", @SW_HIDE) Then 
    $sMsg = "You are currently running UniController!" & @CRLF & @CRLF & @CRLF
    $sMsg = "Stop UniController if you wish to use batch file control."

    MsgBox(32, "UniControler", $sMsg)
    Exit
EndIf

; ## Has this Apache been started
if FileExists($Dir & "udrive\usr\local\apache2\logs\httpd.pid") Then _NOTSTARTED()

; ## It was started is it running
$Pid = FileRead($Dir & "udrive\usr\local\apache2\logs\httpd.pid")
If RunWait(@ComSpec & ' /c ' & 'netstat -anop tcp | FIND /I " ' & $pid & '"', "", @SW_HIDE) Then 
    ; ## Not shutdown using server_stop.bat hence delete files
    FileDelete($Dir & "udrive\usr\local\apache2\logs\httpd.pid")
    FileDelete($Dir & "udrive\usr\local\apache2\logs\drive.txt")
Else
    _RUNNING()
EndIf

_NOTSTARTED()


; ##############################################################
; ####################  Fonctions Diverses  ####################
; ##############################################################
Func _NOTSTARTED()
    ...
    ...
    ...
EndFunc

Func _RUNNING()
    ...
    ...
    ...
EndFunc

Func _Aide()
    ; On prépare le message d'aide dans une chaine.
    $sMsg = "Command line parameters:" & @CRLF
    $sMsg &= "Server_Start.bat %1 %2 %3" & @CRLF
    $sMsg &= "%1 = Drive letter to use 0 auto-detection" & @CRLF
    $sMsg &= "%2 = mysql (run MySql server) or nomysql (do not run MySql server)" & @CRLF
    $sMsg &= "%3 = console (Open a command prompt at folder MySQL Bin)" & @CRLF
    $sMsg &= "Note: If using %2 you must set a value for %1" & @CRLF
    $sMsg &= "Note: If using %3 you must set values for %1 and %2" & @CRLF
    $sMsg &= "Note: Default, auto-drive detection, runs Apache and MySQL servers no command prompt."

    ; On affiche le message d'aide.
    MsgBox(16, "Syntaxe", $sMsg)
EndFunc   ;==>_Aide