の?やんさん、おはようございます。

＞WINSOCKでとれるそうですが、関数がよくわからないので、
＞記述方法（スクリプト）を教えてくれるとすごく嬉しいのですが。。。

WinSockでローカルのIPアドレスを取得するのはなかなかめんどうなのですが、
それでも良ければ以下の要領でどうぞ。
（IPアドレスを自動割当する設定でも対応可能です）

【構造体】
WSADATA{
　ulong wVersion;
　ulong wHighVersion;
　char szDescription[257];
　char szSystemStatus[129];
　uint iMaxSockets;
　uint iMaxUdpDg;
　string lpVendorInfo;
}

HOSTENT{
　ulong h_name;
　ulong h_aliases;
　int h_addrtype;
　int h_length;
　ulong h_addr_list;
}

【外部関数】
function long WSAStartup(uint wVersionRequested, ref WSADATA lpWSAData) library \"wsock32.dll\"
function long WSACleanup() library \"wsock32.dll\"

function long gethostname(ref string strName, long namelen) library \"wsock32.dll\"
function long gethostbyname(string strName) library \"wsock32.dll\"

function long inet_ntoa(ulong addr) library \"wsock32.dll\"

subroutine RtlMoveMemory( ref HOSTENT buf, long p, long s ) library \"kernel32.dll\"
subroutine RtlMoveMemory( ref long buf, long p, long s ) library \"kernel32.dll\"

【スクリプト】
// WinSock初期化
WSADATA  wsd
WSAStartup( 257, wsd ) //257:0x0101 -> WinSock v1.1

// ホスト名の解決
string nam
nam = Space(100)
gethostname( nam, 100 )

// HOSTENT構造体の取得
HOSTENT host
ulong p_host
p_host = gethostbyname( nam )
RtlMoveMemory( host, p_host, 16 )

// IPアドレスの取得（ダブルポインタに注意）
ulong p_addr, addr
RtlMoveMemory( p_addr, host.h_addr_list, 4 )
RtlMoveMemory( addr, p_addr, 4 )

// 文字列に変換
string s_addr
s_addr = String( inet_ntoa(addr), \'address\' )
MessageBox( \"IP Address\", s_addr )

// WinSock開放
WSACleanup()

※おかしな箇所があったらご指摘ねがいます。(^^;