loggin et infos système

Bonjour,

x = Environ("Username") donne le nom d'utilisateur réseau
x= Environ("Os") donne le SE

Pour obtenir toutes les variables d'environnement:

Sub test()
i = 1
Do While i < 30
Cells(i, 1).Value = Split(Environ(i), "=")(0)
Cells(i, 2).Value = Split(Environ(i), "=")(1)
i = i + 1
Loop
End Sub

Cordialement JB

On 29 jan, 15:40, "Tip.tiptop" <tip.tip...@free.fr> wrote:

re re bonjour,
Comment récuperer dans une variable le loggin de l'utilisateur de la se ssion
windows
et l info système de la session (XP, 2000....)?
encore merci

MsgBox Environ("UserName")


"Tip.tiptop" <tip.tiptop@free.fr> a écrit dans le message de news:
epl10e$uj1$1@localhost.localdomain...
re re bonjour,
Comment récuperer dans une variable le loggin de l'utilisateur de la session
windows
et l info système de la session (XP, 2000....)?
encore merci

Bonjour Tip.tiptop,

Pour le loggin de l'utilisateur de la session :

Dim Usr as String

Usr = Environ ("username")

Pour le système d'exploitation :

Application.OperatingSystem

renvoie

Windows (32 bit) NT 5.00

pour Windows 2000 SP4, et

Windows (32 bit) NT 5.01

pour Windows XP SP2

re re bonjour,
Comment récuperer dans une variable le loggin de l'utilisateur de la session
windows
et l info système de la session (XP, 2000....)?
encore merci

--
Cordialement,

Jacques.

Bonjour JB,

Il me semble que Environ("Os") va renvoyer la même chose que l'on soit
sous 2000 ou XP, c'est à dire :

Windows_NT

Et pour prévoir l'avenir, sous Vista aussi ;-)
Par contre, Application.OperatingSytem renvoie dans ce cas :

Windows (32 bit) NT 6.00

Bonjour,

x = Environ("Username") donne le nom d'utilisateur réseau
x= Environ("Os") donne le SE

--
Cordialement,

Jacques.