WORD wVersionRequested;
WSADATA wsaData;
wVersionRequested = MAKEWORD(1, 0);

int err = WSAStartup(wVersionRequested, &wsaData);
if(err == 0)
{
char
hn[1024];
if(gethostname((char *)&hn, 1024))
{
int err = WSAGetLastError();
Beep();
};
ShowMessage(hn);// выводим имя компьютера
}