Funktion ComputerName()

Gibt den Netzwerknamen des Rechners zurück.%%%
Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As _
String, nSize As Long) As Long


Public Function ComputerName()

Dim Buf As String
Dim Lang As Integer

Buf = Space$(255)
Lang = GetComputerName(Buf, 255)
Lang = InStr(Buf, Chr$(0))
ComputerName = Left(Buf, Lang)

End Function



Funktion ComputerName() Funktion ComputerName() Funktion ComputerName() Funktion ComputerName() http://www.inhaltszentrale.de http://www.seitenzentrale.de http://www.access-home.de http://www.access-home.de http://www.access-home.de http://www.access-home.de http://www.access-home.de Funktion ComputerName() Funktion ComputerName()