$RC = OpenFile(5, $file, 2) 

 
Function GetIPinfo()
    ; Purpose: Return network info on a computer where EnumIPinfo() fails.
    ; Uses ipconfig or winipcfg depending on @INWIN.
    ; Returns an array of three values: IP Addr., SN Mask, and Default Gateway.
    dim $IPinfo[2], $file, $RC, $Line, $pos, $loop, $x

    WriteLog("Gathering IP info using GetIPinfo()")
    $file = "%temp%\junk.txt"
    if @inwin=1
        shell "%comspec% /c ipconfig >$file"
    else
        shell "winipcfg /batch $file"
    endif
    $RC = OpenFile(5, $file, 2)
    if $RC = 0
        $Line=Readline(5)
        $loop = 1
        WHILE (@ERROR = 0 and $loop = 1)
            if instr($Line, "IP") > 1 and instr($Line, ". . :") > 0 and
               right($Line, 7) <> "0.0.0.0"
                $x = 0
                WHILE (@ERROR = 0 and $loop = 1)
                    $IPinfo[$x] = substr($Line, instrrev($Line, ":")+2)
                    if $x<2
                        $x = $x + 1
                        do
                            $Line=ReadLine(5)
                        until $Line <> "" or @error <> 0
                    else
                        $loop = 0
                    endif
                LOOP
            else
                $Line=ReadLine(5)
            endif
        LOOP
        $RC=Close(5)
        del $file
    endif
    $GetIPinfo = $IPinfo
Endfunction
 

  
; Getting IP Address Info
$IPaddr = EnumIPinfo(0,0)
if $IPaddr = "0.0.0.0" or $IPaddr = ""
$IPinfo = GetIPinfo()
$IPaddr = $IPinfo[0]
$SNmask = $IPinfo[1]
$Gateway = $IPinfo[2]
else
$SNmask = EnumIPinfo(0,1)
$Gateway = EnumIPinfo(0,3)
endif