Error parsing function call

[Seahorse 0]

I am receieving the following error with my script after converting to au3.

Error parsing function call

My intension is to convert into EXE but receive the error.

The script works ok when executed as vbs with its original coding but after being converted it no longer works.

I have uploaded the file for your perusal and would greatly appreciate any help you can provide.

My experience with scripting is very basic but I have a number of scripts in use to make my life easier which I would like to share with colleagues as EXE.

I am currently attempting to better my scripting skills and would like to begin using AutoIt as an alternative to vbs.

Thank you

Kind Regards

Seahorse

script.au3

[water 2,387]

Something like this?

$WshShell = ObjCreate("WScript.Shell")

Global $nAble = 0
$aGateway = StringSplit(DefaultGateway(), ".")
Select
    Case $aGateway[0] = "172"
        $nAble = 1
    Case $aGateway[0] = "192"
        $nAble = 0
    Case Else
        $nAble = 0
EndSelect
$WshShell.RegWrite("HKCU\software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", $nAble, "REG_DWORD")
$WshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", $nAble, "REG_DWORD")

Func DefaultGateway()
    Local $Return = "", $oDG, $oDGs, $WMI
    $WMI = ObjGet("winmgmts:\\.\root\cimv2")
    $oDGs = $WMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=" & True)
    For $oDG In $oDGs
        If $oDG.defaultIPGateway(0) <> "0.0.0.0" Then
            $Return = $oDG.DefaultIPGateway(0)
            ExitLoop
        EndIf
    Next
    Return $Return
EndFunc ;==>DefaultGateway

[Seahorse 0]

Thank you

I'll give it a go and report back.

[Seahorse 0]

Thank you

It does appear to be working without error.

Unfortunately it is performing the oposite function to what I'd like it to.

Case $aGateway[0] = "172"

$nAble = 1

Case $aGateway[0] = "192"

$nAble = 0

Case Else

$nAble = 0

To me this looks fine but I'm sure I'm missing something.

I have changed it to remove the "192" and left Case Else to disable instead.

This has made no difference. I'm wondering whether the script is skipping the detection of the default gateway and simply blanking the registry DWORD.

Could the ordering be out slightly?

Thank you

[water 2,387]

Insert some ConsoleWrite statements so you can see what's going on:

$WshShell = ObjCreate("WScript.Shell")

Global $nAble = 0
$Result = DefaultGateway()
$aGateway = StringSplit($Result, ".")
ConsoleWrite("Gateway: " & $Result & @CRLF)
ConsoleWrite("Gateway[0]: " & $aGateway[0] & @CRLF)
Select
    Case $aGateway[0] = "172"
    $nAble = 1
    Case $aGateway[0] = "192"
    $nAble = 0
    Case Else
    $nAble = 0
EndSelect
ConsoleWrite("$nAble: " & $nAble & @CRLF)
$WshShell.RegWrite("HKCU\software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", $nAble, "REG_DWORD")
$WshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", $nAble, "REG_DWORD")

Func DefaultGateway()
    Local $Return = "", $oDG, $oDGs, $WMI
    $WMI = ObjGet("winmgmts:\\.\root\cimv2")
    $oDGs = $WMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=" & True)
    For $oDG In $oDGs
    If $oDG.defaultIPGateway(0) <> "0.0.0.0" Then
    $Return = $oDG.DefaultIPGateway(0)
    ExitLoop
    EndIf
    Next
    Return $Return
EndFunc ;==>DefaultGateway