====== [VBA] activeWinUser() ======
Gibt den Usernamen des aktiven Windowusers zurück.
{{:vba:functions:udf_activewinuser.bas|Downloas udf_activeWinUser.bas}}
===== Beispiel =====
Dim user As String: user = activeWinUser
===== Code =====
Attribute VB_Name = "udf_activeWinUser"
'-------------------------------------------------------------------------------
'File : udf_activeWinUser
' Copyright mpl by ERB software
' All rights reserved
' http://wiki.yaslaw.info/dokuwiki/doku.php/vba/functions/activeWinUser
'Environment : VBA 2010 +
'Version : 1.0
'Name : list
'Author : Stefan Erb (ERS)
'History : 27.02.2014 - ERS - Creation
'-------------------------------------------------------------------------------
Option Explicit
'/**
' * Gibt den aktuellen Windows-user zurück
' * @param String Wert der zurückgegeben werden soll, wenn der User nicht ausgelesen werden kann
' * @return String
' */
Public Function activeWinUser(Optional ByVal iErrValue As Variant = "NA") As String
On Error Resume Next
activeWinUser = CStr(Nz(iErrValue))
Dim objNet As Object: Set objNet = CreateObject("WScript.NetWork")
If Err.Number = 0 Then activeWinUser = objNet.UserName
Set objNet = Nothing
End Function