Script d'info au login

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles LAURENT [MVP]
Le #16439941
"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 :

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

Merci
c'est parfait



"Gilles LAURENT [MVP]" 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 :

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



Publicité
Poster une réponse
Anonyme