Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== [VBA] activeWinUser() ======
Gibt den Usernamen des aktiven Windowusers zurück.

{{:vba:functions:udf_activewinuser.bas|Downloas udf_activeWinUser.bas}}

===== Beispiel =====
<code vb>Dim user As String: user = activeWinUser</code>

===== Code =====
<code vb udf_activeWinUser>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</code>

Yaslaw.Info

User Tools

Site Tools

Page Tools