look at this and see if it is helpful. It only works under w2k
code:

	; find ipconfig info (for up to 10 adapters)
	$interfaces="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces"
	$nic=0		dim $ipaddrs[9]		dim $gateway[9]		dim $subnetm[9]		dim $namesvr[9]
	:nicloop
		$niccard=enumkey("$interfaces",$nic)
		if @error=0 
			$Isdhcp=readvalue("$interfaces\$niccard","EnableDHCP")
			if $Isdhcp="1"	$adddhcp="Dhcp"		else 	$adddhcp=""	endif
			$ipaddrs[nic]=readvalue("$interfaces\$niccard","$adddhcp"+"IPAddress")
			$gateway[nic]=readvalue("$interfaces\$niccard","$adddhcp"+"DefaultGateway")
			$subnetm[nic]=readvalue("$interfaces\$niccard","$adddhcp"+"SubnetMask")
			$namesvr[nic]=readvalue("$interfaces\$niccard","$adddhcp"+"NameServer")
			$gateway[nic]=left($gateway[nic],len($gateway[nic])-1)
			if $gateway[nic] > "0.0.0.0" 	$mygw=$gateway[nic]		endif	
			$nic=$nic+1
			goto nicloop
			endif
_________________________
How to ask questions the smart way <-----------> Before you ask