Active Directory

Set objCont = GetObject("LDAP://CN=DhcpRoot,CN=NetServices,CN=Services,CN=Configuration,DC=myDomainName,DC=com")
On Error Resume Next
varDHCP = objCont.GetEx("dhcpServers")

For each DHCPServer in varDHCP
Wscript.Echo DHCPServer
Next

'Clean up
Set objCont = Nothing