IP- Adresse, Subnet Mask, Computername.

[Lence]

Hallo zusammen,
Wie kann ich Computername, Arbeitsgruppe oder Domäne, IP-Adresse und Subnet Mask auslesen und ausgeben, alles local.
Über die Registry gefällt mir nicht, es muss doch auch anderes gehen.
Muss auch mit Windows 2000 und NT funktionieren.

Danke
Lence

[Boris Lauper]

Hi,

ComputerName:

LPTSTR Value;<br>
TCHAR Buffer[256];<br>
DWORD BuffSize = 256;<br>

// Benutzername:<br>
Value = Buffer;<br>
GetComputerName(Value, &BuffSize);<br>
Memo1 -> Lines -> Add("Computername: " + AnsiString(Value));<br>

Ip:

String IpAdresse, HostName;<br>
char *adr;<br>
char hostname[64];<br>
WSADATA SockVer;<br>
hostent *hostinfo;<br>
in_addr ip;<br>
if(WSAStartup(2, &SockVer))<br>
{<br>
HostName = "";<br>
}<br>
if(gethostname(hostname, sizeof(hostname)))<br>
{<br>
HostName = "";<br>
}<br>
if((hostinfo=gethostbyname(hostname))==NULL)<br>
{<br>
HostName = "";<br>
}<br>
for(int x=0; (adr=hostinfo->h_addr_list[x])!=NULL; x++)<br>
{<br>
if(x == 0)<br>
{<br>
ip.S_un.S_addr=*((unsigned long*)adr);<br>
IpAdresse=(inet_ntoa(ip));<br>
}<br>
}<br>
HostName=hostinfo->h_name;<br>
WSACleanup();<br>

ListBox1->Items->Add("IpAdresse: "+IpAdresse);<br>
ListBox1->Items->Add("Hostname: "+HostName);<br>

Hoffe, ich habe Dir geholfen.

Gruss - Bori

[Lence]

Jo, cool, Danke erst mal.
aber was ist mit Arbeitsgruppe und Subnet Mask? Und wo wir schon dabei sind, Gateway auch.

MfG Lence