ja.
take your ip-range (say, mask 255.255.255.0 and addies 192.168.129.x)
Code:

for $numba=1 to 254

 if not checkdhcp("192.168.129."+$numba)

  "ip 192.168.129."+$numba+" has no DHCP enabled" ?

 endif

next



function checkDHCP($ip)

dim $card,$int,$,$sk,$cardkey

 $int="\\"+$ip+"\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces"

 $card="\\"+$ip+"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards"

 $=0

 $sk=enumkey($card,$)

 while @error=0

	$=$+1

	$cardkey=$int+"\"+readvalue($card+"\"+$sk,"ServiceName")

	if readvalue($cardkey,"EnableDHCP")

	 $checkDHCP=1

	endif

	$sk=enumkey($card,$)

 loop

endfunction



[note]
(post de 12000 )
[/note]
_________________________
!

download KiXnet