all possible property of objUser

[sal21]

Instead to have only the 8 property of objUser is possible to insert into the first for each a second loop to get all possible property of objUser?????

my code:

Code: Select all

Option Explicit
Sub ListUsers(strDomain)

    Dim objComputer As Object, objUser As Object
    
    Set objComputer = GetObject("WinNT://" & strDomain)
    objComputer.FILTER = Array("User")
    
    For Each objUser In objComputer
        Debug.Print "Name: " & objUser.Name
        Debug.Print "Fullname: " & objUser.FullName
        Debug.Print "Description: " & objUser.Description
        Debug.Print "AccountDisabled: " & objUser.AccountDisabled
        Debug.Print "IsAccountLocked: " & objUser.IsAccountLocked
        Debug.Print "Profile: " & objUser.Profile
        Debug.Print "LoginScript: " & objUser.LoginScript
        Debug.Print "HomeDirectory: " & objUser.homeDirectory
        Debug.Print ""
    Next
    
End Sub

Sub UNO()

Dim strDomain
Do
   strDomain = InputBox("Please enter a domainname", "Input")
Loop Until strDomain <> ""

ListUsers (strDomain)

End Sub

[HansV]

I have no idea.

See User class (Windows) for a list of available attributes.
Perhaps you can find something you need in ADSI Scripts.