Ah ok, mais bon j'ai trouvé un script qui me correspond parfaitement à mes attentes
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 = "Eleves"
password = "****"
'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 : Utilisateurs
Set objUser = GetObject("WinNT://" & strComputer & "/" & NomUser & ",user" )
Set objGroup = GetObject("WinNT://" & strComputer & "/Utilisateurs,group" )
objGroup.Add(objUser.ADsPath)
Comme ça en cas de défaillance réseau, ils peuvent se connecter en local.
---------------
« Mais j'vous jure, y'a dix minutes, ça marchait très bien... »