ip address - Get first 2 bytes

[spymare 0]

HI. with _getip() or @ipaddress1 i can get my ip like this : 192.322.32.34

Is it possible somehow to get only the first 2 bytes? like 192.322 ?

[hannes08 35]

Hi spymare,

use StringSplit():

$arrayTemp = StringSplit("192.168.1.1",".")
$sFirstTwoBytes= $arrayTemp[1] & "." & $arrayTemp[2]

Regards,

Hannes

[UEZ 1,077]

Try this method:

$ip = "192.322.32.34"
$aOctets = StringRegExp($ip, "^(\d+\.\d+)", 3)
MsgBox(0, "IP", "1st 2 octets of " & $ip & " = " & $aOctets)

Br,

UEZ

Edit: I did not read carefully the 1st post

Edited December 3, 2010 by UEZ

[spymare 0]

thx it works but i need to get the ip address through _getip(), else i can do it like this:

if $sFirstTwoBytes Then

$outlook = _RunDos("start outlook.exe /c ipm.note /m helpdesk@bio.dtu.dk")

Else

MsgBox(16,"Error","You computer is not connected to System Biologi network")

endif

Edited December 3, 2010 by spymare

[spymare 0]

can anyone help me with this error when im not connected to internet i get a error (ipconfig /release)

#include <Process.au3>

#include <Inet.au3>

#include <Array.au3>

$test = (_getip())

$arrayTemp = StringSplit($test,".")

$sFirstTwoBytes= $arrayTemp[1] & "." & $arrayTemp[2]

if $sFirstTwoBytes Then

$outlook = _RunDos("start outlook.exe /c ipm.note /m helpdesk@bio.dtu.dk")

Else

MsgBox(16,"Error","You computer is not connected to System Biologi network")

endif

[UEZ 1,077]

Try this:

#include <Process.au3>
#include <Inet.au3>
#include <Array.au3>

$get = (_getip())

$chk_ip = "192.222"
$aOctets = StringRegExp($get, "^(\d+\.\d+)", 3)


if $get =  $aOctets[0] Then
$outlook = _RunDos("start outlook.exe /c ipm.note /m helpdesk@bio.dtu.dk")
Else
MsgBox(16,"Error","You computer is not connected to System Biologi network")
endif

Br,

UEZ

[spymare 0]

not working :/. tryed something like this :S:

$what = ("292.38.13.111")

$arrayTemp = StringSplit($what,".")

$test = $arrayTemp = (_getip())

$sFirstTwoBytes = $arrayTemp[1] & "." & $arrayTemp[2] $test

if $sFirstTwoBytes then

$outlook = _RunDos("start outlook.exe /c ipm.note /m helpdesk@bio.dtu.dk")

Else

MsgBox(16,"Error","You computer is not connected to System Biologi network")

endif