Angemeldeten (Windows-) Anwender ermitteln im Calc

[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

[Eia]

viewtopic.php?t=2442&highlight=beda

[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

[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

[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!)

Code: Alles auswählen

msgbox environ("USERNAME")

HTH