Woeps can't post html tags error or something, this includes the beginning to... sorry for that

$Teller = 0
While $Done <> "1"
$Index = 0
$Teller = $Teller + 1
$IPinterface = ENUMKEY("$HKLM\System\CurrentControlSet\Services\Tcpip\Parameters\Interfaces", $Index)

;Loop while not end of index.
While @ERROR <> "259"
$IPinterface = ENUMKEY("$HKLM\System\CurrentControlSet\Services\Tcpip\Parameters\Interfaces", $Index)
? ? "IPinterface = $IPinterface"

If @ERROR = 259 Goto EndLoop Endif

$Index = $Index + 1
$DhcpIPAddress=ReadValue("$HKLM\System\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\$IPinterface","DhcpIPAddress")
$RASsub = Ltrim(Substr($DhcpIPAddress,10,3))
? "RASsub = _ $RASsub _"

$RASip = Ltrim(Substr($DhcpIPAddress,1,8))
? "RASip = _ $RASip _"

If $RASip = "10.252.1"
If ($RASsub>=1 and $RASsub<=39)
$Done = "1"
Goto EndLoop
Endif
Endif
Loop

:EndLoop
Loop
_________________________
greetz dm330, from the Netherlands