VB6: PC-Namen auslesen

[ChrisDaHub]

Hallo,

kann mir jemand sagen, wie ich den Netzwerknamen eines PCs auslesen kann?

Ich möchte den gerne in einer Log-Datei speichern.

Danke schon mal,

chris;-)

[-roTekuGeL-]

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Private Sub Form_Load()


Dim retval As Long, PCName As String

PCName = Space(128)

retval = GetComputerName(PCName, Len(PCName))


MsgBox PCName


End Sub

[ChrisDaHub]

danke =)

chris

[Gast]

btw.

nützliche Quelle (Tips & Tricks)