AutoIt Error

DerekL · March 17, 2010

Hi Guy's,

I'm starting a script from a winpe environment, that uses a GUI and I'm getting an 'AutoIt Error' box come up that say's 'Line -1:' and then 'Error: Variable must be of type "Object" '

Can anyone give me some idea of what the error is and what to look for, I only get this on the compiled script, running it from the editor it works fine.

Thanks

Derek

Melba23 · March 17, 2010

DerekL,

The error is obvious - look at Line 3482!

M23

P.S. Seriously, why not post the code you are using and then we might be able to offer serious assistance.

trancexx · March 17, 2010

Error is related to used objects. You are probably calling some method or doing something with properties of some object that is not. Like this:

Global $oObject

$oObject.Wtf("is this?")

DerekL · March 17, 2010

Hi,

Thanks Melba23 very good

I have attached the script I'm using.

Cheers

Derek

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=AutoImageTest.exe
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; *** Start added by AutoIt3Wrapper ***
#include <Constants.au3>
; *** End added by AutoIt3Wrapper ***
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <string.au3>
#Include <Array.au3>
#Include <GuiTreeView.au3>
#include <process.au3>
#include <WinAPI.au3>
#include <GUIComboBox.au3>

; Script for the deployment of Windows 7 to Arm Machines around the world
; This first part of the script was created automatically by the Koda Forms Designer
; This Form=c:\users\derlam01\documents\winpe project\autoimage.kxf will be placed on the network share here *******  ADD SHARE LOCATION *********

; This the gimagex_com.dll setup
$initWimCtrl = ObjCreate("GimageX.GimageXCtrl")

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=c:\users\derlam01\documents\winpe project\autoimage.kxf
$Form1_1 = GUICreate("AutoImage 3.0 for Arm", 625, 536, 459, 170)
GUISetBkColor(0xC0DCC0)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1_1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1_1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1_1Restore")
$SelectWimLabel = GUICtrlCreateLabel("Select Wim File:", 56, 64, 117, 24)
GUICtrlSetFont($SelectWimLabel, 12, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent($SelectWimLabel, "SelectWimLabelClick")
$SelectModelLabel = GUICtrlCreateLabel("Select Model:", 56, 104, 100, 24)
GUICtrlSetFont($SelectModelLabel, 12, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent($SelectModelLabel, "SelectModelLabelClick")
$KeyboardLable = GUICtrlCreateLabel("Keyboard Layout:", 56, 144, 127, 24)
GUICtrlSetFont($KeyboardLable, 12, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent($KeyboardLable, "KeyboardLableClick")
$Keyboard = GUICtrlCreateCombo("", 184, 144, 209, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
;GUICtrlSetData(-1, "US|German|France|Norway|Belgium|Swedish") ; add other item snd set a new default
GUICtrlSetOnEvent($Keyboard, "KeyboardChange")
$TimeZoneLabel = GUICtrlCreateLabel("Time Zone:", 56, 184, 83, 24)
GUICtrlSetFont($TimeZoneLabel, 12, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent($TimeZoneLabel, "TimeZoneLabelClick")
$TimeZone = GUICtrlCreateCombo("", 184, 184, 209, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
;GUICtrlSetData(-1, "CET|Pacific (US)|Central (US)|Eastern (US)") ; add other item snd set a new default
GUICtrlSetOnEvent($TimeZone, "TimeZoneChange")
$ImageButton = GUICtrlCreateButton("Image", 48, 456, 89, 41, $WS_GROUP)
GUICtrlSetOnEvent($ImageButton, "ImageButtonclick")
$CaptureButton = GUICtrlCreateButton("Capture Image", 200, 456, 89, 41, $WS_GROUP)
GUICtrlSetOnEvent($CaptureButton, "CaptureButtonclick")
$MakeUSBButton = GUICtrlCreateButton("Make USB", 352, 456, 89, 41, $WS_GROUP)
GUICtrlSetOnEvent($MakeUSBButton, "MakeUSBButtonclick")
$CancelButton = GUICtrlCreateButton("Cancel", 496, 456, 89, 41, $WS_GROUP)
GUICtrlSetOnEvent($CancelButton, "CancelButtonclick")
$Progress1 = GUICtrlCreateProgress(88, 408, 449, 17)
$ProgressLabel = GUICtrlCreateLabel("Progress:", 88, 376, 71, 24)
GUICtrlSetFont($ProgressLabel, 12, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent($ProgressLabel, "ProgressLabelClick")
$ComputerNameLabel = GUICtrlCreateLabel("Computer Name:", 248, 224, 124, 24)
GUICtrlSetFont($ComputerNameLabel, 12, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent($ComputerNameLabel, "ComputerNameLabelClick")
$ComputerName = GUICtrlCreateInput("", 392, 224, 153, 21)
GUICtrlSetOnEvent($ComputerName, "ComputerNameChange")
$DomainNameLabel = GUICtrlCreateLabel("Domain", 56, 264, 63, 24)
GUICtrlSetFont($DomainNameLabel, 12, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent($DomainNameLabel, "DomainNameLabelClick")
$Domain = GUICtrlCreateCombo("", 160, 264, 193, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
;GUICtrlSetData(-1, "usa.arm.com|asiapac.arm.com") ; add other item snd set a new default
GUICtrlSetOnEvent($Domain, "DomainChange")
$UserNameLabel = GUICtrlCreateLabel("User Name:", 56, 304, 88, 24)
GUICtrlSetFont($UserNameLabel, 12, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent($UserNameLabel, "UserNameLabelClick")
$UserName = GUICtrlCreateInput("", 160, 304, 193, 21)
GUICtrlSetOnEvent($UserName, "UserNameChange")
$PassWordLabel = GUICtrlCreateLabel("Password:", 56, 344, 77, 24)
GUICtrlSetFont($PassWordLabel, 12, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent($PassWordLabel, "PassWordLabelClick")
$Password = GUICtrlCreateInput("", 160, 344, 193, 21)
GUICtrlSetOnEvent($Password, "PasswordChange")
$DriveBrowse = GUICtrlCreateButton("Browse", 400, 64, 65, 25, $WS_GROUP)
GUICtrlSetOnEvent($DriveBrowse, "DriveBrowseClick")
$SuggestModelLabel = GUICtrlCreateLabel("Suggested Model:", 56, 9, 421, 24)
GUICtrlSetFont($SuggestModelLabel, 12, 800, 0, "MS Sans Serif")
GUICtrlSetResizing($SuggestModelLabel, $GUI_DOCKWIDTH)
GUICtrlSetOnEvent($SuggestModelLabel, "SuggestModelLabelClick")
$wimfile = GUICtrlCreateInput("", 184, 64, 209, 21)
GUICtrlSetOnEvent($wimfile, "wimfileChange")
$Icon1 = GUICtrlCreateIcon("C:\Windows\System32\imageres.dll", -83, 512, 56, 57, 57, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetOnEvent($Icon1, "Icon1Click")
$Model = GUICtrlCreateCombo("", 184, 104, 209, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetOnEvent($Model, "ModelChange")
$KBoxAgent = GUICtrlCreateCheckbox("Install KBox Agent", 56, 219, 177, 33)
GUICtrlSetFont($KBoxAgent, 12, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent($KBoxAgent, "KBoxAgentClick")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Declare varibles here
Dim $wimfile, $SelectedWim, $hApplySourceEdit, $treeview, $read, $line, $systeminfo, $info, $sCmd, $ginfomodel, $ginfomake
Dim $lastcount, $dghostimage, $rno, $rdomain, $defdom, $rkeyboard, $defkey, $rTimeZone, $deftime

Dim $d, $k, $t
$d = 1
$k = 1
$t = 1

$lastcount = 0

; Start of Main ***************************************
Call("DomainChange")
Call("KeyboardChange")
Call("TimeZoneChange")
Call("GetSystemInfo")
While 1
    Sleep(100)
WEnd
; End of Main *****************************************

Func GetSystemInfo()

If FileExists("X:\ginfo.txt") Then
    FileDelete("X:\ginfo.txt")
EndIf

RunWait(@ComSpec & " /c " & 'systeminfo.exe /FO LIST > "X:\ginfo.txt"', @WindowsDir, @SW_HIDE)
    $systeminfo = FileOpen("X:\ginfo.txt",0)
    $line = FileReadLine($systeminfo,14)
    $ginfomodel = StringRight($line,7)
    $line = ""
    $line = FileReadLine($systeminfo,13)
    $ginfomake = StringRight($line,6)
    ;Msgbox(0,"Model is:",$ginfomake & " " & $ginfomodel)
    $dghostimage = IniRead("k:\imagelist.ini", "ImageRef2", $ginfomodel, "Image not found")
    $rno = IniRead("k:\imagelist.ini", "ImageNumber", $ginfomodel, "Image not found")
    ;MsgBox(1,"",$dghostimage)
    ;MsgBox(1,"",$rno)

GUICtrlSetData($SuggestModelLabel, "Suggested Model: " & $rno)

EndFunc

Func CancelButtonclick()
    Exit
EndFunc
Func CaptureButtonclick()
MsgBox(0,"Capture Image Button", "Sorry this function is not yet implemented")
EndFunc
Func ComputerNameChange()

EndFunc
Func ComputerNameLabelClick()

EndFunc

Func DomainChange()
    while $d = 1
        $rdomain = IniRead("k:\Domain.ini", "Domain", "Domain", "")
        $defdom = StringSplit($rdomain,"|")
        GUICtrlSetData($Domain, $rdomain, $defdom[1]) ; add Domain items snd set a new default
        $d = $d + 1
    WEnd
EndFunc

Func DomainNameLabelClick()

EndFunc

Func DriveBrowseClick()
Dim $x

If $lastcount > 0 Then
    GuiCtrlSetData($Model,"")
EndIf
$SelectedWim = FileOpenDialog("Open wim file:", "k:\", "Image (*.wim)", 2)
If @error Then
    MsgBox(4096,"","No File(s) chosen")
Else
    $SelectedWim = StringReplace($SelectedWim, "|", @CRLF)
    ;MsgBox(4096,"","You chose " & $SelectedWim)
    GUICtrlSetData ($wimfile,$SelectedWim)
    ;read in xml file
    $initWimCtrl.Source = $SelectedWim
    $initWimCtrl.GetWimInfo
    $lastcount = $initWimCtrl.ImageCount
    For $x = 1 to $initWimCtrl.ImageCount
        $initWimCtrl.ImageIndex = $x
        $initWimCtrl.GetImageInfo
        GUICtrlSetData ($Model,$initWimCtrl.ImageName)
    Next
EndIf
EndFunc

Func Form1_1Close()
    Exit
EndFunc
Func Form1_1Maximize()

EndFunc
Func Form1_1Minimize()

EndFunc
Func Form1_1Restore()

EndFunc
Func Icon1Click()

EndFunc
Func ImageButtonclick()
MsgBox(0,"Image Button", "Sorry this function is not yet implemented")

EndFunc
Func KBoxAgentClick()

EndFunc
Func KeyboardChange()
    While $k = 1
        $rkeyboard = IniRead("k:\Domain.ini", "Keyboardlocale", "Keyboardlocale", "")
        $defkey = StringSplit($rkeyboard,"|")
        GUICtrlSetData($Keyboard, $rkeyboard, $defkey[1]) ; add Keyboard items snd set a new default
        $k = $k + 1
    WEnd
EndFunc
Func KeyboardLableClick()

EndFunc
Func MakeUSBButtonclick()
MsgBox(0,"Make USB Button", "Sorry this function is not yet implemented")
EndFunc
Func ModelChange()

EndFunc
Func PasswordChange()

EndFunc
Func PassWordLabelClick()

EndFunc
Func ProgressLabelClick()

EndFunc
Func SelectModelLabelClick()

EndFunc
Func SelectWimLabelClick()

EndFunc
Func SuggestModelLabelClick()

EndFunc
Func TimeZoneChange()
    While $t = 1
        $rTimeZone = IniRead("k:\Domain.ini", "TimeZones", "TimeZones", "")
        $deftime = StringSplit($rTimeZone,"|")
        GUICtrlSetData($TimeZone, $rTimeZone, $deftime[1]) ; add TimeZones items snd set a new default
        $t = $t + 1
    WEnd
EndFunc
Func TimeZoneLabelClick()

EndFunc
Func UserNameChange()

EndFunc
Func UserNameLabelClick()

EndFunc
Func wimfileChange()

EndFunc

Edited March 17, 2010 by DerekL

Melba23 · March 17, 2010

DerekL,

First, when you post code please use Code tags. Put [autoit ] before and [/autoit ] after your posted code (but omit the trailing space - it is only there so the tags display here). Or press the blue button just under the BOLD toolbar button.

; -----

I would suspect that you are not creating the $initWimCtrl object at the start of your script. Then you would get the 'Variable must be of type "Object"' error when you attempt to access it in the DriveBrowseClick() function.

So, add some errorchecking to your script to confirm that you have a valid object in the variable after the ObjCreate call. As it says in the Help file:

Keep in mind that not all computers have the same set of Objects. So always check for errors after calling ObjCreate()

As to why the object is not being created when you compile....... The only other case I could find on the forum happened when the script was compiled for x64 - compiling for x86 worked. I do not know if that helps at all.

M23

DerekL · March 17, 2010

Hi Melba23,

Thanks for that, can't believe I missed that

Cheers

Derek

DerekL,

First, when you post code please use Code tags. Put [autoit ] before and [/autoit ] after your posted code (but omit the trailing space - it is only there so the tags display here). Or press the blue button just under the BOLD toolbar button.

; -----

I would suspect that you are not creating the $initWimCtrl object at the start of your script. Then you would get the 'Variable must be of type "Object"' error when you attempt to access it in the DriveBrowseClick() function.

So, add some errorchecking to your script to confirm that you have a valid object in the variable after the ObjCreate call. As it says in the Help file:

Keep in mind that not all computers have the same set of Objects. So always check for errors after calling ObjCreate()

As to why the object is not being created when you compile....... The only other case I could find on the forum happened when the script was compiled for x64 - compiling for x86 worked. I do not know if that helps at all.

M23

DerekL · March 18, 2010

Hi again,

I have been through the code and Dim'ed all the variables, but am still getting the error, it seems to be to do with this snippet of code:

Func GetSystemInfo()
    Msgbox(0,"Got to GetSystemInfo","GetSystemInfo")
    ; use a library to quickly grab some entries from the systeminfo information
    ;$test = _ComputerGetSystem($cinfo)
    _ComputerGetSystem($cinfo)
    For $i = 1 To $cinfo[0][0] Step 1
    Next

    Msgbox(0,"Got to _ComputerGetSystem",$cinfo)
    $ginfomake = $cinfo[1][21]
    $ginfomodel = $cinfo[1][22]

    ;Msgbox(0,"Model is:",$ginfomake & " " & $ginfomodel)
    ; read the list of images from the inifile for the corresponding model we've discovered
    $dghostimage = IniRead("k:\imagelist.ini", "ImageRef2", $ginfomodel, "Image not found")
    ; update the form field to show the select image file
    GUICtrlSetData($wimfile,"k:\" & $dghostimage)

    ; do the same for the model
    $rno = IniRead("k:\imagelist.ini", "ImageNumber", $ginfomodel, "Image not found")
    GUICtrlSetData($model, $rno)

    GUICtrlSetData($SuggestModelLabel, "Suggested Model: " & $rno)

EndFunc

It seems to be the _ComputerGetSystem($cinfo) line that is causing the problem, I have the #include <CompInfo.au3> statement in the script, but when I compile the script even although I have checked the box to Add required Constants *.au3 to your script, it doesn't appear to be doing it, CompInfo.au3 resides in C:\Program Files\AutoIt3\Include

Here's the text from the compile:

>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper_Gui.exe" /in "C:\Users\derlam01\Documents\WinPE Project\New Scripts\AutoImage.au3"

+>15:21:18 Starting AutoIt3Wrapper GUI v.2.0.0.0

-> 2 Change(s) made.

+>15:21:36 Starting AutoIt3Wrapper v.2.0.0.3 Environment(Language:0409 Keyboard:00000809 OS:WIN_VISTA/ CPU:X64 OS:X86)

+>Check for missing standard constants/udf include files: 0 include(s) were added

>Running AU3Check (1.54.14.0) from:C:\Program Files\AutoIt3

+>15:21:37 AU3Check ended.rc:0

>Running:(3.3.0.0):C:\Program Files\AutoIt3\aut2exe\aut2exe.exe /in "C:\Users\derlam01\Documents\WinPE Project\New Scripts\AutoImage.au3" /out "C:\Users\derlam01\Documents\WinPE Project\New Scripts\AutoImage.exe" /comp 3 /pack /Bin C:\Users\derlam01\AppData\Local\Temp\AutoItSC.bin

Ultimate Packer for eXecutables

UPX 3.03w Markus Oberhumer, Laszlo Molnar & John Reiser Apr 27th 2008

File size Ratio Format Name

-------------------- ------ ----------- -----------

612864 -> 290304 47.37% win32/pe AutoImage.exe

Packed 1 file.

+>15:21:42 Aut2exe.exe ended.rc:0

+>15:21:42 Created program:C:\Users\derlam01\Documents\WinPE Project\New Scripts\AutoImage.exe

->Warning: This is an Unicode compiled script and will not run on Win9x/ME.

+>15:21:42 AutoIt3Wrapper Finished

>Exit code: 0 Time: 24.698

Any idea's where I am going wrong.

Cheers

Derek

Melba23 · March 18, 2010

DerekL,

I have the #include <CompInfo.au3> statement in the script, but when I compile the script even although I have checked the box to Add required Constants *.au3 to your script, it doesn't appear to be doing it

If you have the line in your script, it will be included. The box just gets Autoit3Wrapper to add any Constants files you may have omitted.

CompInfo.au3 is full of object calls, so it is quite likely that your error is coming from there as you suspect. The _ComputerGetSystem function you call starts like this:

$objWMIService = ObjGet("winmgmts:\\" & $cI_Compname & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) Then

It looks as the code checks that $colItems is an object, but it does not for $objWMIService. Best to take it up with the author of the UDF - I am out of my depth here.

M23

JSThePatriot · March 19, 2010

Hi JSThePatriot,
Sorry to PM you without asking - I do apologise.
I was wondering if you could take a look at a Post in the General Forum I have posted called 'AutoIt Error' it's regarding your CompInfo.au3, I would be most grateful if you could add some idea's of what I can do to fix the problem. Do you think that adding a simple:
Local $cI_Compname = @ComputerName
at the start of the Function would do the trick?
Thanks in advance
Derek

Derek,

I'm happy to see you're using CompInfo.au3. I keep seeing the download numbers grow!

Okay now for the answer to your question. I have it setup the way it is due to your ability to use these commands remotely if you so choose. If you wanted to add a declaration for $cI_CompName then it would use that, and need no other declaration. However it checks to see if it's been defined. If not, it gives it the value of @ComputerName.

You seem to be having an object error. Have you checked to see if you have Win32_ComputerSystem in your list of WMI accessible objects? There's a script floating around here somewhere called Script-O-Matic I believe. It allows you to see all the available queries that can be run against WMI. It's a great tool. I use it's output all the time to quickly generate my example scripts.

Have you tried compiling a basic script that ONLY calls the function from the CompInfo.au3 library? Have you tried simply compiling the example that is associated with that function?

@Melba & Other helpers... Thanks!

Thanks,

Jarvis

DerekL · March 19, 2010

Hi Jarvis,

Thank you very much for your help, I haven't tried any of the suggestions yet!, but I have found the Script-O-Matic script, I'm sure that with this we will be able to crack the problem.

Once again thank you very much.

Regards

Derek

AutoIt Error

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members