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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Script utilisateur local

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Script utilisateur local

n°989480
baboun81
Posté le 22-02-2005 à 08:46:02  profilanswer
 

Bonjour,
 
Je suis à la recherche d'un script qui créer un utilisateur local et qui le rajoute dans le groupe des administrateurs sur une machine distante en utilisant WMI par exemple. J'ai trouvé un script qui ne marche pas bien :
 
Code:

Code :
  1. strComputer = "POSTE01"
  2. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=Impersonate}!//"& strComputer & "/root/cimv2" )
  3. Set colItems = objWMIService.ExecQuery ("Select * from Win32_UserAccount Where LocalAccount = True" )
  4. Set colAccounts = GetObject("WinNT://" & strComputer & "" )
  5. Set objUser = colAccounts.Create("user", "toto" )
  6. objUser.SetPassword "123456789"
  7. objUser.SetInfo
  8. Set objUser = GetObject("WinNT://" & strComputer & "/toto, user" )
  9. Set objGroup = GetObject("WinNT://" & strComputer & "/Administrateurs,group" )
  10. objGroup.Add(objUser.ADsPath)


 
Le probleme il me créer bien l'utilisateur mais il n'appartient a aucun groupe !!!
 
Et quand je veut le rajouter au groupe administrateurs il me dit que le utilisateur n'existe pas !!!!!
 
Erreur :
 
Impossible d'ajouter ou de supprimer un membre du groupe local car ce membre n'existe pas.
 
PS: J'ai trouvé ce script chez technet script center. (http://download.microsoft.com/download/c/a/b/cabad822-b7eb-4815-928c-e59a9f2fafec/script_center.exe

mood
Publicité
Posté le 22-02-2005 à 08:46:02  profilanswer
 

n°1106387
MLG
Posté le 03-06-2005 à 01:32:04  profilanswer
 

tu as résolu ton problème ?

n°1675623
helvetik
Posté le 23-01-2008 à 13:44:08  profilanswer
 

J'ai adapér ton script à ma sauce et ça fonctionne :

Code :
  1. strComputer = "testcptr"
  2. strUser = "testusr"
  3. strPassword = "testpswd"
  4. strLocalGroup = "administrateurs"
  5. Set colAccounts = GetObject("WinNT://" & strComputer & "" )
  6. Set objGroup = GetObject("WinNT://" & strComputer & "/" & strLocalGroup & ",group" )
  7. Set objUser = colAccounts.Create("user", strUser)
  8. objUser.SetPassword strPassword
  9. objUser.SetInfo
  10. objGroup.Add(objUser.ADsPath)
  11. objGroup.SetInfo


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Script utilisateur local

 

Sujets relatifs
lien entre un controle utilisateur et un framesauvegarder toutes les variables au lancement du script
Quelqu'un saurait où trouver ce script de navigation ?Manipuler le HKEY Users depuis un service en local system ?
[Script DOS] ouvrir une page phpTomcat/Servlet - Authentifier l'utilisateur ??
Passer un tableau à un script cgiDonner les droits ntfs à un utilisateur???
[PHP] RCH Script espace membrescript suppriment les pub des hebergeurs gratuit
Plus de sujets relatifs à : Script utilisateur local


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