setconsole
;$octet1 = octet 1 of the ipaddress
;$octet2 = octet 2 of the ipaddress
;$octet3 = octet 3 of the ipaddress
;$octet4 = octet 4 of the ipaddress
;$ipadr = ipaddress without spaces
;Ip-address opsplitsen voor eenvoudiger gebruik
$octet1 = Ltrim(SubStr(@IPADDRESS0, 1, 3)) ; Start positie 1ste octet en lengte
$octet2 = Ltrim(SubStr(@IPADDRESS0, 5, 3)) ; Start positie 2de octet en lengte
$octet3 = Ltrim(SubStr(@IPADDRESS0, 9, 3)) ; Start positie 3de octet en lengte
$octet4 = Ltrim(SubStr(@IPADDRESS0, 13, 3)) ; Start positie 4de octet en lengte
$IPADR = "$octet1.$octet2.$octet3.$octet4" ; weergave
;Zoeken in welk subnet de pc zit...
If ($octet2 = 18)
Goto Streekweg
EndIf
If ($octet3 = 46)
Goto Leuvensbroek
EndIf
If ($octet3 = 151)
Goto Eweg
EndIf
:Streekweg
Call $netlogon+"\printer.kix"
:Leuvensbroek
Call $netlogon+"\login.kix"
:Eweg
Call $netlogon+"\Elogin.kix"
exit