Find Erlang nodes in the cluster

nodes.erl

#!/usr/bin/env escript
%% -*- erlang -*-
%%! -sname nodefinder

%% Usage:
%% chmod +x nodes.erl
%% ./nodes.erl 'somenode@host'

main([N]) ->
    Node = list_to_atom(N),
    case net_adm:ping(Node) of
        pong ->
            Nodes = rpc:call(Node, erlang, nodes, []),
            io:format("Nodes: ~p~n", [lists:delete(node(), Nodes ++ [Node])]);
        _    ->
            io:format("Can't contact node: ~p~n", [Node])
    end,
    ok.