code:

---

$netcardkey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards"
$servicekey="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services"
$Index1 = 0
:Loop1
	$WinKey = ENUMKEY("$netcardkey", $Index1)
	If @ERROR = 0 	
		? "Card found: HKLM\S\M\WNT\CV\NetworkCards\$winkey"	
		$nicID=readvalue("$netcardkey\$winkey","Servicename")
		$nicCN=readvalue("$netcardkey\$winkey","Description")
		if existkey("$servicekey\$nicID")=0
			$ip=readvalue("$servicekey\$nicID\parameters\tcpip","IPAddress")
			$sm=readvalue("$servicekey\$nicID\parameters\tcpip","SubnetMask")
			$gw=readvalue("$servicekey\$nicID\parameters\tcpip","DefaultGateway")
			$ed=readvalue("$servicekey\$nicID\parameters\tcpip","EnableDHCP")
			? $nicCN
			if $ed="0" 	? "Static"	else	? "DHCP"	endif
			? "IPAddress	:"$ip
			? "SubnetMask	:"$sm
			? "DefaultGateway	:"$gw
			?
			endif
		$Index1 = $Index1 + 1  	
		goto Loop1
		Endif

---

[ 20 December 2001: Message edited by: Radimus ]

[ 20 December 2001: Message edited by: Radimus ]