AutoIt Français

Code : Tout sélectionner

;Test d'existence d'un lecteur M:
If $map <> "\\sfptf1nas1\Metaphase" Then
    DriveMapAdd("*", $map)
    DriveMapDel("M:")
    Sleep(1000)
    DriveMapAdd("M:", "\\sfptf1nas1\Metaphase")
EndIf

;Création du Raccourci Metaphase
FileCreateShortcut("M:\Metaphase\config\omfprod.bat", @DesktopDir & "\Metaphase", "M:\Metaphase\config", "", "Lancement de Metaphase", "M:\Metaphase\bin\omf.exe")

;Verification existence du Dossier C:\Metaphase
If FileExists("C:\Metaphase") Then
    FileCopy("M:\Metaphase\config\omfprod.bat", "C:\Metaphase\", 1)
    If @error Then
        RunAsWait($logSuser, $dom, $pwddom2, 0, DirCopy("C:\Metaphase", "C:\Metaphase.old")
        RunAsWait($logSuser, $dom, $pwddom2, 0, DirRemove("C:\Metaphase")
        RunAsWait($adminloc, @ComputerName, $pwdadminloc, 0, DirCreate("C:\Metaphase\"))
        FileCopy("C:\Metaphase.old\*", "C:\Metaphase\")
        DirRemove("C:\Metaphase.old")
    Else
        FileDelete("C:\Metaphase\omfprod.bat")
    EndIf

Else
    RunAsWait($adminloc, @ComputerName, $pwdadminloc, 0, DirCreate("C:\Metaphase\"))
EndIf

;Lancement de Metaphase - Création du File System
Run(@ComSpec & ' /k ' & 'M:\Metaphase\config\omfprod.bat',"M:\Metaphase\config")
WinWaitActive("OMF Login")
Send($logSuser&"{TAB}"&$pwdSuser&"{ENTER}")
WinwaitActive("Home Collection for nbaron")
MouseMove(0,0,1)
Send("!c{UP}{RIGHT}{UP}{UP}{RIGHT}{DOWN}{DOWN}{ENTER}")
sleep(1000)
Send($comp&"{TAB}{TAB}C:\Metaphase{TAB}ntfs{TAB}{TAB}{ENTER}")
sleep(500)
send("{ENTER}")
sleep(1000)
if WinExists("Attention") Then
        winclose("Attention")
        sleep(500)
        winclose("Create File System")
        sleep(500)
        WinClose("Home Collection for nbaron")
        sleep(500)
        WinwaitActive("Confirm")
        send("{ENTER}")
        sleep(500)
        winclose("omf.exe")
        WinClose("OMF Network")
        sleep(500)
        Winclose("C:\WINDOWS\system32\cmd.exe - M:\Metaphase\config\omfprod.bat")
        sleep(500)
        msgbox(0,"File System détecté","Le File System existe déjà")
    Else
        WinClose("Home Collection for nbaron")
        sleep(500)
        WinwaitActive("Confirm")
        send("{ENTER}")
        sleep(500)
        Winclose("omf.exe")
        WinClose("OMF Network")
        sleep(500)
        Winclose("C:\WINDOWS\system32\cmd.exe - M:\Metaphase\config\omfprod.bat")
        sleep(500)
        msgbox(0,"File System absent","Le File System n'existait pas, il a été créé")
EndIf

;Login sur le compte
Run(@ComSpec & ' /k ' & 'M:\Metaphase\config\omfprod.bat',"M:\Metaphase\config")
WinWaitActive("OMF Login")
Send($user&"{TAB}"&$pwd&"{ENTER}")
sleep(500)
if winexists("Attention") Then
    msgbox(0,"Problème de login","Le login windows attribué au compte "&$user&" n'est pas le même que celui qui a ouvert la session("&@Username&")")
Else
    MouseMove(0,0,1)
    WinWaitActive("Home Collection for "&$user)
    send("!c{DOWN}{DOWN}{RIGHT}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")
    WinWaitActive("Create Work Location")
    send("wl_"&$user&"_"&$comp)
   send("{TAB}{TAB}{TAB}C:\Metaphase\wl_"&$user&"_"&$comp)
    send("{ENTER}")
    sleep(1000)
    if winexists("Attention") Then
        winclose("Attention")
        winclose("Create Work Location")
        msgbox(0,"Work Location","La Work Location existe déjà")
    Else
        msgbox(0,"Work Location","La Work Location a été créée.")
    EndIf
EndIf

Local $ext
Local $ext2

Func _extension($ext)
    Send("{LWINDOWN}")
    Send("e")
    Send("{LWINUP}")
    WinActivate("Poste de travail")
    Send("!o{DOWN}{DOWN}{DOWN}{ENTER}")
    MsgBox(0, "", "1")
    WinActivate("Options des dossiers")
    MsgBox(0, "", "2")
    Send("+{TAB}")
    MsgBox(0, "", "3")
    Send("{RIGHT}{RIGHT}")
    MsgBox(0, "", "4")
    Send("{TAB}")
    Sleep(1000)
    Send($ext)
    MsgBox(0, "", 5)
    Send("!n")
    WinActivate("Créer une nouvelle extension")
    Send($ext & "{ENTER}")
    MsgBox(0, "", "8")
    Send("!m")
    MsgBox(0, "", "9")
    Send("!p")
    MsgBox(0, "", "10")
    Send("M:\Techview\Techview.exe{ENTER}")
    MsgBox(0, "", "OK")
    WinActivate("Ouvrir avec")
    WinClose("Ouvrir avec")
    WinActivate("Options des dossiers")
    WinClose("Options des dossiers")
    WinActivate("Poste de travail")
    WinClose("Poste de travail")
EndFunc   ;==>_extension

;_extension("hpgl")
;_extension("gl2")

Func _extension2($ext2)
    MouseMove(0, 0, 1)
    Send("{LWINDOWN}")
    Send("e")
    Send("{LWINUP}")
    WinActivate("Poste de travail")
    Send("!o{DOWN}{DOWN}{DOWN}{ENTER}")
    WinActivate("Options des dossiers")
    Send("+{TAB}")
    Send("{RIGHT}{RIGHT}")
    Send("{TAB}")
    Sleep(1000)
    Send($ext2)
    Send("!m")
    WinActivate("Ouvrir avec")
    Send("!p")
    Send("M:\Techview\Techview.exe{ENTER}")
    Send("{ENTER}")
    Sleep(500)
    WinClose("Ouvrir avec")
    Sleep(500)
    WinActivate("Options des dossiers")
    WinClose("Options des dossiers")
    Sleep(500)
    WinActivate("Poste de travail")
    WinClose("Poste de travail")
EndFunc   ;==>_extension2

;_extension2("tif")
;_extension2("tiff")