Option Explicit

Sub DisplayUserInfo(user)
  Wscript.Stdout.Write("User id info:" & vbCrLf)
  WScript.StdOut.Write( _
        "Logged on? " & user.isLoggedOn & vbCrLf & _
        "Password? " & user.passwordRequired & vbCrLf & _
        "Picture: " & user.setting("Picture") & vbCrLf & _
        "Pass Hint: " & user.setting("Hint") & vbCrLf & _
        "Domain: " & user.setting("Domain") & vbCrLf & _
        "LoginName: " & user.setting("LoginName") & vbCrLf & _
        "DisplayName: " & user.setting("DisplayName") & vbCrLf & _
        "AccountType: " & user.setting("AccountType") & vbCrLf & _
        "Description: " & user.setting("Description") & vbCrLf & _
        vbCrLf _
   )
   user.setting("Hint") = "It's pass"
End Sub

dim numUsers
dim user
dim shGinaUsers
dim i
set shGinaUsers = CreateObject("shell.users")
shGinaUsers.EnumFlags = 0 'most recent order
numUsers = CInt(shGinaUsers.length) - 1
For i = 0 To numUsers
  set user = shGinaUsers.item(i)
  DisplayUserInfo user  
  set user = Nothing
Next
WScript.StdOut.Write("Finished Enum, now current user" & vbCrLf)
DisplayUserInfo shGinaUsers.currentUser
set shGinaUsers = Nothing