Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Script d'info au login

2 réponses
Avatar
Jullius Marcus
Bonjour a tous
je voudrais savoir s'il existe un script de login qui informe dans une boite
de dialogue l'appartenance de l'utilisateur au groupe, sont ip le nom de la
sation
J'ai presque tous les élémént mais seulement in ligne de commande
Je n'arrive pas a les passer dans une boite d'info
Merci de votre aide

2 réponses

Avatar
Gilles LAURENT [MVP]
"Jullius Marcus" wrote:

Bonjour a tous



Bonjour,

je voudrais savoir s'il existe un script de login qui informe dans une boite
de dialogue l'appartenance de l'utilisateur au groupe, sont ip le nom de la
sation
J'ai presque tous les élémént mais seulement in ligne de commande
Je n'arrive pas a les passer dans une boite d'info
Merci de votre aide



Ci-dessous le script VBScript GetUserInfo.vbs permettant, je l'espère, de
répondre à votre besoin. Il affiche dans une boite de dialogue le login de
l'utilisateur, le nom netbios de l'ordinateur, son adresse IP ainsi que les
groupes dont l'utilisateur est membre.

--- Coupez ici : GetUserInfo.vbs ---
Set oNet=CreateObject("WScript.Network")
Set oSh=CreateObject("WScript.Shell")
Set oExec=oSh.Exec("IPConfig")
Set oRe=New RegExp: oRe.Pattern="(d+.){3}d+"
Set oUser=GetObject( _
"WinNT://" & oNet.UserDomain & "/" & oNet.UserName & ",User" _
)
sBuffer= _
sBuffer & "UserName" & VBTab & ": " & _
oNet.UserName & VBLf
sBuffer= _
sBuffer & "ComputerName" & VBTab & ": " & _
oNet.ComputerName & VBLf
sBuffer= _
sBuffer & "IP Address" & VBTab & ": " & _
oRe.Execute(oExec.StdOut.ReadAll)(0) & VBCrLf & VBCrLf
sBuffer=_
sBuffer & "You are a member of :" & VBCrLf & VBCrLf
For Each oGroup In oUser.Groups
sBuffer= _
sBuffer & "* " & oGroup.Name & VBCrLf
Next
MsgBox sBuffer, 64, "User Info"
--- Coupez ici : GetUserInfo.vbs ---

Je vous invite également à jeter un oeil à l'outil BgInfo de Windows
Sysinternals. C'est ici :
<http://technet.microsoft.com/en-us/sysinternals/bb897557.aspx&gt;

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Avatar
Jullius Marcus
Bonjour

Merci
c'est parfait



"Gilles LAURENT [MVP]" a écrit dans le message de
news:
"Jullius Marcus" wrote:

Bonjour a tous



Bonjour,

je voudrais savoir s'il existe un script de login qui informe dans une
boite
de dialogue l'appartenance de l'utilisateur au groupe, sont ip le nom de
la
sation
J'ai presque tous les élémént mais seulement in ligne de commande
Je n'arrive pas a les passer dans une boite d'info
Merci de votre aide



Ci-dessous le script VBScript GetUserInfo.vbs permettant, je l'espère, de
répondre à votre besoin. Il affiche dans une boite de dialogue le login de
l'utilisateur, le nom netbios de l'ordinateur, son adresse IP ainsi que
les
groupes dont l'utilisateur est membre.

--- Coupez ici : GetUserInfo.vbs ---
Set oNet=CreateObject("WScript.Network")
Set oSh=CreateObject("WScript.Shell")
Set oExec=oSh.Exec("IPConfig")
Set oRe=New RegExp: oRe.Pattern="(d+.){3}d+"
Set oUser=GetObject( _
"WinNT://" & oNet.UserDomain & "/" & oNet.UserName & ",User" _
)
sBuffer= _
sBuffer & "UserName" & VBTab & ": " & _
oNet.UserName & VBLf
sBuffer= _
sBuffer & "ComputerName" & VBTab & ": " & _
oNet.ComputerName & VBLf
sBuffer= _
sBuffer & "IP Address" & VBTab & ": " & _
oRe.Execute(oExec.StdOut.ReadAll)(0) & VBCrLf & VBCrLf
sBuffer=_
sBuffer & "You are a member of :" & VBCrLf & VBCrLf
For Each oGroup In oUser.Groups
sBuffer= _
sBuffer & "* " & oGroup.Name & VBCrLf
Next
MsgBox sBuffer, 64, "User Info"
--- Coupez ici : GetUserInfo.vbs ---

Je vous invite également à jeter un oeil à l'outil BgInfo de Windows
Sysinternals. C'est ici :
<http://technet.microsoft.com/en-us/sysinternals/bb897557.aspx&gt;

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr