Software X-INetConnect

[Settings]
Trace=0
IPPOOL_1=172.44.0.2-20
IPBIND_1=172.44.0.1
IgnoreUnknownClients=0

[00-1F-1F-3B-1C-99]
;OLPC 1
IPADDR=172.44.0.2
AutoConfig=08/18/2009 23:15:35
Hostname=OLPC_1
LeaseEnd=1251328445

[00-1A-89-ED-99-1C]
;OLPC 2
IPADDR=172.44.0.3
AutoConfig=08/18/2009 23:19:58
Hostname=OLPC_2
LeaseEnd=1251324827

:Initial
set currentline=iWireless
set nextinetline=iBluetooth
set isonline=false
set isavailable=false
call "C:\script\iHSDPA_Stop.cmd"
call "C:\script\iBluetooth_Stop.cmd"
call "C:\script\iWireless_Start.cmd"

:CheckUplink
call "C:\script\iCheckUplink.cmd"
if %isonline%==false (
goto :%nextinetline%
)

:CheckUplinkPrio
if NOT %currentline%==iWireless (
call "C:\script\iCheckUplinkPrio1.cmd"
if %isavailable%==true (
set isonline=false
goto :iWireless
)
)
goto :CheckUplink

:iwireless
set currentline=iWireless
if %isonline%==false (
call "C:\script\iBluetooth_Stop.cmd"
call "C:\script\iHSDPA_Stop.cmd"
call "C:\script\iWireless_Start.cmd"
if NOT %isonline%==false (
goto :CheckUplink
) else (
set nextinetline=iBluetooth
)
)
goto :CheckUplink

:iBluetooth
set currentline=iBluetooth
if %isonline%==false (
call "C:\script\iWireless_Stop.cmd"
call "C:\script\iBluetooth_Start.cmd"
if NOT %isonline%==false (
goto :CheckUplink
) else (
set nextinetline=iHSDPA
)
)
goto :CheckUplink

:iHSDPA
set currentline=iHSDPA
if %isonline%==false (
call "C:\script\iBluetooth_Stop.cmd"
call "C:\script\iHSDPA_Start.cmd"
if NOT %isonline%==false (
goto :CheckUplink
) else (
set nextinetline=iwireless
)
)
goto :CheckUplink

:Exit

for /f "tokens=2,3" %%d in ('ping tel.search.ch -n¬
    12 -l 4 -w 400^|find "Minimum"') do set isonline=%%e

if %isonline%==false (
    echo Line broken
    date /t
    time /t
    echo.
) else (
    echo Established
    set isonline=true
)

if %isavailable%==false (
    echo Best Uplink not available
) else (
    echo Best Uplink is available
    set isavailable=true
)

 ' Const
CONNECTION_ALL = 2

Set ParamX = WScript.Arguments

 ' 0 = disable only
 ' 1 = enable only
 ' 2 = random
If cint(ParamX(0)) >=0 OR cint(ParamX(0)) <=2  Then
    KEYSEC = ParamX(0)
Else
     ' Gueltiger Eintrag, sofern Script ohne
     ' Parameter aufgerufen wird.
     ' ### Modify Section, Start ###
    KEYSEC = 1
     ' ### Modify Section, End   ###  
End If

If cstr(ParamX(1)) <> "" Then
    Interface = ParamX(1)
Else
     ' Gueltiger Interfase Name, sofern Script ohne
     ' Parameter aufgerufen wird.
     ' Internal Interface Name with ip 192.168.0.1
     ' ### Modify Section, Start ###
    Interface = "iBluetooth"
     ' ### Modify Section, End   ###  
End If

set WshShell = WScript.CreateObject("WScript.Shell" )

if initialize() then
    if GetConnectionObjects() then
        if FirewallTestByName(Interface) then
            ChangeSharing()
        end if
    end If
    
     ' clear
    Set EveryConnection = Nothing
    Set Properties = Nothing
    Set NetSharingManager = Nothing
    Set Connection = Nothing
end if

function FirewallTestByName(InterfaceName)
    on error resume next
    dim Item
    dim Properties
    dim InterfaceExist

    InterfaceExist = FALSE
    for each Item in EveryConnectionCollection
        set EveryConnection = NetSharingManager.INetSharing¬
                               ConfigurationForINetConnection(Item)
        set Properties = NetSharingManager.NetConnectionProps(Item)
        if (ucase(InterfaceName) = ucase(Properties.Name)) then
            InterfaceExist = TRUE
            exit for     
        end if
    next
    FirewallTestByName = InterfaceExist
end function

function ChangeSharing()
    on error resume next
    if EveryConnection.SharingEnabled then
        If KEYSEC = 0 Or KEYSEC = 2 Then
            EveryConnection.DisableSharing
        End If
    else
        If KEYSEC = 1 Or KEYSEC = 2 Then
            EveryConnection.EnableSharing(ICSSHARINGTYPE_PUBLIC)
        end if
    end if
end function

function Initialize()
     'output TRUE or FALSE
    on error resume next

    dim Return
    Return = FALSE
    set NetSharingManager = Wscript.CreateObject("HNetCfg.HNetShare.1" )
    if (IsObject(NetSharingManager)) = FALSE then
        Wscript.Echo("The Internet Sharing Manager cannot be¬
           contacted.  Internet Connection Firewall may not be¬
           available on this interface." )
    else
        if (IsNull(NetSharingManager.SharingInstalled) = TRUE) then
            Wscript.Echo("Internet Connection Firewall may not¬
                be available on this interface." )
        else
            Return = TRUE
        end if
    end if
    Initialize = Return   
end function

function GetConnectionObjects()
    on error resume next
    dim Return
    dim Item

    Return = TRUE

    if GetConnection(CONNECTION_ALL) = FALSE then
        Return = FALSE
    end if

    GetConnectionObjects = Return
end function

 function GetConnection(CONNECTION_TYPE)
    on error resume next

    dim Return   
    dim Connection
    dim Item
    Return = TRUE

    if (CONNECTION_ALL = CONNECTION_TYPE) then
        set Connection = NetSharingManager.EnumEveryConnection
        if (Connection.Count > 0) then
            set EveryConnectionCollection = Connection
        else
            Return = FALSE
        end if
    else
        Return = FALSE
    end if

    GetConnection = Return   
end function