Seite 1 von 1
Angemeldeten (Windows-) Anwender ermitteln im Calc
Verfasst: Do, 26.04.2007 20:56
von mkarlsbach
Hallo zusammen,
gibt es im Calc eine Möglichkeit, den angemeldeten (Windows-) Anwender zu ermitteln und den Usernamen dann in eine Zelle zu schreiben?
Habe keine Formel im Calc gefunden und auch meine Recherche im Internet blieb diesbezüglich erfolglos!
Hat jemand eine Idee, wie ich das im Calc realisieren kann?
Danke schonmal im voraus.
Gruß Mark
Verfasst: Do, 26.04.2007 21:53
von Eia
Verfasst: Do, 26.04.2007 22:35
von Stephan
Hat jemand eine Idee, wie ich das im Calc realisieren kann?
Für den Fall das es tatsächlich nur unter Windows funktionieren muß kannst Du es aus der Registrierung auslesen.
Entweder, wenn es für ein beliebiges Windows-System gehen soll (weil Du beispielsweise die Datei weitergeben willst) mittels benutzerdefinierter Funktion:
Code: Alles auswählen
Function LogonUser()
'nur wenn nicht aus Dokument aufgerufen wird:
'BasicLibraries.LoadLibrary("ImportWizard")
GlobalScope.BasicLibraries.LoadLibrary("ImportWizard")
schluessel = "Software\Microsoft\Windows\CurrentVersion\Explorer"
eigenschaft = "Logon User Name"
LogonUser = QueryValue(HKEY_CURRENT_USER, schluessel, eigenschaft)
End Function
in der Calc-Tabelle dann aufrufen mit:
=LOGONUSER()
Oder, wenn es nur auf einer bestimmten Windows-Installation funktionieren muß, auch mit dem Execompat-AddIn, siehe:
http://www.hajoschepker.biz/www/downloa ... -1.0.0.zip
(sollte entgegen der Angabe auf der Webseite auch unter 1.1.x und 2,x funktionieren)
Gruß
Stephan
Verfasst: Fr, 27.04.2007 08:14
von mkarlsbach
Hallo,
vielen Dank schonmal für die Antworten.
Stephan, bei deiner Lösung bekomme ich einen "Basic-Laufzeitfehler".
"Es ist eine Exception aufgetreten"
"Type: com.sun.star.container.NoSuchElementException"
Woran kann es liegen?
Danke schonmal im Voraus für Antworten.
Gruß Mark
Verfasst: Fr, 27.04.2007 10:02
von komma4
Bei welcher Anweisung kommt der Fehler (der aussagt, dass das angegebene Element -die "ImportWizard"-Bibliothek?- oder eine andere Anweisung nicht gefunden wurde. Hier (OOo 2.2 auf WinXP) funktioniert Stephans Code...
Was auch gehen müsste (d.h.: es geht hier!)
HTH