If and Elseif Wildcards?

[911radio]

I threw together a little gui to allow the user to change IP, DNS etc. between 2 different networks. Just prior to their clicking a button to change the settings, I wanted to give them a little info about the current network (if any) they were on based on the IP address. I want to know if I can change the label based on only a portion of the current IP address that is being returned, hence the wildcards. The following are just the pertinent code snippets, not the code for the whole program. Thanks!

CODE

TCPStartup()

$ip = TCPNameToIP(@ComputerName)

If $ip = "192.168.4.*.*" Then

$netwk = "Office"

ElseIf $ip = "192.168.5.*.*" Then

$netwk = "PS Wireless"

ElseIf $ip = "10.10.2.*.*" Then

$netwk = "Schools"

ElseIf $ip = "169.*.*" Then

$netwk = "Not Connected"

EndIf

$Label1 = GUICtrlCreateLabel("Current Network: " & $netwk, 24, 56, 202, 17)

[ken82m]

You could do this:

CODE

TCPStartup()

$ip = TCPNameToIP(@ComputerName)

If StringLeft($ip, 10) = "192.168.4." Then

$netwk = "Office"

ElseIf StringLeft($ip, 10) = "192.168.5." Then

$netwk = "PS Wireless"

ElseIf StringLeft($ip, 8) = "10.10.2." Then

$netwk = "Schools"

ElseIf StringLeft($ip, 4) = "169." Then

$netwk = "Not Connected"

EndIf

$Label1 = GUICtrlCreateLabel("Current Network: " & $netwk, 24, 56, 202, 17)

[911radio]

I tried that too and when it runs (with my IP of 192.168.5.x) the "Current Network:" shows up blank.

[Andreik]

Try this:

TCPStartup()
$ip = TCPNameToIP(@ComputerName)
$SPLIT = StringSplit($ip,".")

If IsArray($SPLIT) Then
    If $SPLIT[1] = "192" And $SPLIT[2] = "168" And $SPLIT[3] = "4" Then
        $netwk = "Office"
    ElseIf $SPLIT[1] = "192" And $SPLIT[2] = "168" And $SPLIT[3] = "5" Then
        $netwk = "PS Wireless"
    ElseIf $SPLIT[1] = "10" And $SPLIT[2] = "10" And $SPLIT[3] = "2" Then
        $netwk = "Schools"
    ElseIf $SPLIT[1] = "169"
        $netwk = "Not Connected"
    EndIf
EndIf

$Label1 = GUICtrlCreateLabel("Current Network: " & $netwk, 24, 56, 202, 17)

[911radio]

Thanks Andreik! Worked like a charm!

Edit: One quick question, whats the easiest and most reliable way to refresh the IP and update the status?

Edited October 9, 2008 by 911radio

[Andreik]

If you want without GUI, you can use this to refresh status after 30 sec.

While 1
    $ntwk = GetNetwork()
    TrayTip("Network",$ntwk,5)
    Sleep(30000)
WEnd

Func GetNetwork()
$ip = TCPNameToIP(@ComputerName)
$SPLIT = StringSplit($ip,".")

If IsArray($SPLIT) Then
    If $SPLIT[1] = "192" And $SPLIT[2] = "168" And $SPLIT[3] = "4" Then
        $netwk = "Office"
    ElseIf $SPLIT[1] = "192" And $SPLIT[2] = "168" And $SPLIT[3] = "5" Then
        $netwk = "PS Wireless"
    ElseIf $SPLIT[1] = "10" And $SPLIT[2] = "10" And $SPLIT[3] = "2" Then
        $netwk = "Schools"
    ElseIf $SPLIT[1] = "169"
        $netwk = "Not Connected"
    EndIf
EndIf
Return  $netwk
EndFunc

Edited October 9, 2008 by Andreik

[911radio]

Yeah, that took out my GUI completely. Can't have that

[Andreik]

With GUI:

expandcollapse popup

#include <GUIConstants.au3>

#region - GUI Create
GUICreate('Network',100,80)
$BUTTON = GUICtrlCreateButton("CHECK",5,5,90,20)
$LABEL = GUICtrlCreateLabel("",5,30,90,40)
GUISetState()
#endregion

#region - GUI SelectLoop
While 1
    $MSG = GUIGetMsg()
    Select
        Case $MSG = $GUI_EVENT_CLOSE
            Exit
        Case $MSG = $BUTTON
            GUICtrlSetData($LABEL,GetNetwork())
    EndSelect
WEnd
#endregion

Func GetNetwork()
$ip = TCPNameToIP(@ComputerName)
$SPLIT = StringSplit($ip,".")

If IsArray($SPLIT) Then
    If $SPLIT[1] = "192" And $SPLIT[2] = "168" And $SPLIT[3] = "4" Then
        $netwk = "Office"
    ElseIf $SPLIT[1] = "192" And $SPLIT[2] = "168" And $SPLIT[3] = "5" Then
        $netwk = "PS Wireless"
    ElseIf $SPLIT[1] = "10" And $SPLIT[2] = "10" And $SPLIT[3] = "2" Then
        $netwk = "Schools"
    ElseIf $SPLIT[1] = "169" Then
        $netwk = "Not Connected"
    EndIf
EndIf
Return  $netwk
EndFunc