Script help

[Gtek]

Hi

thanks in advance

Can one of you hardcore guys see way may script go's wrong.

it's my $input i can't get to continue and insert it in the Run line.

I have use the line $rc=_rundos 3 years ago and it worked whit the $input line, but alot have change .

i'm no big programer so i tryed this.

expandcollapse popup

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)

Global $ExitID, $input

_Main()

Func _Main()
    Local $imagesID, $installID

    GUICreate("Fineman Imaging", 310, 80)

    GUICtrlCreateLabel("Please select a action!", 10, 10)
    $ImagesID = GUICtrlCreateButton("Images", 10, 50, 50, 20)
    GUICtrlSetOnEvent($imagesID, "OnYes")
    $installID = GUICtrlCreateButton("Install", 80, 50, 50, 20)
    GUICtrlSetOnEvent($installID, "OnNo")
    $ExitID = GUICtrlCreateButton("Exit", 150, 50, 50, 20)
    GUICtrlSetOnEvent($ExitID, "OnExit")

    GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")

    GUISetState()  ; display the GUI

    While 1
        Sleep(1000)
    WEnd
EndFunc   ;==>_Main

;--------------- Functions ---------------
Func OnYes()
DriveMapAdd("y:", "\\10.0.1.17\public\teknik_images\ibase", 0)
    Local $iLoop = 1
             While $iLoop = 1
                     $input = InputBox("Image name", "Enter path and file name")
                        If @error = 1 Then
                           MsgBox(4096, "Error", "You pressed 'Cancel' - try again!")
                        Else
                           if $input = FileExists("y:\'& $input'.gho") Then
    Else
         $iLoop = 0
    EndIf
EndIf
WEnd

Run(@ComSpec & " /C " & 'Ghost64.exe -clone,mode=restore,src=\\10.0.1.17\public\teknik_images\ibase\'& $input'.gho,dst=1 -sure -auto',"")
If @error = 0 Then
                           MsgBox(4096, "Error", "error")
EndIf
drivemapdel ("Y:")
EndFunc   ;==>OnYes to image

Func OnNo()
    DriveMapAdd("y:", "\\10.0.1.17\public\teknik_images\ibase", 0)
     $input = InputBox("Image install name", "Enter file name")
        If @error = 1 Then
            MsgBox(4096, "Error", "You pressed 'Cancel' - try again!")
EndIf
Run(@ComSpec & " /C " & 'Ghost64.exe -clone,mode=create,src=1,dst=\\10.0.1.17\public\teknik_images\ibase\'& $input' -sure -auto',"")
If @error = 0 Then
                           MsgBox(4096, "Error", "error")
EndIf
drivemapdel ("Y:")
EndFunc   ;==>OnNo

Func OnExit()
    If @GUI_CtrlId = $ExitID Then
        MsgBox(64, "Exit", "Imaging Canceled")
    Else
        MsgBox(64, "Cancel", "Action Canceled")
    EndIf

    Exit
EndFunc   ;==>OnExit

[JLogan3o13]

Just at a glance, I can see errors on lines 48 and 61. Your @ComSpec call is missing an & after $input. If you have the full version of AutoIt installed along with SciTE, you should really use CTRL+F5 to check syntax. 

[Melba23]

Gtek,

Welcome to the AutoIt forum.

In future could you please give more descriptive titles to your threads - needing help is why people post here, a brief idea of the problem you are trying to solve is more useful.

M23

[Gtek]

Hi M23

Thanks and i will do so.

Hi jLogan3o13

Many thanks. no syntax error in line 48 and 61. that helped.

New error: will test and get back for more help

but so far Thanks again.

Gtek

[Gtek]

Hi Guys

Thanks

my script is up and running.

I use it with Winpe on a USB boot disk.

Script:

expandcollapse popup

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)

Global $ExitID, $input

_Main()

Func _Main()
    Local $imagesID, $installID

    GUICreate("Imaging", 310, 80)

    GUICtrlCreateLabel("Please select a action!", 10, 10)
    $ImagesID = GUICtrlCreateButton("Images", 10, 50, 50, 20)
    GUICtrlSetOnEvent($imagesID, "OnYes")
    $installID = GUICtrlCreateButton("Install", 80, 50, 50, 20)
    GUICtrlSetOnEvent($installID, "OnNo")
    $ExitID = GUICtrlCreateButton("Exit", 150, 50, 50, 20)
    GUICtrlSetOnEvent($ExitID, "OnExit")

    GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")

    GUISetState()  ; display the GUI

    While 1
        Sleep(1000)
    WEnd
EndFunc   ;==>_Main

;--------------- Functions ---------------
Func OnYes()
    Local $iLoop = 1
             While $iLoop = 1
                     $input = InputBox("Image name", "Enter path and file name")
                        If @error = 1 Then
                           MsgBox(4096, "Error", "You pressed 'Cancel' - try again!")
                        Else
                           if $input = FileExists("\\10.0.1.17\public\teknik_images\ibase\" & $input & ".gho") Then
    Else
         $iLoop = 0
    EndIf
EndIf
WEnd
EndFunc   ;==>OnYes to image

RunWait(@ComSpec & " /C " & 'Ghost64.exe -clone,mode=restore,src=\\10.0.1.17\public\teknik_images\ibase\'& $input & '.gho,dst=1 -sure -auto',"")
Exit         

Func OnNo()
     $input = InputBox("Image install name", "Enter file name")
        If @error = 1 Then
            MsgBox(4096, "Error", "You pressed 'Cancel' - try again!")
EndIf
RunWait(@ComSpec & " /C " & 'Ghost64.exe -clone,mode=create,src=1,dst=\\10.0.1.17\public\teknik_images\ibase\'& $input & '.gho -sure -auto',"")
Exit
EndFunc   ;==>OnNo

Func OnExit()
    If @GUI_CtrlId = $ExitID Then
        MsgBox(64, "Exit", "Imaging Canceled")
    Else
        MsgBox(64, "Cancel", "Action Canceled")
    EndIf

    Exit
EndFunc   ;==>OnExit

Gtek