คุณสามารถทำได้ด้วยการเรียกระบบมาตรฐาน นี่คือตัวอย่างใน Perl:
use strict; use warnings;
use Socket;
use Data::Dumper;
my @addresses = gethostbyname('google.com');
my @ips = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
print Dumper(\@ips);
ผลิตผลลัพธ์:
$VAR1 = [
'74.125.127.104',
'74.125.127.103',
'74.125.127.105',
'74.125.127.106',
'74.125.127.147',
'74.125.127.99'
];
(ในบรรทัดคำสั่งสคริปต์เดียวกันสามารถเขียนเป็น: perl -MSocket -MData::Dumper -wle'my @addresses = gethostbyname("google.com"); my @ips = map { inet_ntoa($_) } @addresses[4 .. $#addresses]; print Dumper(\@ips)'
)
คุณสามารถทำได้เช่นเดียวกันในภาษาอื่น ๆ - ดู man page สำหรับการโทรของระบบที่man -s3 gethostbyname
เป็นต้น