VBScript Bestimmtes Oktett der eigenen IP Adresse in Variable speichern

Guten Tag liebe Community!

Dies hier ist mein erster Beitrag/Frage. :P

Also:

Ich möchte mittels VBScript das dritte Oktett der IP Adresse meines aktiven LAN-Adapters in eine Variable zwischenspeichern.

Mehr brauche ich nicht. :D

Sicher legt ihr den Usern nahe, selbst, bzw. nur durch kleinere Hilfen ans Ziel zu kommen, aber in diesem Fall wäre ich euch wirklich dankbar, wenn ihr einfach den Code posten könntet, weil hier bin ich leider schon mit meinen Programmierkenntnissen am Limit :D

Vielen Dank schonmal im Vorraus !

YANNOSCH !

Dim oNetAdp, sIP3
    
For Each oNetAdp In GetObject("winmgmts:!\\.\root\cimv2") _  
                   .ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=True")  
    sIP3 = Split(oNetAdp.IPAddress(0), ".")(2)  
Next

If sIP3 = Empty Then MsgBox "nix aktiv" Else MsgBox sIP3