Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1770 connectés 

  FORUM HardWare.fr
  Windows & Software
  Win NT/2K/XP

  Créer un utilisateur local

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Créer un utilisateur local

n°2969127
Lanstack
Posté le 12-11-2010 à 15:21:56  profilanswer
 

:hello:  
 
J'ai un AD
Est-il possible de créer un script via une GPO qui me permettrait de ajouter automatiquement un utilisateur local (avec un mot de passe)aux ordinateurs.


---------------
« Mais j'vous jure, y'a dix minutes, ça marchait très bien... »  
mood
Publicité
Posté le 12-11-2010 à 15:21:56  profilanswer
 

n°2969134
Je@nb
Modérateur
Kindly give dime
Posté le 12-11-2010 à 15:48:17  profilanswer
 

GPO Préférences, c'est fait pour ça :)

n°2969136
Lanstack
Posté le 12-11-2010 à 16:32:29  profilanswer
 

Apparemment c'est que sur 2008 et je suis sur 2003


Message édité par Lanstack le 12-11-2010 à 16:34:21

---------------
« Mais j'vous jure, y'a dix minutes, ça marchait très bien... »  
n°2969137
Je@nb
Modérateur
Kindly give dime
Posté le 12-11-2010 à 16:35:17  profilanswer
 

non ça marche sous 2003, te suffit juste d'une machine vista/win 7/2008/2008 R2 pour configurer la gpo

n°2969239
Lanstack
Posté le 13-11-2010 à 10:16:44  profilanswer
 

Ah ok, mais bon j'ai trouvé un script qui me correspond parfaitement à mes attentes
 
Dim objUser
Dim NomUser
set WSHShell = WScript.CreateObject("WScript.Shell" )
Set WSHEnvironment = WSHShell.Environment ("Process" )
strComputer = WSHEnvironment("COMPUTERNAME" )
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
 
NomUser = "Eleves"
password = "****"
 
'Création de l'Utilisateur : NomUser
Set colAccounts = GetObject("WinNT://" & strComputer & "" )
Set objUser = colAccounts.Create("User", NomUser )
'objUser.Set
objUser.SetPassword password
objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
 
'Inscription du compte : NomUser dans le Groupe : Utilisateurs
Set objUser = GetObject("WinNT://" & strComputer & "/" & NomUser & ",user" )
Set objGroup = GetObject("WinNT://" & strComputer & "/Utilisateurs,group" )
objGroup.Add(objUser.ADsPath)
 
Comme ça en cas de défaillance réseau, ils peuvent se connecter en local.


---------------
« Mais j'vous jure, y'a dix minutes, ça marchait très bien... »  

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Win NT/2K/XP

  Créer un utilisateur local

 

Sujets relatifs
Excel : comment créer cellule ajouter ou reduire quantité ?Créer un utilisateur AD sur un serveur non AD
Fichiers réseau invisible depuis disque localCréer une arborescence de dossier
Utiliser un profil local et profil domaine sur SevenCopie d'un même dossier via le réseau en local
Virus qui crée un nouvel utilisateur ! ?problème pour créer point de restauration
Cherche freeware pour créer des cartes du monde fictives 
Plus de sujets relatifs à : Créer un utilisateur local


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR