[Solved] Obtaining user name and initials

[Lazy-legs]

Hello,

I'm back with one more OOo Basic-related question. Is there a way to obtain the user name and initials (those in Tools -> Options -> OpenOffice.org -> User Data) via a macro?

Thank you!

Kind regards,
Dmitri

[hanya]

Hi,

You can get them from "/org.openoffice.UserProfile/Data" node of the configuration.

Code: Select all

Sub GetUserName()
  Dim oCP As Object
  Dim oCUA As Object
  Dim aProps(0) As New com.sun.star.beans.PropertyValue

  oCP = GetProcessServiceManager().createInstance( _
    "com.sun.star.configuration.ConfigurationProvider" )
  aProps(0).Name = "nodepath"
  aProps(0).Value = "/org.openoffice.UserProfile/Data"
  oCUA = oCP.createInstanceWithArguments( _
    "com.sun.star.configuration.ConfigurationUpdateAccess", aProps )
  
  sNames = oCUA.getPropertyValues( Array( "givenname", "sn", "initials" ) )
  
  msgbox "Given Name: " & sNames(0) & chr(10) & _
      "Family Name: " & sNames(1) & chr(10) & _
      "Initials: " & sNames(2) & chr(10)
  'msgbox oCUA.getByName("givenname")
  'msgbox oCUA.getByName("sn")
  'msgbox oCUA.getByName("initials")
End Sub

This may help you to get the name of them in the configuration.
http://wiki.services.openoffice.org/wiki/OoConfig

[Lazy-legs]

Excellent! Than you.

Kind regards,
Dmitri