🚀 go-pugleaf

"Snuyt" <snuyt_nospam@skynet.be> wrote in message
> Hoe kan ik in VB.NET het ip-adres opvragen van de pc waarop het progje
> draait ?

De hostname van de computer waarop je werkt resolven. Iets in de aard van:
 Dim he as IPHostEntry =  Dns.Resolve(Dns.GetHostName())

Mvg,
Pieter Philippaerts

> Hoe kan ik in VB.NET het ip-adres opvragen van de pc waarop het progje
> draait ?

Untested:

Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
Dim ipAddress As IPAddress = ipHostInfo.AddressList(0)

of anders

imports System
imports System.Management

Public Class WMICardGrab
  Public Shared Sub Main()
    Dim query as ManagementObjectSearcher = new _
        ManagementObjectSearcher("SELECT * FROM
WIN32_NetworkAdapterConfiguration WHERE IPEnabled = 'TRUE'")
    Dim queryCollection as ManagementObjectCollection = query.Get()
    Dim mo as ManagementObject
    For Each mo In queryCollection
      Dim addresses() as string = CType(mo("IPAddress"), string())
      Dim defaultgateways() as string = CType(mo("DefaultIPGateway"),
string())

      Console.WriteLine("Network Card: {0}", mo("Description"))
      Console.WriteLine("    MAC Address: {0}", mo("MACAddress"))

      Dim ipaddress as string
      For Each ipaddress In addresses
         Console.WriteLine("    IP Address: {0}", ipaddress)
      Next

      Dim gateway as string
      For Each gateway In defaultgateways
        Console.WriteLine("    Gateway: {0}", gateway)
      Next
    Next
  End Sub
End Class

    To compile this you need to include the System.Management.dll
file.

Steven