Aktuellen username unter Windows mit Perl auslesen

[David]

Ich möchte in der Konfigurationsdatei des Druckers den Aktuellen Username eintragen, damit man am Drucker sieht, von welchem User der Ausruck ist, der gerade kommt.

Meine Momentane Lösung ist, dass ich beim Loginvorgang unter Windows eine .bat Datei aufrufe in welcher ich mit:
set username > username.txt

den aktuellen username auslesen und danach in eine Datei schreibe.
Mit meinem Perl Script lese ich diese danach ein und erhalte dadurch den Username.
Diesen kann ich dann in die Datei schreiben.

Soweit funktioniert das zwar, nur es gefällt mir nciht wirklich. Weiß jemand wie man mit Perl direkt den aktuellen Username unter Win2k ausliest?????


Danke David

[klewan]

env? %USERNAME%

[baere]

my $username = $ENV{USERNAME};

[David]

Danke!

Es funktioniert!

[menace]

Hallo,
gibt es irgendwo eine Datenbank, wo man solche Variablen nachschlagen kann?

Danke, mfG
menace

[klewan]

unter linux

env


unter windows start->ausführen cmd
set