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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen