ajouter un utilisateur dans l'AD selon un fichier txt ???

Question

hello,



je cherche a am&#233;liorer mon VBS.



mon VBS actuel permet de creer un utilisateur dans une AD, le place
dans un OU, cr&#233;e nom, pr&#233;nom, nom de connexion, mot de pass, et cr&#233;e un
repertoir personnel (sur C:\users
om de l'user y modifier les droits NTFS et cr&#233;e un partage.

(le code entier est mis plus bas)



je voudrais donc maintenant pouvoir faire la meme chose selon un petit
fichier texte o&#249; les informations (nom, pr&#233;nom, mot de pass, etc...)
sont pr&#233;alablement renseign&#233;, et o&#249; les champs sont remplac&#233; par des
";" ou des tab, ou n'importe.



mon script irai chercher ces informations dans ce fichier et ferai les necessaires pour cr&#233;er les comptes.



est-ce que quelqu'un aurait une mani&#232;re de  proceder ou un exemple de script  ? voir mieux,  mon script adapt&#233;.



voici mon script :



 

on error resume next

'on recupere le domaine

set objdomaine = Wscript.createobject("Wscript.Network")

domainelocal=objdomaine.USERDOMAIN

domaine=inputbox("Entre un nom de domaine ?","Ajout User",domainelocal)

'on test si la variable domain est vide.

'Si oui appel de la fonction SORTIE

if domaine="" then sortie

'on demande l'extension

extension=inputbox("Entre l'extention du domaine","Ajout User")

'on test si l'extension est vide

if extension="" then sortie

'on acc&#233;de au domaine

set objdomaine = getobject("LDAP://dc=" & domaine & ",dc=" & extension)

'on passe &#224; l'OU

ou=inputbox("Entre l'OU","Ajout User")

'on test si la variable OU est vide

if OU="" then sortie

'on accede &#224; l'OU

set objou=objdomaine.create("organizationalunit", "ou=" & ou)

objou.setinfo

if err.number <> 0 then

        msgbox "L'OU " & OU & " existe d&#233;j&#224;" & vbcr & vbcr & _

                "le programme va continuer"

end if





Nuser = inputbox("Entre le nom du User","Ajout User")

if Nuser="" then sortie

PNuser = inputbox("Entre le pr&#233;nom de " & Nuser,"Ajout User")

if PNuser="" then sortie

Luser = inputbox("Entre le login de " & Nuser & " " & PNuser, "Ajout User", Nuser & "" & PNuser)

if Luser="" then sortie

PWDuser = inputbox("Entre le mot de pass de " & Nuser, "Ajout User", "123456")



set objuser = objOU.create ("user", "cn=" & Luser)



full = Nuser & " " & PNuser



objuser.put "UserPrincipalName", Luser

objuser.put "Samaccountname", Luser

objuser.put "givenname", PNuser

objuser.put "sn", Nuser

objuser.put "displayname", full

objuser.setinfo



objuser.setpassword PWDuser

objuser.AccountDisabled=false

objuser.SetInfo



'on cr&#233;e le dossier

set objexplorer=createobject("Scripting.FileSystemobject")

'on cr&#233;e un repertoire

set objrep=objexplorer.createfolder("C:\users" & Luser)

'on cherche le shell

set objshell=Wscript.createobject("Wscript.Shell")

'on met les droit par le shell

objshell.run "cmd /c echo O | cacls C:\users" & Luser & " /T /C /G " & Luser & _

":C ""Admins du domaine"":F"



objshell.run "net share " & Luser & "$=C:\users" & Luser





function sortie()

msgbox "Fin des haricots."

Wscript.quit

end function

Darst · Answer

j'ai finis par trouver une piste dans le script center, j'utilise cette fonction :





Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile _

    ("c:\user.txt", ForReading)

Do Until objTextFile.AtEndOfStream

    strNextLine = objTextFile.Readline

    arrServiceList = Split(strNextLine , ",")

    Wscript.Echo "Server name: " & arrServiceList(0)

    For i = 1 to Ubound(arrServiceList)

        Wscript.Echo "Service: " & arrServiceList(i)

    Next

Loop

Ajouter un utilisateur dans l'AD selon un fichier txt ???

1 réponse

Discussions similaires