IP Lookup and Concatenate

[Robonglious]

Hello,

I'm very new to this but I love it so far. I've written a couple of really basic programs but I need to do a more complex one and I'm having some trouble with how it will work.

What I'd like to do is have the program look up the local IP Address and add that number with the last octet changed to 55 and save that to a variable.

Is this possible or does anyone have any directions I can look in?

Thanks in advance, this stuff is rad.

[UEZ]

Can you give an example what you mean?

Br,

UEZ

[Robonglious]

Yes,

What I want to do is have the program look up the IP address of the machine and save to a var. So lets say the IP of the machine is 10.XXX.XXX.XXX, the next step is to have the program change the last number of this series to 55 so it would read 10.XXX.XXX.55.

Does that make sense?

[armoros]

Sorry to ask but why to do that ?

[UEZ]

Something like that?

$ip = @IPAddress1
$new = StringRegExpReplace($ip, "(d{1,3}.d{1,3}.d{1,3}.)d{1,3}", "${1}55")
MsgBox(0, "Test", "New IP: "& $new)

Br,

UEZ

[Robonglious]

Hmmm, I'll need to look into that StringRegExpReplace.

This will be used to add network printers at different locations.

Thanks for your help UEZ, I'm pretty psyched about using this.

[UEZ]

Here another way:

$ip = @IPAddress1
$new = StringLeft($ip, StringInStr($ip, ".", 0, -1)) & "55"
MsgBox(0, "Test", "New IP: "& $new)

Br,

UEZ

[Robonglious]

Your addition is working perfectly but DOS is telling me "INVALID PARAMETER", I'll keep plugging away.

How did you find these things you are showing me?

[UEZ]

Your addition is working perfectly but DOS is telling me "INVALID PARAMETER", I'll keep plugging away.

How did you find these things you are showing me?

Practical knowledge.

Br,

UEZ

[Robonglious]

So the MVP title is well earned. Hopefully I can get up to speed to be able to make these types of things.

Thanks again for your help

[guinness]

I know UEZ has answered your question, but here's another SRE.

Local $sIPAddress = @IPAddress1
Local $sReturn = StringRegExpReplace($sIPAddress, '((d{1,3}.){3})d{1,3}', '${1}55')
MsgBox(4096, '', $sReturn & @CRLF)

Edit: Also just to show that there are more ways to achieve the same goal here is using the native AutoIt functions (though UEZ's is way more efficient! Hint: he doesn't use StringLen, therefore one less function call.)

Local $sIPAddress = @IPAddress1
Local $sReturn = StringTrimRight($sIPAddress, StringLen($sIPAddress) - StringInStr($sIPAddress, ".", 0, -1)) & "55"
MsgBox(4096, '', $sReturn & @CRLF)

Edited June 1, 2012 by guinness

[Robonglious]

I don't fully understand how StringInStr is working. It doesn't make sense how it takes off the last octet. I see that the string is declared and the substring is "." but it seems like this would subtract 3 each time which is incorrect.

I'm sure I just don't understand how this is working.

Thanks for your help

[JohnOne]

StringLen() is telling the length of the whole string

StringInStr() is telling the position of the last "."

So StringLen() - StringInStr() gives the number of chars to trim from the right.

Then concat 55

[Robonglious]

Great solutions, thanks everyone!

[Robonglious]

aha!:

[guinness]

Thanks JohnOne. I should've explained it in my post really, but wasn't think at the time.

Edited June 4, 2012 by guinness