---

Hallo,

habe mit der Suchfunktion nicht gefunden, wie man den Computernamen ausliest.

Kann mir jemand helfen?

------------------
Gruß Wilfried 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

HI Wilfried,
probiers mal hiermit:

Code:

---

'Hier die benötigten API-Deklarationen
Declare Function GetComputerName Lib "kernel32" _
  Alias "GetComputerNameA" (ByVal lpBuffer As String, _
  nSize As Long) As Long

'Die Funktion ermittelt den Computer-Namen
Public Function GetComputerInfo() As String
  Dim Result As Long
  Dim cInfo As String
 
  cInfo = Space$(256)
  Result = GetComputerName(cInfo, Len(cInfo))
  If InStr(cInfo, Chr$(0)) > 0 Then _
    cInfo = Left$(cInfo, InStr(cInfo, Chr$(0)) - 1)
 
  GetComputerInfo = cInfo
End Function

---

HTH

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website Klamm? Was ist Klamm?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wilfried,

Du kannst das auch über die Umgebungsvariablen auslesen.

Code:

---

Debug.Print Environ("Computername")

---

ist allerdings nicht so flexibel und für jedes Windows anwendbar ist es auch nicht. Deshalb benutzt man, um unabhängiger zu sein, die API - so wie Gismo. Musst halt selbst entscheiden, für welchen Zweck Du das nutzen möchtest.

Gruss TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wilfried,

die dritte Möglichkeit wäre, den Namen über das Windows-Systemmangement auszulesen.

Public Sub GetComputername()
    Dim strSQL As String, strWMI As String
    Dim oWMI As Object, objItem As Object
    strSQL = "Select * from Win32_Processor"
    strWMI = "winmgmts:\\.\root\cimv2"
    Set oWMI = GetObject(strWMI).ExecQuery(strSQL)
    For Each objItem In oWMI
        MsgBox "Computername: " & objItem.path_.server
    Next
End Sub

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP