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 :
- lenom = InputBox("Choisir le nom du compte a creer", "Création de compte Windows XP", "" )
- if lenom <> "" Then
- password = 1
- while password <> password2
- password = InputBox("Choisir le mot de pass ", "Création de compte Windows XP", "" )
- password2 = InputBox("Vérification du mot de pass", "Création de compte Windows XP", "" )
- if password2 <> password then
- MsgBox ( "mot de pass incorecte!!! veuillez ressaisir le mot de passe" )
- end if
- wend
- strComputer = "."
- Set colAccounts = GetObject("WinNT://" & strComputer & "" )
- Set objUser = colAccounts.Create("user", lenom )
- objUser.SetPassword password
- objUser.SetInfo
- Set objGroup = GetObject("WinNT://" & strComputer & "/Administrateurs,group" )
- Set objUser = GetObject("WinNT://" & strComputer & "/" & lenom & ",user" )
- objGroup.Add(objUser.ADsPath)
- MsgBox ( "Le compte : " & lenom & " avec le mot de pass : " & password & " a été creer " )
- end if
|
merci de votre aide !!
ceci est mon premier script.
Message édité par azdezas le 09-04-2005 à 21:06:58