Computername via VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Computername via VBA
von: Knut Rosenthal
Geschrieben am: 08.11.2003 20:34:23

Hallo alle zusammen,

ich wüsste gerne, wie ich in VBA den Computernamen meines Computers herausbekommen kann.

Kann mir evtl. jemand helfen.


Mit freundlichen Grüßen
Knut Rosenthal

Bild


Betrifft: AW: Computername via VBA
von: Hajo_Zi
Geschrieben am: 08.11.2003 20:41:10

Hallo Knut

eine Möglichkeit für BS Nt ; XP; 2000

Sub test()
MsgBox Environ(" COMPUTERNAME ")
End Sub


ansonsten

Computername
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib “kernel32” Alias “GetComputerNameA” (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
‘Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, “X”)
‘Get the computer name
GetComputerName strString, dwLen
‘get only the actual data
strString = Left(strString, dwLen)
‘Show the computer name
MsgBox strString
End Sub

Andi_Bln



Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Computername via VBA
von: Knut Rosenthal
Geschrieben am: 08.11.2003 20:51:34

Danke, funktioniert Super!

MfG
Knut


Bild

Beiträge aus den Excel-Beispielen zum Thema " Computername via VBA"