Netzwerk User Schreibberechtigung prüfen

Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'Die Person, die sich in Windows angemeldet hat (Betriebssystem/Netzwerk Login).

Sub ShowUserLoginName()
MsgBox CreateObject("WScript.Network").UserName
End Sub

Function GetLoggedOnUser() As String
Dim strUsername As String
Dim slength As Long
Dim retval As Long
strUsername = Space$(255)
slength = 255
retval = GetUserName(strUsername, slength)
strUsername = Left(strUsername, slength - 1)
GetLoggedOnUser = strUsername
End Function



'Jetzt möchte ich prüfen, ob der angemeldete Benutzer im Netzwerk eine Schreibberechtigung

'für den Zugriff auf einen bestimmten Ordner besitzt

'z.B. "L:\Data"