'
' Erstellt mit SharpDevelop.
' Bearbeiter: Jan2003
' Datum:      13.10.2004
' Zeit:       15:45
' 
 
Imports System
Imports System.Net
 
Class App
 
shared sub Main()
 
Dim IPAdr As String
 
Try
 
	Dim sHost As String=dns.gethostname()
	Dim IP As iphostentry=dns.gethostbyname(sHost)
	IPAdr=ip.adresslist(0).tostring
Catch
	ipAdr="nicht vorhanden"
End Try	
		Console.WriteLine("Hello World! - die IP-Adresse ist: {0}" , ipadr)
		end sub
End Class

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD