Script VBS ajouter un compte administrateurs

Script VBS ajouter un compte administrateurs - VB/VBA/VBS - Programmation

Marsh Posté le 09-04-2005 à 18:24:01    

Salut  
j'ai fais un script pour ajouter un utilisateur en vbs sur la machine local et ca me pose un problemme.
Le compte se creer bien mais j'ai une erreur :
Impossible d'ajouter ou de supprimer un membre du groupe local car ce membre n'existe pas.
 
*voila le script  
 

Code :
  1. lenom = InputBox("Choisir le nom du compte a creer", "Création de compte Windows XP", "" )
  2. if lenom <> "" Then
  3. password = 1
  4. while password <> password2
  5. password = InputBox("Choisir le mot de pass ", "Création de compte Windows XP", "" )
  6. password2 = InputBox("Vérification du mot de pass", "Création de compte Windows XP", "" )
  7. if password2 <> password then
  8. MsgBox ( "mot de pass incorecte!!! veuillez ressaisir le mot de passe" )
  9. end if
  10. wend
  11. strComputer = "."
  12. Set colAccounts = GetObject("WinNT://" & strComputer & "" )
  13. Set objUser = colAccounts.Create("user", lenom )
  14. objUser.SetPassword password
  15. objUser.SetInfo
  17. Set objGroup = GetObject("WinNT://" & strComputer & "/Administrateurs,group" )
  18. Set objUser = GetObject("WinNT://" & strComputer & "/" & lenom & ",user" )
  19. objGroup.Add(objUser.ADsPath)
  21. MsgBox ( "Le compte :  " & lenom & " avec le mot de pass : " & password & " a été creer " )
  22. end if


 
merci de votre aide !!
ceci est mon premier script.


Message édité par azdezas le 09-04-2005 à 21:06:58
Reply

Marsh Posté le 09-04-2005 à 18:24:01   

Reply

Sujets relatifs:

Leave a Replay

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