You can query AD. This code sniffs ALL DHCP servers in AD and parses the output. From there, you can visually identify those DHCP server on a particular network segment.
'DHCPsniff.vbs
'Daniel M. Jones
'August 27, 2009
strDomainName = "dc=my,dc=domain,dc=com" ' my.domain.com
strFileName = "c:\result.txt"
set objCont = GetObject("LDAP://CN=DhcpRoot,CN=NetServices,CN=Services,CN=Configuration," & strDomainName)
set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile(strFileName, 2, true)
set objShell = WScript.CreateObject("WScript.Shell")
colDHCPServers = objCont.GetEx("dhcpServers")
for each strDHCPServer in colDHCPServers
strIP = mid(strDHCPServer, 2, inStr(strDHCPServer, "$") - 2)
strServerName = right(strDHCPServer, len(strDHCPServer) - inStr(strDHCPServer, "="))
strServerName = left(strServerName, inStr(strServerName, ".") - 1)
objFile.Write strServerName & ": " & strIP & vbNewLine
next
objFile.Close
objShell.Run(strFileName)