gibt es in Excel eine Möglichkeit abzufragen über welche Rechte ein Benutzer verfügt?
Danke im Voraus.
MFG
Steffen Schmerler
Option Explicit
Sub test()
Dim oNetzwerk As Object
Dim oKonto As Object
Dim oGruppe As Object
Dim li, pc, user As String
Set oNetzwerk = CreateObject("wscript.network")
MsgBox oNetzwerk.Computername
MsgBox oNetzwerk.UserName
pc = oNetzwerk.Computername
user = oNetzwerk.UserName
Set oKonto = GetObject("WinNT://" & pc & "/" & user & ",user")
li = ""
li = li & "PC: " & pc & vbCr
li = li & "User: " & oKonto.Name & vbCr
li = li & "Fullname: " & oKonto.FullName & vbCr
li = li & "Beschreibung: " & oKonto.Description & vbCr
li = li & "Letzter Login: " & oKonto.lastlogin & vbCr
li = li & "Passwortalter: " & oKonto.PasswordAge & " s" & vbCr
MsgBox (li)
For Each oGruppe In oKonto.Groups
MsgBox "Member of: " & oGruppe.Name
Next
End Sub
WSH muss aktiv sein.
Gruß
Harry