Comment faire ? [User a l'ouverture]
caryves
-
Sebastien Messages postés 1671 Statut Modérateur -
Sebastien Messages postés 1671 Statut Modérateur -
Bonjour à tous ;J'aimerais savoir comment faire et si je peux le faire:Quand j'ouvre mon ordi il va à administrateur et tous mes choses sont dans un autre utilisateur est-ce que je peux le faire ouvrir automatic à cet endroit au lieu que dans administrateur.Je suis obliger de fermer et changer à chaque fois .Je suis sur XP,j'espères que je suis assez claire dans mes propos et que vous pourrez m'aider. Merci à l'avance.
4 réponses
-
met un mot de passe a ton administrateur et au démarrage il faudra choisir l'user ...mais bon je sais pas si il y a une autre possibilité... enfin attedn de voir si les autres on une meilleurs idée...
GREAT ... -
Bonjour caryves, bonjour à tous,
Comme personne ne t'a encore répondu, je le fais bien que ne connaissant pas XP.
Tu écris : "Quand j'ouvre mon ordi il va à administrateur", est-ce que pour démarrer Windows, tu n'as pas à donner un mot de passe, sous un code utilisateur qualifié d'"Administrateur" ? si oui, eh bien ma réponse sera : il te faut changer ce qu'il y a dans la case Utilisateur pour mettre ton vrai code utilisateur (à la place d'Administrateur), puis tu entres ton mot de passe, Windows sera ainsi démarré avec ton profil à toi !
Comme tu le fais lorsque tu dis "Je suis obliger de fermer et changer à chaque fois"
J'ai du mal à comprendre... veux-tu dire que Windows démarre sans avoir à entrer le moindre mot de passe ?
@12C4
Ipl -
Rebonjour caryves,
GREAT a raison... si Windows ne demande aucun mot de passe, c'est peut-être bien parce que le mot de passe de l'Administrateur a été mis à 'rien'... il te faut en ce cas changer le mot de passe de l'administrateur pour en mettre un vrai !
Pour ce faire, va dans le Panneau de configuration, puis double-clique sur une icône parlant d'"Utilisateurs et mots de passe" ou "Connexions utilisateurs" (je ne sais plus trop comment çà se présente pour XP) et change le mote de passe de l'Administrateur (Attention, souviens toi bien de ce que tu mets car c'est très important et tu pourrais en avoir besoin en cas de souci technique)
@12C4
Ipl -
Salut à tous,
Et oui, si à l'installation rien n'a été précisé (mot de passe administrateur ou compte utilisateur supplémentaire), Windows XP ouvrira automatiquement une session "Administrateur" sans rien demander...
Bizarre ceci dit car cela ne ressemble pas à ton cas.
Je te propose donc ce petit VBS (la source est affichée au début du script : ce n'est pas de moi mais de l'excellent jean Claude Bellamy) :
' --------------------------------------------------------------------
' 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
'------------------------------------------------------------
Voilà, exécutes ce script et coches les profils utilisateurs que tu désires pouvoir choisir au démarrage de Windows.
Autre astuce : le CTRL+ALT+SUPPR à l'ouverture de session fonctionne également sur XP en mode autonome (ou Workgroup). Il faut faire cette séquence de touche deux fois de suite afin d'avoir la boîte de dialogue d'ouverture de session "traditionnelle".
@+
Seb - "Heureux l'étudiant qui comme la Rivière
peut suivre son cours sans quitter son lit..."
