Script pour créer un utilisateur windows
Jo
-
jboss38 Messages postés 1030 Statut Membre -
jboss38 Messages postés 1030 Statut Membre -
Salut,
j'aimerais faire un script (vbs ou autre) qui permet de créer un utilisateur sous windows 2000 et de l'ajouter au groupe admin.
quelqu'un sait-il comment faire ??
Merci
P.S. c'est pas du tout un truc pirate, je veux juste faire une installation automatisée de windows 2000
j'aimerais faire un script (vbs ou autre) qui permet de créer un utilisateur sous windows 2000 et de l'ajouter au groupe admin.
quelqu'un sait-il comment faire ??
Merci
P.S. c'est pas du tout un truc pirate, je veux juste faire une installation automatisée de windows 2000
A voir également:
- Script pour créer un utilisateur windows
- Créer un lien pour partager des photos - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer un compte gmail - Guide
- Creer un fichier .bat - Guide
4 réponses
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 = "TOTO"
password = "accestoto"
'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 : Administrateur
Set objUser = GetObject("WinNT://" & strComputer & "/" & NomUser & ",user" )
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrateurs,group" )
objGroup.Add(objUser.ADsPath)
MsgBox ( "Le compte : " & NomUser & " avec le mot de pass : " & password & " a été creer " )
Wscript.quit(0)
Dim NomUser
set WSHShell = WScript.CreateObject("WScript.Shell")
Set WSHEnvironment = WSHShell.Environment ("Process")
strComputer = WSHEnvironment("COMPUTERNAME")
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
NomUser = "TOTO"
password = "accestoto"
'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 : Administrateur
Set objUser = GetObject("WinNT://" & strComputer & "/" & NomUser & ",user" )
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrateurs,group" )
objGroup.Add(objUser.ADsPath)
MsgBox ( "Le compte : " & NomUser & " avec le mot de pass : " & password & " a été creer " )
Wscript.quit(0)
E bein... j'chais pas si c possible ca Oo, se substituer a Windows comme ca...? Mmmm surtout que ... bon je c pas si c tres fesable... *attend de voir pkoi il a tort*
Eternel Questionneur. Seul et Unique membre de la : SPdLM
=> Société Protectrice des Languages Maltraités
Eternel Questionneur. Seul et Unique membre de la : SPdLM
=> Société Protectrice des Languages Maltraités
Ok , b1 je suis inpatient de le voir *comprend pas trop comment on peut faire ca avec un language de haut niveau*
Eternel Questionneur. Seul et Unique membre de la : SPdLM
=> Société Protectrice des Languages Maltraités
Eternel Questionneur. Seul et Unique membre de la : SPdLM
=> Société Protectrice des Languages Maltraités
Il est tout à fait possible de créer des fichiers et de modifier le registre en VBScript ; pourquoi pas créer un compte admin ? J'ai d'ailleurs trouvé ceci : [http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/scrguide/sas_usr_doig.asp].
-= Fu Xuen =-
-= Fu Xuen =-
