code:

---

IF INGROUP ("Accounting")
USE P: "\\gbtacksrv01\apps"
USE S: "\\gbtacksrv01\@userid$$"
ELSE
USE P: "\\gbtsrv01\apps"USE S: "\\gbtsrv01\@userid$$"
ENDIF
IF INGROUP ("Domain Users")
USE S: "\\gbtacksrv01\shared"
USE LPT1: "\\gbtacksrv01\ackmitalj"
endif

---

code:

---

$IP = "x.x.x.x"
$SNmask = "y.y.y.y"
? CalcLogicalSubnet ($IP, $SNmask)

Function CalcLogicalSubnet ($IP, $SNmask)
   ; Version 2.0
   ; This function calculates the logical subnet for a given IP address and subnet mask.
   ; The $IP parameter can be padded with spaces as from @IPADDRESS0 or without
   ; as from EnumIPinfo().
   ;
   ; Sets two exit codes that are passed to @Error
   ; 1 = Improperly formatted IP address
   ; 2 = Octet out range (0-255)

   dim $IP, $SNmask
   dim $i         ;Counter for looping through 4 octets of the IP and subnet mask
   dim $arrayIP   ;Holds the string representation of the IP address octets.
   dim $arraySN   ;Holds the string representation of the subnet mask octet.
   dim $Subnet    ;Holds the string that becomes the logical subnet.
   dim $x, $y     ;Holds value of IP and SNmask octet.

   $arrayIP = split($IP, ".")
   $arraySN = split($SNmask, ".")

   If UBound($arrayIP) = 3 and UBound($arraySN) = 3
      For $i=0 to 3
         $x = Val(LTrim($arrayIP[$i]))
         $y = Val(LTrim($arraySN[$i]))
         If $x >= 0 and $x < 256 and $y >= 0 and $y < 256
            $Subnet = "" + $Subnet + ($x & $y) + "."
         Else
            Exit(2)
         Endif
      Next
      $CalcLogicalSubnet = substr($Subnet, 1, len($Subnet)-1)
      Exit(0)
   Else
      Exit(1)
   Endif
Endfunction

  

---

code:

---

if "your logical subnet" = CalcLogicalSubnet ($IP, $SNmask)
   do something...
endif  

---