scripting gethostbyname

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Here's a 3 line perl script that prints the IP address of a named host:


use Socket;
$packed = gethostbyname("$ARGV[0]") or die "unknown host: $ARGV[0]\n";
print inet_ntoa($packed);


Use like so (host name can be found via DNS or in local hosts file)


WINSERVER:rsr>perl gethostbyname.pl winserver
192.168.0.4

WINSERVER:rsr>perl gethostbyname.pl msnews.microsoft.com
207.46.246.16


How does one do that with windows scripting?

Thanks very much.



.

Relevant Pages

  • Re: nameserver changing
    ... Re: nameserver changing: ... >> None of the machines are running their own dns servers. ... >script that will be scp'ed and executed on each host. ... >and then create one Perl script for every host. ...
    (freebsd-questions)
  • How to setup PerLDAP
    ... Copy a test Perl script getentry.pl on page 380: ... die "Could not connect to LDAP $host" unless $conn ... It obvious that I missed something while setting up PerLDAP. ... Directory Server: ...
    (SunManagers)
  • Re: nameserver changing
    ... > list of dns's used as resolvers by particular machineon a network which I ... > None of the machines are running their own dns servers. ... script that will be scp'ed and executed on each host. ... and then create one Perl script for every host. ...
    (freebsd-questions)
  • Re: Bash: How do I quote CR &| LF in a command?
    ... >> I want to do in bash what the above perl script does. ... Thanks for your reply too Stephane - I need the Host: header because ... I'm working with LVS real servers inside the realserver network, ...
    (comp.unix.shell)
  • Re: more details
    ... and now, before accessing remoteadmn, if i try to access \\box from my host ... 00053CB0:00000004, NTLM ... on socket 15 ... on overlapped WSASend() ...
    (microsoft.public.windowsce.platbuilder)