code:

---

$gateway=enumipinfo(0,3)
select
	case $gateway=" 10.  0.  0.  1"
		$localserver="NT1"
	case $gateway=" 10.  0.  2.  1"
		$localserver="gonzales"
	case 1
		? "can't figure out where I am. Quitting"
		quit
	endselect
use h: "\\$localserver\share1"
use m: "\\$localserver\share2"
use s: "\\$localserver\share3"

---