Script pour créer un utilisateur windows

Jo -  
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. esox_ch
      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
    3. esox_ch
      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