MOTOBIT.COM - ASP upload, IIS utility List home directory for all user accounts

  'Get UserManager.Server object
  Dim UM:Set UM = CreateObject("UserManager.Server")
  

  'Add a test user
  UM.Users.Add "~TestUser", "1TestPassword"

  'Set home directory for the user
  UM.Users("~TestUser").HomeDir = "C:\Users\~TestUser"
  
  'List home directory for all user accounts
  Dim Out: Out = "Home dir of user account info:" & vbCrLf
  Out = Out & toS("Account",25) & toS("Drive", 6) & toS("Home directory", 20) & vbCrLf
  Dim User
  For Each User In UM.Users
    Out = Out & toS(User.Name,25) & toS(User.HomeDirDrive,6) & toS(User.HomeDir,20) & vbCrLf
  Next

  Wscript.Echo Out

  'Delete the test account
  UM.Users("~TestUser").Delete

  Function toS(byval W, Cols)
    W = "" & W: If W = "" Then W = "-"
    On Error Resume Next
    W = W & Space(Cols-Len(W))
    toS = W
  End Function