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