Script utilisateur local

Script utilisateur local - VB/VBA/VBS - Programmation

Marsh Posté le 22-02-2005 à 08:46:02    

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" )
  5. Set colAccounts = GetObject("WinNT://" & strComputer & "" )
  6. Set objUser = colAccounts.Create("user", "toto" )
  7. objUser.SetPassword "123456789"
  8. objUser.SetInfo
  10. Set objUser = GetObject("WinNT://" & strComputer & "/toto, user" )
  11. Set objGroup = GetObject("WinNT://" & strComputer & "/Administrateurs,group" )
  13. 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

Reply

Marsh Posté le 22-02-2005 à 08:46:02   

Reply

Marsh Posté le 03-06-2005 à 01:32:04    

tu as résolu ton problème ?

Reply

Marsh Posté le 23-01-2008 à 13:44:08    

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

Reply

Sujets relatifs:

Leave a Replay

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