---

Wie kann man in VBA den Usernamen, mit dem sich der Benutzer in Windows eingeloggt hat, ermitteln?
Bei VB gibt es den Befehl GetUserName, aber wenn ich der Online-Hilfe glauben darf, gibt es den in VBA nicht.

Hintergrund: Ich möchte mein Makro zum Eintragen von Schriftfeld-Daten komfortabler machen und auf Knopfdruck den Usernamen als Autor und im Änderungsfeld eintragen.

Piet

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

---

die Frage hat ich auch mal ...
... und hier steht die Antwort: http://ww3.cad.de/foren/ubb/Forum2/HTML/003690.shtml

------------------
mfg uc

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

---

Hi,

Hier noch eine Alternative :-)

Function GetUserName() As String
  On Error Resume Next
  Dim objWSHNetwork As Object
  Set objWSHNetwork = CreateObject("WScript.Network")

  GetUserName = objWSHNetwork.UserName
    debug.? objWSHNetwork.ComputerName
    debug.? objWSHNetwork.UserDomain

  Set objWSHNetwork = Nothing
End Function

Gruß
Micha

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

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Vielen Dank nochmal an u.clemens, es haut prima hin. Hier noch mal der VBA-Code:

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Dim str_UserName As String
Dim retval As Variant

Sub main()

Set swApp = Application.SldWorks
  str_UserName = String(100, Chr$(0))
  retval = GetUserName(str_UserName, 100)
  str_UserName = Left$(str_UserName, InStr(str_UserName, Chr$(0)) - 1)
  retval = swApp.SendMsgToUser2("eingeloggter Nutzer: " & str_UserName, 2, 0)
End Sub

Piet

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

---

Zitat:

---

Original erstellt von Piet:
Vielen Dank nochmal an u.clemens, ...

---

... naja ich wußte ja nur noch wo's steht - die Ursprungsidee war von gismo ...

------------------
mfg uc

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