Kod PHP musi niestety korzystać z ogólnokrajowych baz whois, liczba domen byłaby za duża ale łatwo można je samemu dodać.

<?

$domena = "web.soldier.pl";

$serwery["biz"]="whois.biz";

$serwery["cc"]="whois.enic.cc";

$serwery["com"]="whois.networksolutions.com";

$serwery["info"]="whois.afilias.net";

$serwery["fr"]="whois.nic.fr";

$serwery["pl"]="whois.dns.pl";

$serwery["int"]="whois.iana.org";

$serwery["net"]="whois.networksolutions.com";

$serwery["org"]="whois.networksolutions.com";

$serwery["cz"]="whois.nic.cz";

$kon = substr($domena,strrpos($domena, ".")+1);

$f=fsockopen($serwery[$kon],43,$errno,$errstr,20);

if ($f) {

fputs($f, "$domena\r\n");

while(!feof($f)) {$odp .= fgets($f,1024); }

fclose($f);

} else { $wynik="Nie można nawiązać połączenia...";}

// for domens .pl

if (eregi("does not exists",$odp)) { $wynik="Domena nie istnieje...";}

// for domenss .biz .info .int

if (eregi("not found",$odp)) { $wynik="Domena nie istnieje...";}

// for domens .cc .com .net .org

if (eregi("no match for",$odp)) { $wynik="Domena nie istnieje...";}

// for domens .fr

if (eregi("no entries found",$odp)) { $wynik="Domena nie istnieje...";}

// for domens .cz

if (eregi("no data found",$odp)) { $wynik="Domena nie istnieje...";}

if ($wynik=="") {

echo "Domena jest zarejestrowana:

";

echo nl2br($odp);

} else { echo $wynik; }

?>

Wynik działania skryptu:

Aby zapoznać się z informacjami WHOIS o domenach .eu prosimy o korzystanie z www.whois.eu

Korzystając z wyszukiwarki Whois można uzyskać informacje na temat rejestratora domeny, nazwy, adresu oraz danych kontaktowych właściciela domeny, daty zarejestrowania i terminu wygaśnięcia domeny, nazw serwerów DNS na które domena jest delegowana a także kontaktu administracyjnego dla domeny.

Serwery jednak mogą ulec zmianie więc należy pamiętać o ich sprawdzaniu.