Script pour créer un utilisateur windows

Jo -  
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

4 réponses

  1. LOVE
     
    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)
    3
  2. jboss38 Messages postés 1030 Statut Membre 33
     
    2003.. =)
    1
  3. esox_ch Messages postés 770 Statut Membre 49
     
    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
    0
    1. Jo
       
      Si, c'est possible.
      j'avais déjà choppé un script qui le faisait, mais je l'ai pommé et je suis incapable de le retrouver '-(
      0
  4. esox_ch Messages postés 770 Statut Membre 49
     
    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
    0