| List of users, CodePage and CountryCode | |
|---|---|
'Get UserManager.Server object Dim UM:Set UM = CreateObject("UserManager.Server") Wscript.Echo toS("Account",25) & toS("CodePage", 9) & "CountryCode" 'List of users, CodePage and CountryCode Dim User For Each User In UM.Users Wscript.Echo toS(User.Name,25) & toS(User.CodePage,9) & User.CountryCode Next Function toS(byval W, Cols) W = "" & W On Error Resume Next W = W & Space(Cols-Len(W)) toS = W End Function | |