WinPE

[arcker]

Ok, i work during holidays in my firm, and i'm incharge of deploying the new deployment system for the new PCs

we use WinPE

a guy have strated the script in batch, but i want to do everything as possible in autoit, not just a "gui" for those batch, to have a more monitored installation

so my question is, do you have some scripts and some advice to propose to me ?

for auto-installation of course, and more

thanx again ^^

Edited July 3, 2006 by arcker

[AzKay]

I think, theres some auto-installers in scripts and scraps

[Briegel]

At first begin to translate batch -> AutoIt.

Tell us what and how do you want to do.

Post your code if you have problems or want somebody to optimize your code.

[arcker]

ok, i've begun

i've four steps :

make usb key

make ISO

make WinPE image

add NDIS driver (ethernet driver)

here my first base

expandcollapse popup

#include <GuiConstants.au3>
#Include <GuiCombo.au3>

global $lettre
GUICreate("Creer ISO",500,200)

$exec=GUICtrlCreateButton("créer",10,120,100,20)
guictrlcreatelabel("Version WinPE",150,122,80,20)
guictrlcreatelabel("Version master",150,152,80,20)

$chemin=GUICtrlCreateLabel("chemin",10,80,150,20)
$labelversionwinpe=GUICtrlCreateInput("1.6",250,120,40,20)
$labelversionmaster=GUICtrlCreateInput("0.3",250,150,40,20)

$tab=GUICtrlCreateTab(5,10,490,100)
$makeimg=guictrlcreatetabitem("Creer clé bootable")
$combo=GUICtrlCreateCombo("",20,40,50,20)
$nom=guictrlcreatelabel("nom",70,40,80,20)
$liste=DriveGetDrive("removable")

$makeiso=GUICtrlCreateTabItem("Creer ISO")

$makewinpe=GUICtrlCreateTabItem("Creer image WinPE")
$adddriver=GUICtrlCreateTabItem("Ajouter un pilote")
if @error then
    msgbox(0,"Non détecté","Aucune clé détectée")
    Exit
EndIf   
for $i=1 to $liste[0]
    _GUICtrlComboAddString($combo,$liste[$i])
Next
_detectpdq()
GUISetState()
While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE 
            ExitLoop
        case $msg = $combo
            guictrlsetdata($nom,DriveGetLabel(guictrlread($combo)))
        case $msg = $exec
            select
            case guictrlread($tab) = 1 ;créer clé usb bootable
                $versionmaster=guictrlread($labelversionmaster)
                $versionwinpe=GUICtrlRead($labelversionwinpe)
                runwait("makeUFD.cmd " & guictrlread($combo) & " "&  $lettre,@ScriptDir)
                ;MsgBox(0,"","makeUFD.cmd " & guictrlread($combo) & " "&  $lettre,@ScriptDir)
            case guictrlread($tab) = 2 ; créer ISO
            case guictrlread($tab) = 3 ; créer image WinPE
            case guictrlread($tab) = 4 ; ajouter un pilote      
            EndSelect   
    EndSelect
WEnd
Exit

func _detectpdq()
    $trouve=0
    $listenet=DriveGetDrive("network")
    if not @error  then 
    for $i=1 to $listenet[0]
        ;msgbox(0,"",driveMapGet($listenet[$i]))
        if stringinstr(DriveMapGet($listenet[$i]),"pdq$") <> 0 then 
            ;msgbox(0,"","trouve")
            $trouve=1
            $lettre=$listenet[$i]
            ExitLoop
        EndIf   
    Next
    EndIf
    if $trouve=0 Then 
        $lettre=drivemapadd("*","\\a_path")
    EndIf
    GUICtrlSetData($chemin,$lettre & " - " & driveMapGet($lettre) )
EndFunc

Edited July 4, 2006 by arcker