Utilisateur et reseau XP pro

Utilisateur et reseau XP pro - Windows & Software

Marsh Posté le 22-08-2003 à 19:55:59    

Dans un réseau a base de windows 2000 si on ne veut pas activer le compte invité, on ajoute des users et on donne les droits qu'on veux .  
 
Si je fait la même choses avec des poste a base d'XP pro à l'ouverture de session il me propose tous les users du réseau, comment éviter ça     :??:  
 
un soluce ? merci    :hello:    
 
PS: je suis en workgroup !  

Reply

Marsh Posté le 22-08-2003 à 19:55:59   

Reply

Marsh Posté le 23-08-2003 à 17:42:27    

:bounce:

Reply

Marsh Posté le 23-08-2003 à 17:52:01    

J'ai résolu le problème en utilisant ce script de JCB
 

Citation :

' --------------------------------------------------------------------  
' Script de sélection des comptes utilisateurs à afficher ou non  
' dans l'écran de login de Windows XP  
'  
' Jean-Claude BELLAMY © 2001  
' --------------------------------------------------------------------  
Dim network, computer, fso, ts, SAM, Item, member, oIE  
Set network  = Wscript.CreateObject("WScript.Network" )  
Set Shell = WScript.CreateObject("WScript.Shell" )  
' Création du fichier HTML qui va servir de formulaire  
fichtml=GetPath() & "logusers.html"  
computer=network.ComputerName  ' nom de la machine locale  
Titre="Liste des comptes sur " & computer  
Set fso = WScript.CreateObject("Scripting.FileSystemObject" )  
Set ts  = fso.CreateTextFile(fichtml, True)  
ts.writeline "<html>"  
ts.writeline "<head>"  
ts.writeline "<title>" & Titre & "</title>"  
ts.writeline "<STYLE TYPE=""text/css"">"  
ts.writeline " body {"  
ts.writeline " font-family: Verdana;"  
ts.writeline " font-size: 10 pt }"  
ts.writeline " h1, h2, h3, h4, h5, h6 { font-family: Verdana }"  
ts.writeline "</STYLE>"  
ts.writeline "</head>"  
ts.writeline "<body bgcolor=""#FFFFD2"">"  
ts.writeline "<script language=""VBScript""> "  
ts.writeline "<!--"  
ts.writeline "Dim ready "  
ts.writeline "Sub B0_OnClick"  
ts.writeline "ready=-1 "  
ts.writeline "End Sub"  
ts.writeline "Sub B1_OnClick"  
ts.writeline "ready=1 "  
ts.writeline "End Sub"  
ts.writeline "Sub Window_OnLoad()"  
ts.writeline "ready=0 "  
ts.writeline "End Sub"  
ts.writeline "Public Function CheckVal()"  
ts.writeline "CheckVal=ready"  
ts.writeline "End function"  
ts.writeline "'-->"  
ts.writeline "</script>"  
ts.writeline "<form name=""logusersForm"">"  
ts.writeline "<h3><center>Ordinateur " & computer & "</center></h3><hr>"  
ts.writeline "<b>Etat d'affichage des comptes au démarrage :</b><p>"  
set SAM=GetObject("WinNT://" & computer & ",computer" )  
nbusers=0  
dim username(), fullname(), state()  
key="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\"  
for each Item in SAM  
Classe=Item.Class  
If (Classe = "User" ) then  
' Vérification si le compte est activé ou non  
' On teste pour cela le bit 1 de la propriété "UserFlags"  
flags=Item.UserFlags  
if ((flags and 2)<>2) then  
nbusers=nbusers+1  
redim preserve username(nbusers+1), fullname(nbusers+1), state(nbusers+1)  
username(nbusers)= Item.name  
p=instrRev(username(nbusers),computer)  
If p>0 Then  
d=len(username(nbusers))-len(computer)  
if p=d+1 then username(nbusers)=left(username(nbusers),d)  
End If  
fullname(nbusers)=Item.FullName  
if len(fullname(nbusers))=0 then fullname(nbusers)=username(nbusers)  
state(nbusers)="checked"  
' Interception d'erreur (générée en cas de non-existence de clef)  
on error resume next  
stuser=shell.RegRead(key & Username(nbusers))  
' Par défaut, si le compte administrateur n'est pas dans la BDR,  
' il n'est pas affiché au login  
if err.number <>0 then  
if (lcase(username(nbusers))="administrateur" ) or (lcase(username(nbusers))="administrator" ) then state(nbusers)=""  
else  
if ((stuser=0) or (stuser=65536)) then state(nbusers)=""  
end if  
on error goto 0  
ts.writeline "<input type=""checkbox"" name=""usr" & nbusers &""" value=""" & username(nbusers) & """ " & State(nbusers) & ">" & fullname(nbusers) & "<br>"  
end if  
end if  
next  
ts.writeline "<input type=""button"" value=""Valider"" name=""B1"">"  
ts.writeline "<input type=""button"" value=""Annuler"" name=""B0"">"  
ts.writeline "</form>"  
ts.writeline "</body>"  
ts.writeline "</html>"  
ts.Close  
 
' Ouverture d'Internet Explorer  
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_" )  
oIE.Left = 50        
oIE.Top = 100  
oIE.Height = 400  
oIE.Width = 400  
oIE.MenuBar = 0        
oIE.ToolBar = 0  
oIE.StatusBar = 0  
oIE.navigate fichtml  
oIE.Visible = 2      
Do While (oIE.Busy)    
WScript.Sleep 200  
Loop  
shell.AppActivate Titre  
 
' Attente d'action sur le bouton ou fermeture de la fenêtre  
On Error Resume Next  
Do                  
WScript.Sleep 100  
Loop While (oIE.Document.Script.CheckVal() = 0)  
' Si on ferme directement IE sans passer par un bouton,  
' cela provoque une erreur qui est détectée et alors  
' on quitte le script  
If Err <> 0 Then  
fso.DeleteFile fichtml,true  
Wscript.quit  
end if  
test=oIE.Document.Script.CheckVal()  
If test=-1 Then  
CloseIE  
Wscript.quit  
end if  
str="Etat des comptes au démarrage :" & vbcrlf  
' Utilisation de la fonction execute afin de créer dynamiquement  
' des commandes faisant intervenir des noms de champs variables  
dim f(), res()  
redim f(nbusers+1), res(nbusers+1)  
for i = 1 to nbusers  
f(i) = "function testusr() " & vbcrlf  
f(i) = f(i) & "testusr=65536" & vbcrlf  
f(i) = f(i) & "if oIE.Document.logusersForm.usr" & i &".Checked then testusr=1" & vbcrlf  
f(i) = f(i) & "end function" & vbcrlf  
execute f(i)  
res(i)=testusr()  
if res(i)=1 then etat="affiché" else etat="caché"  
str= str & vbcrlf & fullname(i) & " (" & username(i) & " ) : " & etat  
next  
str=str & vbcrlf & vbcrlf & "Confirmation des modifications ?"  
rep=MsgBox(str , vbYesNo + vbQuestion, titre)  
if rep=vbYes  then  
for i = 1 to nbusers  
shell.RegWrite key & Username(i), res(i), "REG_DWORD"  
next  
end if  
CloseIE  
Wscript.quit  
'------------------------------------------------------------  
' Fonction de récupération du répertoire courant  
Function GetPath()  
Dim path  
path = WScript.ScriptFullName  
GetPath = Left(path, InStrRev(path, "\" ))  
End Function  
'------------------------------------------------------------  
' Fermeture d'Internet Explorer et suppression du fichier HTML  
Sub CloseIE  
oIE.Quit        
Set oIE = Nothing  
fso.DeleteFile fichtml,true  
End Sub  
'------------------------------------------------------------

Reply

Marsh Posté le 23-08-2003 à 17:52:43    

tu peux rajouter des mots de passe a chaque utilisatuer si tu veux

Reply

Marsh Posté le 23-08-2003 à 17:53:34    

c un script a appliquer où ?

Reply

Marsh Posté le 23-08-2003 à 17:59:55    

tu double clic dessus et un popup apparait te proposant de cocher les cases des users que tu veux faire apparaitre au boot  ;)  
 
 
Le mieux c'est d'aller voir sur le site de JCB
 
http://www.bellamyjc.net/fr/window [...] splaylogon

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed