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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 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>
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
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 ---
"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 ---
"Gilles LAURENT [MVP]" <glsft@free.fr> a écrit dans le message de
news:54D206E0-4236-45D9-A77D-5D361518A8B7@microsoft.com...
"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>
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
"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 ---