Error running compiled script

[Chinoman10]

Hello everyone,

So... I get this error:

Error: Array variable has incorrect number of subscripts or subscript dimension range exceeded.

But only if I run the program after compiling. So if I open the script editor and run it, all is good, but if I just run the script from the Explorer, or run the .exe, they both give the error...

Any suggestions?

 

Thanks in advance,

Chinoman10.

[jchd]

Refill line 1743 with a new cobalt nitroxide cartridge.

Seriously?

[TheDcoder]

jchd meant You need to provide more info if you want us to help you, TD

[jchd]

Obviously! This can be found in good place in the cobalt nitroxide cartridge user manual.

[Chinoman10]

Alright, I guess I could figure that out. I was just assuming this could be some sort of generic problem.

Here's my entire script: https://github.com/Chinoman10/My-First-Repo/blob/master/AutoIT Scripts/Shutdown Network Interfaces.au3

 

Kind regards,

Chinoman10.

[JohnOne]

Add some simple error checking before every array use IsArray should suffice.

Also, why not just post your code here in future?

expandcollapse popup

#cs ----------------------------------------------------------------------------
 AutoIt Version: 3.3.12.0
 Author:         Chinoman10
 Script Function:
    Disable useless Local Area Connection interfaces.
#ce ----------------------------------------------------------------------------
#include <Array.au3>
#include <AutoItConstants.au3>

#RequireAdmin

Start()

Func Start()

    Local $sFileName = 'output.txt'
    Local $sCommand = 'netsh interface show interface'
    Local $iPID = Run (@ComSpec & ' /C ' & $sCommand & ' > ' & $sFileName, @ScriptDir, @SW_HIDE)
    ProcessWaitClose($iPID)

    Local $sOutput = FileRead($sFileName)
    FileDelete($sFileName)

    Local $aArray = StringSplit(StringTrimRight(StringStripCR($sOutput), StringLen(@CRLF)), @CRLF)
    _ArrayDelete($aArray, "0-1")
    _ArrayDelete($aArray, "1")
    Local $aArray2 = ConvertArray1Dto2D($aArray)

    If @error Then
       MsgBox($MB_SYSTEMMODAL, "", "It appears there was an error.")
    Else
        ; Display the results.
        $sTitle = $aArray2[0][0]
        For $i = 1 To UBound($aArray2,2)-1
            $sTitle &= '|' & $aArray2[0][$i]
        Next
;       _ArrayDisplay($aArray2, 'Output', "1:99", 32+64, Default, $sTitle)
    EndIf

    ShutdownInterfaces($aArray2)
EndFunc


Func ShutdownInterfaces($aArray2)

;   netsh interface set interface name="Local Area Connection 2" admin=DISABLED
    For $i = 1 To UBound($aArray2)
        Local $sInterfaceName = $aArray2[$i][3]

        if StringRegExp($sInterfaceName, "Local Area Connection") And StringRegExp($aArray2[$i][0], "Enabled") Then
;           MsgBox($MB_SYSTEMMODAL, "Shuting down Interface", $sInterfaceName)
            Local $sCommand = 'netsh interface set interface name="' & $sInterfaceName & '" admin=disabled'

            Local $iPID = Run ( @ComSpec & ' /C  ' & $sCommand ,'',@SW_HIDE)
        ;   ProcessWaitClose($iPID)

        EndIf
    Next

    Exit

EndFunc

Func ConvertArray1Dto2D($aArray)
    Dim $aArray2[UBound($aArray)][4]

    For $i = 0 To UBound($aArray)-1
        $sTemp = StringRegExpReplace($aArray[$i], ' {2,20}', ',')

        $aSplitted = StringSplit($sTemp, ',')

        For $j = 1 To UBound($aSplitted)-1
            $aArray2[$i][$j-1] = $aSplitted[$j]
        Next
    Next

;   _ArrayDisplay($aArray2)

    Return $aArray2
EndFunc

 

[Chinoman10]

 

Add some simple error checking before every array use IsArray should suffice.

Also, why not just post your code here in future?

 Because I didn't want to make a long post, and I already had my code on GitHub, so why would I copy and paste it again? And it's also more readable there, since you can have tabs...

Anyways... I didn't do error checking because the code wouldn't give me any error if I open the editor and run the script... In my head, the script makes sense, and all works just fine, it just error's when running outside the editor... being it .au3 or .exe ...

Can you try on your computer and see if it gives you can error as well?

 

Thanks in advance,

Chinoman10.

[JohnOne]

The forum will put your code in same size box, no matter how long it is, it's simple for forum members to see it rather than navigate away, some won't even bother clicking.

The whole point of error checking is so you can pinpoint the error, 

Before you try to use an array...

If Not IsArray($therarray) Or Ubound($thearray) < $whatever_you_think_it_should_be Then

    MsgBox(0,"Error Array", "Trying to use $thearray")

    Exit

EndIf

 

[Chinoman10]

But... if I run the script normally, I know where the code is having an error, since it tells me very clearly where it is.

My question isn't where it's having the problem, but knowing why it's "blowing up" only when not inside the editor.

You're misunderstanding the whole point of why I created this thread in the first place.

 

Thanks anyways.

Regards,

Chinoman10.

[JohnOne]

I'm not missing the point, you have a problem with your compiled script, error checking will help you find exactly where that problem is in your compiled script and thus allow you to fix it.

If you refuse to believe that, then you lave a long haul ahead of you before you finally do.

Best of luck.