REM : Beispiel : .NET Get Machinename (NetBios Name des Computers) REM : DE : SharpDevelop - Version 1.0 Build - 33919.1129 REM : Plattform : Windows 98 Imports System Imports System.Windows.Forms Imports Microsoft.VisualBasic Class MyApp Shared Sub Main Dim Result As String Result = GetMachineName() If Result = "" Then Exit Sub MessageBox.Show(Result, Application.ProductName, MessageBoxButtons.OK, 0) End Sub Shared Function GetMachineName() As String Dim ev As Environment Dim Result As String Result = ev.MachineName If Len(Result) <> 0 Then GetMachineName = Result Else GetMachineName = "" End If End Function End Class