Computername oder Mac adresse rauskriegen

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

	Plasma Betreff: Computername oder Mac adresse rauskriegen	Mo, Mai 12, 2008 17:02 Antworten mit Zitat
wie kann ich den computernamen oder die macadresse rauskriegen (plattformunabhängig)

Plasma

Betreff: Computername oder Mac adresse rauskriegen

Mo, Mai 12, 2008 17:02
Antworten mit Zitat

wie kann ich den computernamen oder die macadresse rauskriegen (plattformunabhängig)

	ChristianK	Mo, Mai 12, 2008 17:25 Antworten mit Zitat
Den Computernamen kannst du mit gethostname ermitteln. Die Funktion ist plattformunabhängig, da sie zur Standard C Library gehört. Hier ein Beispiel für Windows: Code: [AUSKLAPPEN] [EINKLAPPEN] Extern "Win32" Function gethostname:Int( name:Byte Ptr, size:Int ) End Extern Local buffer:Byte Ptr = MemAlloc( 256 ) gethostname( buffer, 256 ) Print String.FromCString( buffer ) MemFree buffer
AdvanceLcd Intel Core 2 Duo 3.2 GHz, 4 GB RAM, GeForce 8800 GTX \| MacBook Pro 15,4″ Intel Core 2 Duo 2.4 GHz, 2 GB RAM, GeForce 8600M GT

ChristianK

Mo, Mai 12, 2008 17:25
Antworten mit Zitat

Den Computernamen kannst du mit gethostname ermitteln.
Die Funktion ist plattformunabhängig, da sie zur Standard C Library gehört. Hier ein Beispiel für Windows:

Code: [AUSKLAPPEN]

Extern "Win32"
Function gethostname:Int( name:Byte Ptr, size:Int )
End Extern

Local buffer:Byte Ptr = MemAlloc( 256 )
gethostname( buffer, 256 )

Print String.FromCString( buffer )
MemFree buffer

AdvanceLcd
Intel Core 2 Duo 3.2 GHz, 4 GB RAM, GeForce 8800 GTX | MacBook Pro 15,4″ Intel Core 2 Duo 2.4 GHz, 2 GB RAM, GeForce 8600M GT

	Vertex	Di, Mai 13, 2008 12:23 Antworten mit Zitat
Geht über BNetEx: http://vertex.dreamfall.at/projects.php#bnetex Das Beispiel ist mit dabei: Code: [AUSKLAPPEN] [EINKLAPPEN] SuperStrict Framework Vertex.BNetEx Global Info:TAdapterInfo If Not TNetwork.GetAdapterInfo(Info) Then WriteStdout("Faield to get network adapter information.~n" + .. " Maybe there is no network adapter or~n" + .. " no network driver installed.") End EndIf WriteStdout("Device: " + Info.Device + "~n" + .. " MAC Address: " + TNetwork.StringMAC(Info.MAC) + "~n" + .. " IP Address: " + TNetwork.StringIP(Info.Address) + "~n" + .. " Broadcast Address: " + TNetwork.StringIP(Info.Broadcast) + "~n" + .. " Netmask: " + TNetwork.StringIP(Info.Netmask) + "~n") End Den Computernamen bekommst du über: Code: [AUSKLAPPEN] [EINKLAPPEN] Name = TNetwork.GetHostName(0) mfg olli
vertex.dreamfall.at \| GitHub

Vertex

Di, Mai 13, 2008 12:23
Antworten mit Zitat

Geht über BNetEx:
http://vertex.dreamfall.at/projects.php#bnetex

Das Beispiel ist mit dabei:
Code: [AUSKLAPPEN]

SuperStrict

Framework Vertex.BNetEx

Global Info:TAdapterInfo

If Not TNetwork.GetAdapterInfo(Info) Then
WriteStdout("Faield to get network adapter information.~n" + ..
" Maybe there is no network adapter or~n" + ..
" no network driver installed.")
End
EndIf

WriteStdout("Device: " + Info.Device + "~n" + ..
" MAC Address: " + TNetwork.StringMAC(Info.MAC) + "~n" + ..
" IP Address: " + TNetwork.StringIP(Info.Address) + "~n" + ..
" Broadcast Address: " + TNetwork.StringIP(Info.Broadcast) + "~n" + ..
" Netmask: " + TNetwork.StringIP(Info.Netmask) + "~n")
End

Den Computernamen bekommst du über:
Code: [AUSKLAPPEN]

Name = TNetwork.GetHostName(0)

mfg olli

vertex.dreamfall.at | GitHub